'.&mt('Last updated').': '.
+ $lastmod . ' '.
+ ($who ? &mt('by').' '.$who
+ : '' ) .
+ '
' );
+ } else {
+ $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
+ ($who? &mt('by').'\\\\ '.
+ &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
+ :'')
+ .'\\\\');
}
-
- $functions.=&Apache::lonhtmlcommon::end_funclist();
- $r->print(&Apache::loncommon::head_subbox($functions));
}
-#---------------------Print External URL Syllabus Info and Help Text
- 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 Configuration[_2].'
- ,'','')
- .'
'
- );
- #-Print Help Text
- $r->print(&Apache::loncommon::help_open_topic(
- 'Uploaded_Templates_TextBoxes',
- &mt('Help with filling in text boxes')));
- }
-
-#----------Print last update
- my $lastmod=$syllabus{'uploaded.lastmodified'};
- $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
- my $who = &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($syllabus{'uploaded.name'},
- $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
- $syllabus{'uploaded.domain'});
- if ($target ne 'tex') {
- $r->print(''.&mt('Last updated').': '.
- $lastmod . ' '.
- ($who ? &mt('by').' '.$who
- : '' ) .
- '
' );
-
- } else {
- $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
- ($who? &mt('by').'\\\\ '.
- &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
- :'')
- .'\\\\');
- }
- if ($allowed && $data{'properties.v2_converted'} == 1) {
- $r->print("'.
+ '
'.$courseenv{'description'}.'
');
+ if ($allowed) {
+ $r->print('
'.
+ '
'.&Apache::lonnet::domain($cdom,'description').'
'.
+ '');
+# Print Help Text if editing at right side of screen
+ $r->print('
'.
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).
+ '
');
+ } else {
+ $r->print('
'.&Apache::lonnet::domain($cdom,'description').'
');
+ }
} else {
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
&Apache::lonnet::domain($cdom,'description').'}\\\\');
}
-
# -------------------------------------------------------- Get course personnel
- my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
- if ($target ne 'tex') {
- $r->print(&Apache::lonhtmlcommon::start_pick_box());
- } else {
- $r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline');
+ my $hidepersonnel;
+ if (($syllabus{'uploaded.fields'}) &&
+ (($syllabus{'uploaded.fields'} eq 'none') ||
+ ($syllabus{'uploaded.fields'} !~ /000/))) {
+ $hidepersonnel = 1;
}
- my @personnel=sort(keys(%coursepersonnel));
- my $lastpers=$personnel[$#personnel];
- foreach my $element (@personnel) {
- if ($target ne 'tex') {
- $r->print(&Apache::lonhtmlcommon::row_title($element));
- } else {
- $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & ');
- }
- foreach (split(/\,/,$coursepersonnel{$element})) {
- my ($puname,$pudom)=split(/\:/,$_);
- if ($target ne 'tex') {
- my $courseperson = &Apache::loncommon::plainname($puname,$pudom);
- if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') ||
- ($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) {
- $r->print(' '.$courseperson);
- } else {
- $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson,
- $puname,$pudom));
- }
- } else {
- $r->print(' '.&Apache::loncommon::plainname($puname,
- $pudom).' ');
+ if ($target ne 'tex') {
+ if ($allowed) {
+ my $display = ' style="display:block;"';
+ if ($hidepersonnel) {
+ $display = ' style="display:none;"';
}
- }
- if ($target ne 'tex') {
- my $lastclose=$element eq $lastpers?1:0;
- $r->print(&Apache::lonhtmlcommon::row_closure($lastclose));
+ &Apache::lontemplate::print_start_template($r,&mt('Personnel'),'LC_Box',
+ 'box_000_showpeople',$display);
+ $r->print(&get_personnel($r,$target,$cdom,$cnum,$allowed,$crstype,\%syllabus));
+ &Apache::lontemplate::print_end_template($r);
} else {
- $r->print('\\\\ \hline');
+ unless ($hidepersonnel) {
+ &Apache::lontemplate::print_start_template($r,&mt('Personnel'),'LC_Box');
+ $r->print(&get_personnel($r,$target,$cdom,$cnum,$allowed,$crstype,\%syllabus));
+ &Apache::lontemplate::print_end_template($r);
+ }
}
- }
- if ($target ne 'tex') {
- $r->print(&Apache::lonhtmlcommon::end_pick_box());
} else {
- $r->print('\end{tabular}\\\\');
+ unless ($hidepersonnel) {
+ $r->print(&get_personnel($r,$target,$cdom,$cnum,$allowed,$crstype,%syllabus));
+ }
}
# -------------------------------------------------------------- Announcements?
my $day = &Apache::lonannounce::showday(time,2,
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
+ my $hidefeeds;
+ if (($syllabus{'uploaded.fields'}) &&
+ (($syllabus{'uploaded.fields'} eq 'none') ||
+ ($syllabus{'uploaded.fields'} !~ /111/))) {
+ $hidefeeds = 1;
+ }
if ($target ne 'tex') {
if ($allowed) {
- &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_Box');
- $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
+ my $display = ' style="display:block;"';
+ if ($hidefeeds) {
+ $display = ' style="display:none;"';
+ }
+ &Apache::lontemplate::print_start_template($r,&mt('RSS Feeds and Blogs'),'LC_Box',
+ 'box_111_showrssfeeds',$display);
+ my ($numfeeds,$hiddenfeeds,$rsslinktext);
+ my $feeds=&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit,\$numfeeds,
+ \$hiddenfeeds);
+ if ($numfeeds) {
+ $r->print($feeds);
+ $rsslinktext = &mt('New RSS Feed or Blog');
+ } else {
+ my $msg = '
'.
+ &mt("RSS Feeds and Blogs item is not included in a student's view of the syllabus.");
+ if ($hiddenfeeds) {
+ $r->print('
'.
+ &mt('All feeds currently hidden').
+ $msg.
+ '
');
+ } else {
+ $r->print('
'.
+ &mt('No current feeds').
+ $msg.
+ '
');
+ }
+ $rsslinktext = &mt('Manage Course RSS Feeds/Blogs');
+ if ($crstype eq 'Community') {
+ $rsslinktext = &mt('Manage Community RSS Feeds/Blogs');
+ }
+ }
my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html';
- $r->print( '
'.&mt('New RSS Feed or Blog').'');
- &Apache::lontemplate::print_end_template($r);
- } elsif (&Apache::lonrss::advertisefeeds($cnum,$cdom) ne '') {
- &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_Box');
- $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
+ $r->print( '
'.$rsslinktext.'');
&Apache::lontemplate::print_end_template($r);
+ } else {
+ unless ($hidefeeds) {
+ my $feeds = &Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit);
+ if ($feeds ne '') {
+ &Apache::lontemplate::print_start_template($r,&mt('RSS Feeds and Blogs'),'LC_Box');
+ $r->print($feeds);
+ &Apache::lontemplate::print_end_template($r);
+ }
+ }
}
-
} else {
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day));
}
-
# ---------------------------------------------------------------- Get syllabus
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
- if ($allowed) {
- $r->print('
'.
- &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));
+ $r->print('
');} else {$r->print('\par ');}
$r->print(&mt('No syllabus information provided.'));
if ($target ne 'tex') {$r->print('
');}
}
@@ -602,112 +556,1200 @@ ENDSCRIPT
return OK;
}
-sub print_template_new_fields {
- my ($r, $data_ref, $target, $allowed, $default_rich_text, $custom_handlers_ref, $group) = @_;
- my @html_ids = ();
- my %data = %{$data_ref};
- my @fields = @{thaw($data{'data.fields'})};
- my %custom_handlers = %{$custom_handlers_ref};
-
- foreach my $key (@fields) {
- my %field = %{thaw($data{'data.field.'.$key})};
- my $title = $field{title};
- my $raw_message = $field{content};
- my $type = $field{type};
- my $message = $raw_message if (($raw_message=~/\w/) || ($allowed));
- if ((%custom_handlers) && exists($custom_handlers{$type})) {
- #$custom_handlers{$type}->($r, $field, $json_ref, $group, $target, $allowed);
- } else {
- if (($raw_message=~/\w/) || ($allowed)) {
- if (!&Apache::lonfeedback::contains_block_html($message)) {
- &Apache::lonfeedback::newline_to_br(\$message);
- } else {
- $message = &Apache::lonfeedback::tidy_html($message);
- }
- $message=&Apache::lonhtmlcommon::raw_href_to_link($message);
- if ($allowed) {
- $message=&Apache::lonspeller::markeduptext($message);
- }
- $message=&Apache::lontexconvert::msgtexconverted($message);
- if ($target ne 'tex') {
- #output of syllabusfields will be generated here.
- &Apache::lontemplate::print_start_template($r,$title,'LC_Box');
- $r->print($message);
- if ($allowed) {
- $r->print("