--- loncom/interface/lonsyllabus.pm 2008/07/15 19:50:39 1.65 +++ loncom/interface/lonsyllabus.pm 2010/01/28 17:25:10 1.69.4.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.65 2008/07/15 19:50:39 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.69.4.2 2010/01/28 17:25:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -150,7 +150,7 @@ ENDSCRIPT &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:ToCatalog()", - text=>"Course Catalog"}); + text=>"Course/Community Catalog"}); if ($env{'form.coursenum'} ne '') { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:ToCatalog('details')", @@ -179,14 +179,15 @@ ENDSCRIPT # -------------------------------------------------------- Get course personnel my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); if ($target ne 'tex') { - $r->print(&Apache::loncommon::start_data_table()); + $r->print(&Apache::lonhtmlcommon::start_pick_box()); } else { $r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); } - foreach my $element (sort keys %coursepersonnel) { + my @personnel=sort(keys(%coursepersonnel)); + my $lastpers=$personnel[$#personnel]; + foreach my $element (@personnel) { if ($target ne 'tex') { - $r->print(&Apache::loncommon::start_data_table_row(). - ''.$element.''); + $r->print(&Apache::lonhtmlcommon::row_title($element)); } else { $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); } @@ -198,8 +199,8 @@ ENDSCRIPT ($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { $r->print(' '.$courseperson); } else { - $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson), - $puname,$pudom); + $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, + $puname,$pudom)); } } else { $r->print(' '.&Apache::loncommon::plainname($puname, @@ -207,13 +208,14 @@ ENDSCRIPT } } if ($target ne 'tex') { - $r->print(''.&Apache::loncommon::end_data_table_row()); + my $lastclose=$element eq $lastpers?1:0; + $r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); } else { $r->print('\\\\ \hline'); } } if ($target ne 'tex') { - $r->print(&Apache::loncommon::end_data_table()); + $r->print(&Apache::lonhtmlcommon::end_pick_box()); } else { $r->print('\end{tabular}\\\\'); } @@ -237,12 +239,17 @@ 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') - .' http://'. + .' '.$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').'').'

'. + '

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

'. '

'. &mt('Show Public View').''. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). @@ -269,7 +276,7 @@ ENDSCRIPT # get rid of leading and trailing spaces $url=~s/^\s+//; $url=~s/\s+$//; - if ($url=~m|^http://([^/]+)/(.+)$|) { + if ($url=~m|^https?\://([^/]+)/(.+)$|) { my $host = $1; my $remainder=$2; # remove the hostname from internal URLs @@ -282,7 +289,7 @@ ENDSCRIPT } } # norm internal URLs - unless ($url=~/^http\:/) { + unless ($url=~/^https?\:/) { $url=&Apache::lonnet::clutter($url); } # re-assemble field @@ -358,8 +365,10 @@ ENDSCRIPT $r->print($message); } } else { - &Apache::lonfeedback::newline_to_br(\$message); - $message =~s|(https*://[^\s]+)|$1|g; + if (!&Apache::lonfeedback::contains_block_html($message)) { + &Apache::lonfeedback::newline_to_br(\$message); + } + $message=&Apache::lonhtmlcommon::raw_href_to_link($message); if ($allowed) { $message=&Apache::lonspeller::markeduptext($message); } @@ -393,7 +402,7 @@ ENDSCRIPT if ($target ne 'tex') { if ($env{'form.backto'} eq 'coursecatalog') { $r->print('

'. - &Apache::lonhtmlcommon::echo_form_input(['backto']). + &Apache::lonhtmlcommon::echo_form_input(['backto','courseid']). '
'); } $r->print(&Apache::loncommon::end_page());