version 1.40, 2006/02/03 18:22:44
|
version 1.41, 2006/02/03 18:51:15
|
Line 126 sub check_for_reservation {
|
Line 126 sub check_for_reservation {
|
my ($cnum,$cdom)=&get_course(); |
my ($cnum,$cdom)=&get_course(); |
my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum); |
my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum); |
|
|
|
if (&network_error($student) || &network_error($course) || |
|
&network_error(%slots)) { |
|
return 'error: Unable to determine current status'; |
|
} |
foreach my $slot_name (@slots) { |
foreach my $slot_name (@slots) { |
next if (!defined($slots{$slot_name}) || |
next if (!defined($slots{$slot_name}) || |
!ref($slots{$slot_name})); |
!ref($slots{$slot_name})); |
Line 150 sub check_for_conflict {
|
Line 154 sub check_for_conflict {
|
my @slots = (split(/:/,$student), split(/:/, $course)); |
my @slots = (split(/:/,$student), split(/:/, $course)); |
my ($cnum,$cdom)=&get_course(); |
my ($cnum,$cdom)=&get_course(); |
my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum); |
my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum); |
my ($tmp) = %slots; |
|
if (&network_error($student) || &network_error($course) || |
if (&network_error($student) || &network_error($course) || |
&network_error($tmp)) { |
&network_error(%slots)) { |
return 'error: Unable to determine current status'; |
return 'error: Unable to determine current status'; |
} |
} |
foreach my $slot_name (@slots) { |
foreach my $slot_name (@slots) { |