--- loncom/interface/lonsyllabus.pm 2010/02/15 20:28:51 1.106.2.3 +++ 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.3 2010/02/15 20:28:51 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 # @@ -151,13 +151,17 @@ ENDSCRIPT ENDSCRIPT @@ -611,7 +642,7 @@ ENDSCRIPT &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)); if ($target ne 'tex') { if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { - $r->print("
"); + &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("
\n"); @@ -671,8 +702,8 @@ ENDSCRIPT @htmlids = &print_template_new_fields($r, \%data, $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash); if ($allowed) { - $r->print(''. - &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); + $r->print(''); + #&Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); } if ($target ne 'tex') {$r->print('

 

');} if ($allowed) { @@ -704,22 +735,38 @@ ENDSCRIPT return OK; } +sub print_activity_bar { + my ($r, $data_ref, $target, $allowed, $default_rich_text, $group) = @_; + $r->print("
+ + +
"); +} + 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"); foreach my $key (@fields) { my %field = %{thaw($data{'data.field.'.$key})}; - $r->print("
  • $field{title}
  • \n"); + $r->print("
  • $field{title}
  • \n"); } $r->print("
    - +
    + + +
    \n"); }