--- loncom/interface/lonsyllabus.pm 2010/01/28 17:25:10 1.69.4.2 +++ loncom/interface/lonsyllabus.pm 2008/12/12 17:02:47 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.69.4.2 2010/01/28 17:25:10 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.71 2008/12/12 17:02:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -29,6 +29,7 @@ package Apache::lonsyllabus; use strict; +use Apache::lontemplate; use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonnet; @@ -150,7 +151,7 @@ ENDSCRIPT &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:ToCatalog()", - text=>"Course/Community Catalog"}); + text=>"Course Catalog"}); if ($env{'form.coursenum'} ne '') { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:ToCatalog('details')", @@ -239,17 +240,12 @@ ENDSCRIPT if ($forcestudent or $target eq 'tex') { $allowed=0; } } if ($allowed) { - my $protocol = $Apache::lonnet::protocol{$homeserver}; - $protocol = 'http' if ($protocol ne 'https'); $r->print('
'. &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'
'.&mt('This syllabus can be publicly viewed at') - .' '.$protocol.'://'. + .' http://'. &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 Configuration[_2].', - '',''). - '
'. + ''.&mt('You can specify an external URL as Syllabus in the [_1].',''.&mt('Course Parameters').'').'
'. ''. &mt('Show Public View').''. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). @@ -276,7 +272,7 @@ ENDSCRIPT # get rid of leading and trailing spaces $url=~s/^\s+//; $url=~s/\s+$//; - if ($url=~m|^https?\://([^/]+)/(.+)$|) { + if ($url=~m|^http://([^/]+)/(.+)$|) { my $host = $1; my $remainder=$2; # remove the hostname from internal URLs @@ -289,7 +285,7 @@ ENDSCRIPT } } # norm internal URLs - unless ($url=~/^https?\:/) { + unless ($url=~/^http\:/) { $url=&Apache::lonnet::clutter($url); } # re-assemble field @@ -358,24 +354,23 @@ ENDSCRIPT } if ($allowed) { $r->print('
'.&mt('Show Public View').''. + &Apache::loncommon::help_open_topic('Syllabus_URLs').''. + '
'.&mt('Show Public View').''. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
'); } else { $r->print($message); } } else { - if (!&Apache::lonfeedback::contains_block_html($message)) { - &Apache::lonfeedback::newline_to_br(\$message); - } - $message=&Apache::lonhtmlcommon::raw_href_to_link($message); + &Apache::lonfeedback::newline_to_br(\$message); + $message =~s|(https*://[^\s]+)|$1|g; if ($allowed) { $message=&Apache::lonspeller::markeduptext($message); } $message=&Apache::lontexconvert::msgtexconverted($message); if ($target ne 'tex') { - $r->print(''. - $message.''); + &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message); +# $r->print('
'. +# $message.''); } else { $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); @@ -383,9 +378,10 @@ ENDSCRIPT push(@htmlids,$field); } if ($allowed) { - $r->print('