--- loncom/interface/lonsyllabus.pm 2009/03/27 15:46:38 1.84 +++ loncom/interface/lonsyllabus.pm 2009/03/31 08:49:09 1.85 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.84 2009/03/27 15:46:38 bisitz Exp $ +# $Id: lonsyllabus.pm,v 1.85 2009/03/31 08:49:09 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -229,7 +229,24 @@ ENDSCRIPT &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum); } } -#-Pritn Help Text + +#---------------------Print External URL Syllabus Info +if( ($allowed) && ($target ne 'tex') ) { + my $protocol = $Apache::lonnet::protocol{$homeserver}; + $protocol = 'http' if ($protocol ne 'https'); + $r->print('

' + .&mt('This syllabus can be publicly viewed at [_1]' + ,''.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.'') + .' '.&Apache::loncommon::help_open_topic('Syllabus_ExtLink') + .'

' + .'

' + .&mt('Instead of using this template you can specify an external URL as Syllabus in the [_1]Course Parameters[_2].' + ,'','') + .'

' + ); +} + +#-Print Help Text if ($target ne 'tex') { if($allowed){ $r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); @@ -321,12 +338,6 @@ if($target ne 'tex'){ :'') .'\\\\'); } -#---------------------Print Extern URL Course Info -if( ($allowed) && ($target ne 'tex') ) { - my $protocol = $Apache::lonnet::protocol{$homeserver}; - $protocol = 'http' if ($protocol ne 'https'); - $r->print('

'.&mt('This syllabus can be publicly viewed at').' '.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.''.&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'

'.'

'.&mt('You can specify an external URL as Syllabus in the [_1].',''.&mt('Course Parameters').'').'

'); -} # -------------------------------------------------------------- Announcements? my $day = &Apache::lonannounce::showday(time,2, &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));