[BACK]Return to slotrequest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/slotrequest.pm between versions 1.38 and 1.39

version 1.38, 2006/01/24 06:41:16 version 1.39, 2006/02/03 17:07:20
Line 275  sub release_slot { Line 275  sub release_slot {
  && defined($env{'form.symb'})) {   && defined($env{'form.symb'})) {
  $symb = $env{'form.symb'};   $symb = $env{'form.symb'};
     }      }
       my %slot=&Apache::lonnet::get_slot($slot_name);
       my $description=&get_description($env{'form.slotname'},\%slot);
   
       if ($mgr ne 'F') {
    if ($slot{$slot_name}{'starttime'} < time) {
       $r->print("<p>Not allowed to release Reservation: $description, as it has already ended.</p>");
       $r->print('<p><a href="/adm/flip?postdata=return:">'.
         &mt('Return to last resource').'</a></p>');
       return 0;
    }
       }
     # get parameter string, check for existance, rebuild string with the slot      # get parameter string, check for existance, rebuild string with the slot
     my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent",      my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent",
        $symb,$udom,$uname));         $symb,$udom,$uname));
Line 302  sub release_slot { Line 312  sub release_slot {
       '0_availablestudent',        '0_availablestudent',
       1, $new_param, 'string',        1, $new_param, 'string',
       $uname,$udom);        $uname,$udom);
     my %slot=&Apache::lonnet::get_slot($slot_name);  
     my $description=&get_description($env{'form.slotname'},\%slot);      my $description=&get_description($env{'form.slotname'},\%slot);
     $r->print("<p>Released Reservation: $description</p>");      $r->print("<p>Released Reservation: $description</p>");
     if ($mgr eq 'F') {      if ($mgr eq 'F') {
Line 1157  sub handler { Line 1166  sub handler {
  } elsif ($env{'form.command'} eq 'get') {   } elsif ($env{'form.command'} eq 'get') {
     &get_slot($r,$symb);      &get_slot($r,$symb);
  } elsif ($env{'form.command'} eq 'change') {   } elsif ($env{'form.command'} eq 'change') {
     &release_slot($r,$symb,$env{'form.releaseslot'},1);      if (&release_slot($r,$symb,$env{'form.releaseslot'},1)) {
     &get_slot($r,$symb);   &get_slot($r,$symb);
       }
  } else {   } else {
     $r->print("<p>Unknown command: ".$env{'form.command'}."</p>");      $r->print("<p>Unknown command: ".$env{'form.command'}."</p>");
  }   }
Removed from v.1.38  
changed lines
  Added in v.1.39

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>