--- loncom/homework/grades.pm 2007/06/17 02:11:44 1.416
+++ loncom/homework/grades.pm 2007/06/22 22:50:30 1.417
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.416 2007/06/17 02:11:44 www Exp $
+# $Id: grades.pm,v 1.417 2007/06/22 22:50:30 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -617,7 +617,7 @@ sub verifyreceipt {
if ($receipt eq &Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb,$part)) {
$contents.='
'."\n".
''.$$fullname{$_}.' '."\n".
+ '\');" target="_self">'.$$fullname{$_}.' '."\n".
' '.$uname.' '.
' '.$udom.' ';
if ($receiptparts) {
@@ -1792,10 +1792,10 @@ sub submission {
#
$request->print(<Keyword Options:
-List
+List
Paste Selection to List
-Highlight Attribute
+Highlight Attribute
KEYWORDS
#
# Load the other essays for similarity check
@@ -1921,7 +1921,7 @@ KEYWORDS
' Collaborative submission by: '.
''.
+ '\');" target="_self">'.
$$fullname{$env{"form.$uname:$udom:$partid:submitted_by"}}.' ';
$request->print($submitby);
next;
@@ -1999,7 +1999,7 @@ KEYWORDS
if ($env{'form.showgrading'} eq '' || (!&canmodify($usec))) {
my $toGrade.=' '."\n" if (&canmodify($usec));
+ .$counter.'\');" target="_self" /> '."\n" if (&canmodify($usec));
$toGrade.=' '."\n";
if (($env{'form.command'} eq 'submission') ||
($env{'form.command'} eq 'processGroup' && $counter == $total)) {
@@ -2023,7 +2023,7 @@ KEYWORDS
$result=' '."\n".
' '."\n";
$result.=' '.
+ ',\''.$msgfor.'\');" target="_self">'.
&mt('Compose message to student').(scalar(@col_fullnames) >= 1 ? 's' : '').' ('.
&mt('incl. grades').' )'.
''."\n";
$endform.=' '."\n";
+ $total.','.scalar(@partlist).');" target="_self" /> '."\n";
my $ntstu =''.
'1 2 '.
'3 5 '.
@@ -2084,9 +2084,9 @@ KEYWORDS
$ntstu =~ s/$nsel $nsel;
$endform.=$ntstu.'student(s) ';
$endform.=' '."\n".
+ 'onClick="javascript:checksubmit(this.form,\'Previous\');" target="_self" /> '."\n".
' ';
+ 'onClick="javascript:checksubmit(this.form,\'Next\');" target="_self" /> ';
$endform.='(Next and Previous (student) do not save the scores.)'."\n" ;
$endform.=" ";
@@ -3036,7 +3036,7 @@ sub viewgrades {
$result.=''.' '.''."\n".
' ';
$result.=' ';
+ 'onClick="javascript:resetEntry('.$ctsparts.');" target="_self" />';
#table listing all the students in a section/class
#header of table
@@ -3087,7 +3087,7 @@ sub viewgrades {
$result.='';
$result.=' '."\n";
$result.=' '."\n";
+ 'onClick="javascript:submit();" target="_self" />'."\n";
if (scalar(%$fullname) eq 0) {
my $colspan=3+scalar(@parts);
$result='There are no students in section "'.$env{'form.section'}.
@@ -3107,7 +3107,7 @@ sub viewstudentgrade {
' '.
"\n".$ctr.' '.
''.$fullname.' '.
+ '\');" target="_self">'.$fullname.' '.
'('.$uname.($env{'user.domain'} eq $udom ? '' : ':'.$udom).') '."\n";
$student=~s/:/_/; # colon doen't work in javascript for names
foreach my $apart (@$parts) {