--- loncom/homework/grades.pm 2007/11/28 02:59:27 1.498
+++ loncom/homework/grades.pm 2007/12/15 21:54:35 1.500
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.498 2007/11/28 02:59:27 albertel Exp $
+# $Id: grades.pm,v 1.500 2007/12/15 21:54:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4174,7 +4174,8 @@ sub displayPage {
my $result='
'.$env{'form.title'}.'
';
$result.=' '.&mt('Student: [_1]',&nameUserString(undef,$$fullname{$env{'form.student'}},$uname,$udom)).
'
'."\n";
- if (&Apache::lonnet::validCODE($env{'form.CODE'})) {
+ $env{'form.CODE'} = uc($env{'form.CODE'});
+ if (&Apache::lonnet::validCODE(uc($env{'form.CODE'})) {
$result.=' '.&mt('CODE: [_1]',$env{'form.CODE'}).'
'."\n";
} else {
delete($env{'form.CODE'});
@@ -7676,6 +7677,7 @@ GRADINGMENUJS
';
+ $result .= &show_grading_menu_form($symb);
return $result;
}