--- loncom/interface/slotrequest.pm 2007/09/21 22:37:23 1.80 +++ loncom/interface/slotrequest.pm 2008/12/11 14:55:15 1.84 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler for requesting to have slots added to a students record # -# $Id: slotrequest.pm,v 1.80 2007/09/21 22:37:23 albertel Exp $ +# $Id: slotrequest.pm,v 1.84 2008/12/11 14:55:15 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -335,7 +335,7 @@ sub remove_registration { my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, "^$slot_name\0"); if (&Apache::lonnet::error(%consumed)) { - $r->print("
".&mt('A network error has occured.').'
'); + $r->print("".&mt('A network error has occurred.').'
'); return; } if (!%consumed) { @@ -473,8 +473,9 @@ sub release_reservation { } # get parameter string, check for existance, rebuild string with the slot - my @slots = split(/:/,&Apache::lonnet::EXT("resource.0.availablestudent", - $symb,$udom,$uname)); + my $student = &Apache::lonnet::EXT("resource.0.availablestudent", + $symb,$udom,$uname); + my @slots = split(/:/,$student); my @new_slots; foreach my $exist_slot (@slots) { @@ -568,7 +569,9 @@ sub get_slot { my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot); if ($slot_name =~ /^error: (.*)/) { - $r->print("An error occured while attempting to make a reservation. ($1)
"); + $r->print('' + .&mt('An error occurred while attempting to make a reservation. ([_1])',$1) + .'
'); &return_link($r); return 0; } @@ -609,7 +612,9 @@ STUFF if (defined($reserved)) { my $retvalue = 0; if ($slot_name =~ /^error: (.*)/) { - $r->print("An error occured while attempting to make a reservation. ($1)
"); + $r->print('' + .&mt('An error occurred while attempting to make a reservation. ([_1])',$1) + .'
'); } elsif ($reserved > -1) { $r->print("Success: $description
"); $retvalue = 1; @@ -1131,7 +1136,7 @@ sub show_table { (@this_slot)) { my (undef,$id)=split("\0",$entry); my ($uname,$udom) = split(':',$consumed{$entry}{'name'}); - $ids.= '