--- loncom/interface/slotrequest.pm 2006/02/03 18:22:44 1.40
+++ loncom/interface/slotrequest.pm 2009/10/31 05:39:25 1.105
@@ -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.40 2006/02/03 18:22:44 albertel Exp $
+# $Id: slotrequest.pm,v 1.105 2009/10/31 05:39:25 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -34,34 +34,39 @@ 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,$title)=@_;
- my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.''.&mt($title).'');
- $r->print(&Apache::loncommon::bodytag($title));
+ my ($r,$title,$brcrum)=@_;
+ my $args;
+ if (ref($brcrum) eq 'ARRAY') {
+ $args = {bread_crumbs => $brcrum};
+ }
+ $r->print(&Apache::loncommon::start_page($title,undef,$args));
}
sub end_page {
my ($r)=@_;
- $r->print(&Apache::loncommon::endbodytag().'