'.
'';
@@ -1502,7 +1501,7 @@ sub gradeBox {
$result.= ' | \n";
+ ($score eq $thisweight ? 'checked="checked"':'').' /> '.$thisweight."\n";
$result.=(($ctr+1)%10 == 0 ? ' ' : '');
$thisweight += $increment;
$ctr++;
@@ -1520,9 +1519,9 @@ sub gradeBox {
'onChange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n";
if ($$record{'resource.'.$partid.'.solved'} eq 'excused') {
$result.=''.
- '';
+ '';
} else {
- $result.=''.
+ $result.=''.
'';
}
$result.=''."\n";
@@ -1753,7 +1752,7 @@ sub submission {
''."\n".
''."\n".
''."\n".
- ''."\n".
+ ''."\n".
''."\n".
''."\n".
''."\n".
@@ -1960,8 +1959,8 @@ KEYWORDS
($env{'form.lastSub'} eq 'hdgrade' &&
$$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) {
my $display_part=&get_display_part($partid,$symb);
- $lastsubonly.=' Part: '.
- $display_part.' ( ID '.$respid.
+ $lastsubonly.='Debug -'.'Part: '.
+ $display_part.' ( hhhh ID '.$respid.
' ) ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {
@@ -2083,7 +2082,7 @@ KEYWORDS
''.
''."\n";
my $nsel = ($env{'form.NTSTU'} ne '' ? $env{'form.NTSTU'} : '1');
- $ntstu =~ s/ | | '.
' | '."\n";
@@ -3132,8 +3146,8 @@ sub viewstudentgrade {
$result.=' | \n";
} else {
@@ -3458,7 +3472,6 @@ sub csvuploadmap_header {
my ($result) = &showResourceInfo($symb,$env{'form.probTitle'});
my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
my $ignore=&mt('Ignore First Line');
- $symb = &Apache::lonenc::check_encrypt($symb);
$request->print(<
Uploading Class Grades
@@ -3553,7 +3566,6 @@ sub upcsvScores_form {
my $upload=&mt("Upload Scores");
my $upfile_select=&Apache::loncommon::upfile_select_html();
my $ignore=&mt('Ignore First Line');
- $symb = &Apache::lonenc::check_encrypt($symb);
$result.=<
@@ -3836,7 +3848,7 @@ LISTJAVASCRIPT
foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
$result.=''."\n";
$ctr++;
}
@@ -3851,18 +3863,18 @@ LISTJAVASCRIPT
$result.=''."\n".
''."\n";
- $result.=' View Problems Text: '."\n".
+ $result.=' View Problems Text: '."\n".
''." \n";
$result.=' Submission Details: '.
''."\n".
- ''."\n".
+ ''."\n".
''."\n";
$result.=''."\n".
''."\n".
''."\n".
- ''."\n".
+ ''."\n".
''." \n";
$result.=' '.&mt('Use CODE:').' '.
@@ -3986,7 +3998,7 @@ sub displayPage {
''."\n".
''."\n".
''."\n".
- ''."\n".
+ ''."\n".
''."\n".
''."\n";
@@ -4358,7 +4370,7 @@ sub updateGradeByPage {
sub defaultFormData {
my ($symb)=@_;
return '
- '."\n".
+ '."\n".
''."\n".
''."\n";
}
@@ -4372,7 +4384,7 @@ sub getSequenceDropDown {
foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
$result.=''."\n";
$ctr++;
}
@@ -4400,7 +4412,7 @@ sub scantron_uploads {
my $result= '";
return $result;
@@ -4951,7 +4963,7 @@ sub remember_current_skipped {
sub check_for_error {
my ($r,$result)=@_;
if ($result ne 'ok' && $result ne 'not_found' ) {
- $r->print("An error occured ($result) when trying to Remove the existing corrections.");
+ $r->print("An error occurred ($result) when trying to Remove the existing corrections.");
}
}
@@ -5413,7 +5425,7 @@ sub scantron_get_correction {
if ($closest > 0) {
foreach my $testcode (@{$closest}) {
my $checked='';
- if (!$i) { $checked=' checked="on" '; }
+ if (!$i) { $checked=' checked="checked" '; }
$r->print("");
$r->print("\n ");
$i++;
@@ -5421,7 +5433,7 @@ sub scantron_get_correction {
}
}
if ($$scan_record{'scantron.CODE'}=~/\S/ ) {
- my $checked; if (!$i) { $checked=' checked="on" '; }
+ my $checked; if (!$i) { $checked=' checked="checked" '; }
$r->print("");
$r->print("\n ");
}
@@ -5927,7 +5939,7 @@ DOWNLOAD
sub show_grading_menu_form {
my ($symb)=@_;
my $result.='
';
$result.=' | '."\n";
+ ($saveSub eq 'all' ? 'selected="selected"' : '').'>'.&mt('with any status').''."\n";
$result.=''.
' | '."\n";
$result.=''.
' | '."\n";
$result.=' '.
@@ -6066,6 +6078,11 @@ GRADINGMENUJS
''.
' '.&mt('scores from file').' | '."\n";
+# $result.=''.
+# ''.
+# ' '.&mt('clicker file').' | '."\n";
+
+
$result.=''.
' scantron forms | '."\n";
@@ -6085,9 +6102,9 @@ GRADINGMENUJS
' saved CODEs.'."\n";
- $result.=' '."\n".
+ $result.=' |