--- loncom/interface/lonsyllabus.pm 2010/02/15 16:05:32 1.106.2.2
+++ loncom/interface/lonsyllabus.pm 2010/02/17 04:48:09 1.106.2.4
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Syllabus
#
-# $Id: lonsyllabus.pm,v 1.106.2.2 2010/02/15 16:05:32 faziophi Exp $
+# $Id: lonsyllabus.pm,v 1.106.2.4 2010/02/17 04:48:09 faziophi Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -147,6 +147,133 @@ function getIndexByName(item) {
ENDSCRIPT
}
+ $js .= <<'ENDSCRIPT';
+
+
+
+
+ENDSCRIPT
my $start_page =
&Apache::loncommon::start_page("Syllabus", $rss_link.$js,
{'function' => undef,
@@ -195,14 +322,14 @@ ENDSCRIPT
$r->print("Flushed syllabus DB file.
");
$r->print("Syllabus conflict: ".$syllabus{'properties.v2_conflict'}."
");
}
- $r->print("Existing fields: ".$syllabus{'data.fields'}."
");
- $r->print("Old-new map: ".$syllabus{'data.old_new_map'}."
");
- $r->print("Deleted fields: ".$syllabus{'data.deleted_fields'}."
");
+ #$r->print("Existing fields: ".$syllabus{'data.fields'}."
");
+ #$r->print("Old-new map: ".$syllabus{'data.old_new_map'}."
");
+ #$r->print("Deleted fields: ".$syllabus{'data.deleted_fields'}."
");
if (!exists($syllabus{'data.fields'})) {
# convert existing 2.x data to new DB fields
# which become new primary data source for document
%data = %{convert_from_v2($r, \%syllabus, \%syllabusfields, 0)};
- $r->print("New fields order: ".$data{'data.fields'}."
");
+ #$r->print("New fields order: ".$data{'data.fields'}."
");
&Apache::lonnet::put('syllabus',\%data,$cdom,$cnum);
} elsif ( !exists($syllabus{'properties.v2_converted'}) &&
exists($syllabus{'uploaded.lastmodified'}) &&
@@ -244,12 +371,12 @@ ENDSCRIPT
#do not delete if file in v2 conversion mode
if (exists($data{'data.field.'.$field}) &&
!exists($data{'properties.v2_converted'})) {
- $r->print("Field '$field' can be deleted.
");
+ #$r->print("Field '$field' can be deleted.
");
# linearly parse "data.fields" and remove it
for (my $i = 0; $i < length(@fields); $i++) {
if ($fields[$i] eq $field) {
splice(@fields, $i, 1);
- $r->print("Removed entry $i from 'data.fields'
");
+ #$r->print("Removed entry $i from 'data.fields'
");
}
}
# if "data.deleted" does not exist, create it
@@ -286,7 +413,7 @@ ENDSCRIPT
if (exists($data{'data.field.'.$field}) &&
!exists($data{'properties.v2_converted'})) {
#sanitize HTML content
- $r->print("Rename -- field found.
");
+ #$r->print("Rename -- field found.
");
my %db_entry = %{thaw($data{'data.field.'.$field})};
$new_title = &Apache::lonfeedback::clear_out_html($new_title, 1);
$db_entry{title} = $new_title;
@@ -301,7 +428,7 @@ ENDSCRIPT
my %field_hash;
# only update a field if it already exists!
if (exists($data{'data.field.'.$syl_field})) {
- $r->print("Creating/updated field ".$syl_field."
");
+ #$r->print("Creating/updated field ".$syl_field."
");
%field_hash = exists($data{'data.field.'.$syl_field}) ?
%{thaw($data{'data.field.'.$syl_field})} : ();
$type = exists($field_hash{type}) ? $field_hash{type} : TYPE_TEXT_HTML;
@@ -359,9 +486,9 @@ ENDSCRIPT
#2.x compatibility: write to old fields with new mapped fields
my %old_new_map = %{thaw($data{'data.old_new_map'})};
foreach my $old_field (keys(%old_new_map)) {
- $r->print("Looking for: ".$old_field." at ".$old_new_map{$old_field}."
");
+ #$r->print("Looking for: ".$old_field." at ".$old_new_map{$old_field}."
");
if (exists($data{'data.field.'.$old_new_map{$old_field}})) {
- $r->print("updating old field ".$old_field."
");
+ #$r->print("updating old field ".$old_field."
");
my %new_field = %{thaw($data{'data.field.'.$old_new_map{$old_field}})};
$data{$old_field} = $new_field{content};
}
@@ -514,17 +641,11 @@ ENDSCRIPT
my $day = &Apache::lonannounce::showday(time,2,
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
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 $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);
+ if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
+ &print_activity_bar($r, \%data, $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML);
+ &print_field_sortable($r, \%data, $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML);
}
+ $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); } } else { if ($target ne 'tex') {$r->print('
');} else {$r->print('\par ');} @@ -602,6 +735,41 @@ ENDSCRIPT return OK; } +sub print_activity_bar { + my ($r, $data_ref, $target, $allowed, $default_rich_text, $group) = @_; + $r->print("