loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.168, 2003/12/05 19:40:56	version 1.170, 2003/12/11 13:51:09
Line 49 use Apache::loncoursedata;	Line 49 use Apache::loncoursedata;
use Apache::lonmsg qw(:user_normal_msg);	use Apache::lonmsg qw(:user_normal_msg);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonlocal;	use Apache::lonlocal;
#use String::Similarity;	use String::Similarity;

my %oldessays=();	my %oldessays=();
my %perm=();	my %perm=();
Line 1679 KEYWORDS	Line 1679 KEYWORDS
my $toGrade.='<input type="button" value="Grade Student" '.	my $toGrade.='<input type="button" value="Grade Student" '.
'onClick="javascript:checksubmit(this.form,\'Grade Student\',\''	'onClick="javascript:checksubmit(this.form,\'Grade Student\',\''
.$counter.'\');" TARGET=_self>  '."\n" if (&canmodify($usec));	.$counter.'\');" TARGET=_self>  '."\n" if (&canmodify($usec));
$toGrade.='</td></tr></table></td></tr></table></form>'."\n";	$toGrade.='</td></tr></table></td></tr></table>'."\n";
$toGrade.=&show_grading_menu_form($symb,$url)	if (($ENV{'form.command'} eq 'submission') \|\|
if (($ENV{'form.command'} eq 'submission') \|\|	($ENV{'form.command'} eq 'processGroup' && $counter == $total)) {
($ENV{'form.command'} eq 'processGroup' && $counter == $total));	$toGrade.='</form>'.&show_grading_menu_form($symb,$url)
	}
$request = print($toGrade);	$request = print($toGrade);
return;	return;
}	}