'.&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'});
+#-------------------------------------------------------------- Print Headtitle
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 (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
- $r->print("
");
- &print_field_sortable($r, \%data, $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML);
+ if ($allowed) {
+ 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 Communiity RSS Feeds/Blogs');
+ }
+ }
+ my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html';
+ $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);
+ }
+ }
}
- $r->print("
\n");
-
} else {
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day));
}
-
# ---------------------------------------------------------------- Get syllabus
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
if ($allowed) {
- $r->print('
'.
- &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));
- }
- if ($target ne 'tex') {$r->print('
');}
- if ($allowed) {
- &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_Box');
- $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
- 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));
- &Apache::lontemplate::print_end_template($r);
+ &Apache::lonhtmlcommon::htmlareaselectactive());
}
} else {
- if ($target ne 'tex') {$r->print('
');} else {$r->print('\par ');}
+ if ($target ne 'tex') {$r->print('
');} else {$r->print('\par ');}
$r->print(&mt('No syllabus information provided.'));
if ($target ne 'tex') {$r->print('
');}
}
@@ -704,131 +477,1092 @@ ENDSCRIPT
return OK;
}
-sub print_field_sortable {
- my ($r, $data_ref, $target, $allowed, $default_rich_text, $group) = @_;
- my %data = %{$data_ref};
- my @fields = @{thaw($data{'data.fields'})};
- $r->print("
\n");
-}
-
-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', 'box-'.$key);
- $r->print($message);
- if ($allowed) {
- $r->print("
");
- &Apache::lontemplate::print_textarea_template($r, $raw_message,
- $key, $default_rich_text);
- &Apache::lontemplate::print_saveall_template($r);
- if (!exists($data{'properties.v2_converted'})) {
- $r->print("
Delete ");
- $r->print("
Rename to \"Hello, World!\"");
- }
- $r->print("
");
- }
- &Apache::lontemplate::print_end_template($r);
- } else {
- my $safeinit;
- $r->print(&Apache::lonxml::xmlparse($r,'tex','
'.$title.'
'));
- $r->print(&Apache::lonxml::xmlparse($r,'tex',$message));
- }
- push(@html_ids,"hello");
- }
- }
- }
-
- return @html_ids;
-}
-
-sub convert_from_v2 {
- my ($r, $data_ref, $fields_ref, $conflict) = @_;
- my %data = %{$data_ref};
- my %fields = %{$fields_ref};
- my @fields_order = (!$conflict) ? () : @{thaw($data{'data.fields'})};
- my %old_new_map = (!$conflict) ? () : %{thaw($data{'data.old_new_map'})};
- my $repeat_int = 0; #ensure fields with created timestamp are unique
- foreach my $element (sort(keys(%fields))) {
- my %new_element = ();
- my $title = $fields{$element};
- my $title_hash = time."_".$$;
- if (exists($data{'data.field.'.$title_hash})) {
- $title_hash .= "_".$repeat_int++;
- }
- my $content = $data{$element};
- $new_element{title} = $title;
- $new_element{content} = $content;
- if ($element eq 'lll_includeurl') {
- $new_element{type} = TYPE_URL_INCLUDE;
- } else {
- $new_element{type} = TYPE_TEXT_HTML;
- }
- if (!$conflict) {
- $r->print("Creating new field with ID: ".$title_hash."
");
- $data{'data.field.'.$title_hash} = freeze(\%new_element);
- $old_new_map{$element} = $title_hash;
- push(@fields_order, $title_hash);
- } else {
- if (exists($old_new_map{$element})) {
- $r->print("Transferring old field ".$element." to new ID: ".$old_new_map{$element}."
");
- if (exists($data{'data.field.'.$old_new_map{$element}})) {
- my %new_field = %{thaw($data{'data.field.'.$old_new_map{$element}})};
- $new_field{content} = $content;
- $data{'data.field.'.$old_new_map{$element}} = freeze(\%new_field);
- }
- } else {
- $data{'data.field.'.$title_hash} = freeze(\%new_element);
- $old_new_map{$element} = $title_hash;
- $data{'properties.v2_conflict_fail'} = 1;
- push(@fields_order, $title_hash);
- }
- }
- }
- $data{'data.fields'} = freeze(\@fields_order);
- $data{'data.old_new_map'} = freeze(\%old_new_map);
- $data{'properties.last_modified'} = time;
- $data{'properties.v2_converted'} = 1;
- $data{'properties.type'} = 'syllabus';
-
- return \%data;
+sub print_header {
+ my ($r,$cnum,$cdom,$crstype,$allowed,$forceedit,$syllabus,$syllabusfields) = @_;
+ return unless ((ref($syllabus) eq 'HASH') || (ref($syllabusfields) eq 'HASH'));
+# ----------------------------------------------------------------- Make header
+ my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);
+ my $js;
+ if ($env{'form.backto'} eq 'coursecatalog') {
+ $js .= <<"ENDSCRIPT";
+
+
+
+ENDSCRIPT
+ }
+ if ($allowed && $forceedit) {
+ my $check_uncheck = &Apache::loncommon::check_uncheck_jscript();
+ my @fieldnames = sort(keys(%{$syllabusfields}));
+ unshift(@fieldnames,'000_showpeople','111_showrssfeeds');
+ my (@checked,@unchecked);
+ if ($syllabus->{'uploaded.fields'} eq 'none') {
+ my $lastidx = scalar(@fieldnames)-1;
+ @unchecked = (0..$lastidx);
+ } elsif ($syllabus->{'uploaded.fields'}) {
+ my %included;
+ map { $included{$_} = 1; } split(/,/,$syllabus->{'uploaded.fields'});
+ for (my $i=0; $i<@fieldnames; $i++) {
+ my ($prefix) = split(/_/,$fieldnames[$i]);
+ if ($included{$prefix}) {
+ push(@checked,$i);
+ } else {
+ push(@unchecked,$i);
+ }
+ }
+ } else {
+ @checked = (0,1);
+ for (my $i=2; $i<@fieldnames; $i++) {
+ if ($syllabus->{$fieldnames[$i]}) {
+ push(@checked,$i);
+ } else {
+ push(@unchecked,$i);
+ }
+ }
+ }
+ my $fieldstr = "var fields = new Array('".join("','",@fieldnames)."');";
+ my $checkedstr = "var include = new Array('".join("','",@checked)."');";
+ my $uncheckedstr = "var exclude = new Array('".join("','",@unchecked)."');";
+ my $invurl = &mt('Invalid URL');
+ my $urlregexp = <<'ENDREGEXP';
+/^([a-z]([a-z]|\d|\+|-|\.)*):(\/\/(((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:)*@)?((\[(|(v[\da-f]{1,}\.(([a-z]|\d|-|\.|_|~)|[!\$&'\(\)\*\+,;=]|:)+))\])|((\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5]))|(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=])*)(:\d*)?)(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*|(\/((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)?)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)){0})(\?((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|[\uE000-\uF8FF]|\/|\?)*)?(\#((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|\/|\?)*)?$/i
+ENDREGEXP
+
+ $js .= <<"ENDSCRIPT";
+
+
+
+ENDSCRIPT
+ }
+ my $args = {'function' => undef,
+ 'domain' => $cdom};
+ my $forcereg;
+ if ($env{'form.register'}) {
+ $forcereg = 1;
+ $args->{'force_register'} = $forcereg;
+ }
+ if ($env{'form.backto'} eq 'coursecatalog') {
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ my $brcrum = [{href=>"javascript:ToCatalog();",
+ text=>&mt('Course/Community Catalog'),
+ no_mt=>1}
+ ];
+ if ($env{'form.coursenum'} ne '') {
+ push(@{$brcrum},
+ {href=>"javascript:ToCatalog('details')",
+ text=>"Course details"});
+ }
+ push(@{$brcrum},
+ {href=>$r->uri,
+ text=>"Course syllabus"});
+ $args->{'bread_crumbs'} = $brcrum;
+ } else {
+ &get_breadcrumbs($cdom,$cnum,$crstype,$args);
+ }
+ if ($allowed) {
+ my %loaditem = (
+ onload => 'setTemplateBoxes();',
+ );
+ $args->{'add_entries'} = \%loaditem;
+ }
+ my $start_page =
+ &Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args);
+ if ($start_page) {
+ $r->print($start_page);
+ }
+}
+
+sub get_breadcrumbs{
+ my ($cdom,$cnum,$crstype,$args) = @_;
+ return unless (ref($args) eq 'HASH');
+ if ($env{'form.folderpath'} =~ /^supplemental/) {
+ my $title = $env{'form.title'};
+ if ($title eq '') {
+ $title = &mt('Syllabus');
+ }
+ my $brcrum =
+ &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
+ if (ref($brcrum) eq 'ARRAY') {
+ $args->{'bread_crumbs'} = $brcrum;
+ }
+ } else {
+ if ((&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus"))
+ && (($env{'form.symb'}) || ($env{'form.register'}))) {
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ } else {
+ $args->{'bread_crumbs'} = [
+ {'href' => "/public/$cdom/$cnum/syllabus",
+ 'text' => 'Syllabus'},
+ ];
+ }
+ }
+ return;
+}
+
+sub chooser {
+ my ($external,$uploaded,$minimal,$cdom,$cnum,$lonhost,$fields,$values) = @_;
+ my %lt = &Apache::lonlocal::texthash(
+ 'type' => 'Syllabus Type',
+ 'url' => 'External URL',
+ 'file' => 'Uploaded file',
+ 'minimal' => 'Minimal template',
+ 'template' => 'Standard template',
+ 'templateboxes' => 'Choose template items ... ',
+ 'curr' => 'Current:',
+ 'rep' => 'Replace:',
+ 'upl' => 'Upload:',
+ 'pr' => 'Preview',
+ 'save' => 'Save',
+ 'sved' => 'Save and Edit',
+ 'chourl' => 'External URL',
+ 'chofile' => 'Uploaded syllabus file',
+ 'parse' => 'Upload embedded images/multimedia files if HTML file',
+ );
+ my %checked = (
+ file => '',
+ minimal => '',
+ url => '',
+ template => '',
+ );
+ my %display = (
+ file => 'none',
+ minimal => 'none',
+ url => 'none',
+ templatebox => 'none',
+ );
+ my $check = ' checked="checked" ';
+ if ($uploaded) {
+ $checked{'file'} = $check;
+ $display{'file'} = 'block';
+ } elsif ($external) {
+ $checked{'url'} = $check;
+ $display{'url'} = 'block';
+ } elsif ($minimal) {
+ $checked{'minimal'} = $check;
+ $display{'minimal'} = 'block';
+ } else {
+ $checked{'template'} = $check;
+ $checked{'templatebox'} = $check;
+ $display{'templatebox'} = 'block';
+ }
+
+ my $output =
+ '