--- loncom/auth/lonroles.pm 2009/05/18 17:30:34 1.224 +++ loncom/auth/lonroles.pm 2009/05/22 17:57:03 1.225 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.224 2009/05/18 17:30:34 raeburn Exp $ +# $Id: lonroles.pm,v 1.225 2009/05/22 17:57:03 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -167,7 +167,9 @@ sub redirect_user { $r->print(< +// $navwindow

$msg

@@ -183,9 +185,12 @@ sub error_page { $r->send_http_header; return OK if $r->header_only; $r->print(&Apache::loncommon::start_page('Problems during Course Initialization'). - ''. - '

'.&mt('The following problems occurred:'). + ''. + '

'.&mt('The following problems occurred:'). $error. '


'.&mt('Continue').''. &Apache::loncommon::end_page()); @@ -367,9 +372,11 @@ sub handler { $r->print(< +// -
+ $message
@@ -390,9 +397,11 @@ ENDENTEREDKEY $r->print(< +// - + @@ -576,6 +585,7 @@ $start_page $noscript ENDHEADER @@ -971,7 +982,7 @@ ENDHEADER .''.&mt('Logout').'  ' .'' .&mt('Course Catalog') - .'

'); + .'

'); } $r->print(&Apache::loncommon::end_page()); return OK; @@ -1246,31 +1257,31 @@ sub build_roletext { } elsif ($tstatus eq 'is') { $roletext.=''. ''; } elsif ($tryagain) { $roletext.= ''. ''; } elsif ($advanced) { $roletext.= ''. ''; } elsif ($reinit) { $roletext.= ''. ''; } else { $roletext.= ''. ''; } } @@ -1437,6 +1448,7 @@ sub coursepick_jscript { ); my $verify_script = <<"END"; END return $verify_script;