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

Diff for /loncom/interface/slotrequest.pm between versions 1.3 and 1.4

version 1.3, 2005/06/04 07:44:48 version 1.4, 2005/06/04 08:17:06
Line 105  sub space_available { Line 105  sub space_available {
     return 0;      return 0;
 }  }
   
   sub check_for_reservation {
       my ($symb)=@_;
       my $student = &Apache::lonnet::EXT("resource.0.availablestudent", $symb,
          $env{'user.domain'}, $env{'user.name'});
   
       my $course = &Apache::lonnet::EXT("resource.0.available", $symb,
       $env{'user.domain'}, $env{'user.name'});
       my @slots = (split(/:/,$student), split(/:/, $course));
   
       &Apache::lonxml::debug(" slot list is ".join(':',@slots));
   
       my ($cnum,$cdom)=&get_course();
       my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum);
   
       foreach my $slot_name (@slots) {
    next if (!defined($slots{$slot_name}) ||
    !ref($slots{$slot_name}));
    &Apache::lonxml::debug(time." $slot_name ".
          $slots{$slot_name}->{'starttime'}." -- ".
          $slots{$slot_name}->{'startreserve'});
    if ($slots{$slot_name}->{'starttime'} > time &&
       $slots{$slot_name}->{'startreserve'} < time) {
       # between start of reservation times and start of slot
       return($slot_name, $slots{$slot_name});
    }
       }
       return (undef,undef);
   }
   
 # FIXME - depends on the parameter for the resource to be correct  # FIXME - depends on the parameter for the resource to be correct
 #         tho prevent multiple reservations  #         tho prevent multiple reservations
   
Line 257  sub get_description { Line 286  sub get_description {
     my ($slot_name,$slot)=@_;      my ($slot_name,$slot)=@_;
     my $description=$slot->{'description'};      my $description=$slot->{'description'};
     if (!defined($description)) {      if (!defined($description)) {
  $description=&mt('[_1] From [_2] to [_3]',$slot,   $description=&mt('[_1] From [_2] to [_3]',$slot_name,
  &Apache::lonlocal::locallocaltime($slot->{'starttime'}),   &Apache::lonlocal::locallocaltime($slot->{'starttime'}),
  &Apache::lonlocal::locallocaltime($slot->{'endtime'}));   &Apache::lonlocal::locallocaltime($slot->{'endtime'}));
     }      }
Removed from v.1.3  
changed lines
  Added in v.1.4

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