[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[raeburn]

raeburn		Sat Jul 26 15:05:29 2008 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - Standard LON-CAPA datatable for keywords table.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.240 loncom/publisher/lonpublisher.pm:1.241
--- loncom/publisher/lonpublisher.pm:1.240	Sat Jul 26 12:03:46 2008
+++ loncom/publisher/lonpublisher.pm	Sat Jul 26 15:05:27 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.240 2008/07/26 16:03:46 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.241 2008/07/26 19:05:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -123,6 +123,7 @@
 use DBI;
 use Apache::lonnet;
 use Apache::loncommon();
+use Apache::lonhtmlcommon;
 use Apache::lonmysql;
 use Apache::lonlocal;
 use Apache::loncfile;
@@ -1237,7 +1238,9 @@
                 .'<input type="button" value="'.&mt('check all').'" onclick="javascript:checkAll(document.pubform.keywords)" />'
                 .'<input type="button" value="'.&mt('uncheck all').'" onclick="javascript:uncheckAll(document.pubform.keywords)" />'
                 .'</p><br />'
-                .'<table border="2"><tr>';
+                .&Apache::loncommon::start_data_table()
+                .&Apache::loncommon::start_data_table_row();
+
     my $colcount=0;
 
     foreach (sort keys %keywords) {
@@ -1260,7 +1263,8 @@
     }
     $env{'form.keywords'}=~s/\,$//;
 
-    $keywordout.='</tr></table>'
+    $keywordout.=&Apache::loncommon::end_data_table_row()
+                 .&Apache::loncommon::end_data_table()
                  .&Apache::lonhtmlcommon::row_closure();
 
     $intr_scrout.=$keywordout;