--- loncom/interface/slotrequest.pm 2005/08/15 19:55:37 1.9 +++ loncom/interface/slotrequest.pm 2006/04/24 23:23:02 1.58 @@ -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.9 2005/08/15 19:55:37 albertel Exp $ +# $Id: slotrequest.pm,v 1.58 2006/04/24 23:23:02 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,8 @@ use Apache::Constants qw(:common :http : use Apache::loncommon(); use Apache::lonlocal; use Apache::lonnet; +use Apache::lonnavmaps(); +use Date::Manip; sub fail { my ($r,$code)=@_; @@ -46,22 +48,18 @@ sub fail { $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.'