loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {