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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 21 Oct 2003 20:24:52 -0000


matthew		Tue Oct 21 16:24:52 2003 EDT

  Modified files:              
    /loncom/interface	lonstatistics.pm 
  Log:
  Reworked main statistics menu format and text.
  
  
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.86 loncom/interface/lonstatistics.pm:1.87
--- loncom/interface/lonstatistics.pm:1.86	Wed Oct 15 14:01:10 2003
+++ loncom/interface/lonstatistics.pm	Tue Oct 21 16:24:52 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.86 2003/10/15 18:01:10 www Exp $
+# $Id: lonstatistics.pm,v 1.87 2003/10/21 20:24:52 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1056,19 +1056,16 @@
                    # 'percentage'  => 'Correct-problems Plot',
                    # 'activitylog' => 'Activity Log',
                    );
-
     #
     # Create the menu
     my $Str;
-    $Str =  "<h2>".&mt('Statistics and Problem Analysis')."</h2>\n";
-    $Str .= &mt('Please select a report to generate.');
-    $Str .= "<dl>\n";
+    $Str .= '<h1>'.&mt('Please select a report to generate').'</h1>';
     foreach my $reportdata (@reports) {
-        $Str .='    <dt><a href="/adm/statistics?reportSelected='.
+        $Str .='    <h3><a href="/adm/statistics?reportSelected='.
             $reportdata->{'internal_name'}.'" >'.
-            $reportdata->{'name'}."</a></dt>\n";
-        $Str .= '        <dd>'.$reportdata->{'short_description'}.
-            "</dd>\n";
+            $reportdata->{'name'}."</a></h3>\n";
+        $Str .= '    '.('&nbsp;'x8).$reportdata->{'short_description'}.
+            "\n";
     }
     $Str .="</dl>\n";
     #