--- loncom/interface/slotrequest.pm 2005/09/06 21:31:03 1.12 +++ loncom/interface/slotrequest.pm 2007/04/10 23:28:20 1.75 @@ -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.12 2005/09/06 21:31:03 albertel Exp $ +# $Id: slotrequest.pm,v 1.75 2007/04/10 23:28:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,34 +34,35 @@ use Apache::Constants qw(:common :http : use Apache::loncommon(); 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 { $r->print(''.&mt('Failed.').'
'); } - $r->print(''. - &mt('Return to last resource').'
'); + &return_link($r); &end_page($r); } sub start_page { - my ($r)=@_; - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.'