--- loncom/homework/grades.pm 2002/11/27 16:39:37 1.62 +++ loncom/homework/grades.pm 2003/01/09 21:33:07 1.66 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.62 2002/11/27 16:39:37 albertel Exp $ +# $Id: grades.pm,v 1.66 2003/01/09 21:33:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -352,7 +352,7 @@ LISTJAVASCRIPT ''."\n". ''."\n". ''."\n". - '
'."\n". + '
'."\n". '
'."\n". ''."\n". ''."\n". @@ -846,7 +846,7 @@ sub submission { # option to display problem, only once else it cause problems # with the form later since the problem has a form. - if ($ENV{'form.vProb'} eq 'yes') { + if ($ENV{'form.vProb'} eq 'yes' or !$ENV{'form.vProb'}) { &show_problem($request,$symb,$uname,$udom,0); } @@ -1725,8 +1725,8 @@ sub viewstudentgrade { ''.$fullname.''. ''.$uname.''.$udom.''."\n"; - foreach my $part (@$parts) { - my ($part,$type) = &split_part_type($part); + foreach my $apart (@$parts) { + my ($part,$type) = &split_part_type($apart); my $score=$record{"resource.$part.$type"}; if ($type eq 'awarded') { my $pts = $score eq '' ? '' : $score*$$weight{$part};