[LON-CAPA-cvs] cvs: loncom /interface lonsyllabus.pm

bisitz lon-capa-cvs-allow@mail.lon-capa.org
Wed, 22 Oct 2008 08:56:36 -0000


bisitz		Wed Oct 22 04:56:36 2008 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  Replaced data_table with pick_box for course personnel list
  
  Still to do:
  Find a simple way to close the last row in a different way: "(1)" instead of "()"
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.67 loncom/interface/lonsyllabus.pm:1.68
--- loncom/interface/lonsyllabus.pm:1.67	Mon Aug 25 10:50:01 2008
+++ loncom/interface/lonsyllabus.pm	Wed Oct 22 04:56:35 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.67 2008/08/25 14:50:01 raeburn Exp $
+# $Id: lonsyllabus.pm,v 1.68 2008/10/22 08:56:35 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -179,14 +179,13 @@
 # -------------------------------------------------------- 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) {
 	if ($target ne 'tex') {
-	    $r->print(&Apache::loncommon::start_data_table_row().
-		      '<td>'.$element.'</td><td>');
+	    $r->print(&Apache::lonhtmlcommon::row_title($element));
 	} else {
 	    $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); 
 	}
@@ -207,13 +206,13 @@
 	    }
 	}
 	if ($target ne 'tex') {
-	    $r->print('</td>'.&Apache::loncommon::end_data_table_row());
+	    $r->print(&Apache::lonhtmlcommon::row_closure());
 	} 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}\\\\');
     }