[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 .= ' '.(' '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) {