--- loncom/interface/slotrequest.pm 2006/04/25 15:32:20 1.59 +++ loncom/interface/slotrequest.pm 2006/05/30 12:46:09 1.63 @@ -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.59 2006/04/25 15:32:20 albertel Exp $ +# $Id: slotrequest.pm,v 1.63 2006/05/30 12:46:09 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,12 +36,15 @@ use Apache::lonlocal; use Apache::lonnet; use Apache::lonnavmaps(); use Date::Manip; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; sub fail { my ($r,$code)=@_; if ($code eq 'not_valid') { $r->print('
'.&mt('Unable to understand what resource you wanted to sign up for.').'
'); - + } elsif ($code eq 'not_available') { + $r->print(''.&mt('No slots are available.').'
'); } elsif ($code eq 'not_allowed') { $r->print(''.&mt('Not allowed to sign up or change reservations at this time.').'
'); } else { @@ -253,7 +256,7 @@ sub make_reservation { my $parm_symb = $symb; my $parm_level = 1; - if ($use_slots eq 'sequence') { + if ($use_slots eq 'map') { my ($map) = &Apache::lonnet::decode_symb($symb); $parm_symb = &Apache::lonnet::symbread($map); $parm_level = 2; @@ -492,7 +495,7 @@ sub release_reservation { } my $parm_level = 1; - if ($use_slots eq 'sequence') { + if ($use_slots eq 'map') { $parm_level = 2; } # store new parameter string @@ -762,7 +765,7 @@ sub show_choices { $command='get'; } } - my $escsymb=&Apache::lonnet::escape($symb); + my $escsymb=&escape($symb); $form=<