[LON-CAPA-cvs] cvs: loncom /homework grades.pm

banghart lon-capa-cvs-allow@mail.lon-capa.org
Fri, 05 Oct 2007 16:43:32 -0000


banghart		Fri Oct  5 12:43:32 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	Saving work in progress. Still has broken parts.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.443 loncom/homework/grades.pm:1.444
--- loncom/homework/grades.pm:1.443	Wed Oct  3 22:00:29 2007
+++ loncom/homework/grades.pm	Fri Oct  5 12:43:31 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.443 2007/10/04 02:00:29 banghart Exp $
+# $Id: grades.pm,v 1.444 2007/10/05 16:43:31 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6954,7 +6954,9 @@
 
     #
     # Define menu data
-     
+    $env{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
+    my ($table) = &showResourceInfo($symb,$env{'form.probTitle'});
+    $request->print($table);
     my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),
                   'handgrade'=>$hdgrade,
                   'probTitle'=>$probTitle,
@@ -6989,6 +6991,7 @@
     $fields{'command'} = 'verify';
     $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
     push (@menu, { url => $url,
+                   jscript => ' onChange="javascript:checkReceiptNo(this.form,\'OK\')" ',
                    name => &mt('Verify Receipt'),
                    short_description => 
             &mt('')});
@@ -7008,16 +7011,22 @@
     #
     # Create the menu
     my $Str;
-    $Str .= '<h2>'.&mt('Please select a grading task').'</h2>';
+    # $Str .= '<h2>'.&mt('Please select a grading task').'</h2>';
+    $Str .= '<form method="post" action="adm/grades" name="gradingMenu">';
     foreach my $menudata (@menu) {
-        $Str .='    <h3><a href="'.
+        $Str .='    <h3><a '.
+            $menudata->{'jscript'}.
+            ' href="'.
             $menudata->{'url'}.'" >'.
             $menudata->{'name'}."</a></h3>\n";
+        if ($menudata->{'name'} eq &mt('Verify Receipt')) {
+            $Str .= ' receipt: 156-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')" />';
+        }
         $Str .= '    '.('&nbsp;'x8).$menudata->{'short_description'}.
             "\n";
     }
     $Str .="</dl>\n";
-    
+    $Str .="</form>\n";
     $request->print(<<GRADINGMENUJS);
 <script type="text/javascript" language="javascript">
     function checkChoice(formname,val,cmdx) {