at/cgi_args.pl

   1
   2 do 'at-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_job.cgi') {
   8         my @jobs = &list_atjobs();
   9         @jobs = grep { &can_edit_user(\%access, $_->{'user'}) } @jobs;
  10         return @jobs ? 'id='.$jobs[0]->{'idx'} : 'none';
  11         }
  12 return undef;
  13 }