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'})); |
} |
} |