version 1.505, 2008/02/04 13:46:35
|
version 1.508, 2008/02/05 18:32:34
|
Line 3960 sub csvuploadassign {
|
Line 3960 sub csvuploadassign {
|
$grades{$store_key}=$entries{$fields{$dest}}; |
$grades{$store_key}=$entries{$fields{$dest}}; |
} |
} |
} |
} |
if (! %grades) { push(@skipped,"$username:$domain no data to save"); } |
if (! %grades) { |
$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}"; |
push(@skipped,&mt("[_1]: no data to save","$username:$domain")); |
my $result=&Apache::lonnet::cstore(\%grades,$symb, |
} else { |
|
$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}"; |
|
my $result=&Apache::lonnet::cstore(\%grades,$symb, |
$env{'request.course.id'}, |
$env{'request.course.id'}, |
$domain,$username); |
$domain,$username); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$request->print('.'); |
$request->print('.'); |
} else { |
} else { |
$request->print("<p> |
$request->print("<p><span class=\"LC_error\">". |
<span class=\"LC_error\"> |
&mt("Failed to save data for student [_1]. Message when trying to save was: [_2]", |
Failed to save student $username:$domain. |
"$username:$domain",$result)."</span></p>"); |
Message when trying to save was ($result) |
} |
</span> |
$request->rflush(); |
</p>" ); |
$countdone++; |
} |
} |
$request->rflush(); |
|
$countdone++; |
|
} |
} |
$request->print("<br />Saved $countdone students\n"); |
$request->print('<br /><span class="LC_info">'.&mt("Saved [_1] students",$countdone)."</span>\n"); |
if (@skipped) { |
if (@skipped) { |
$request->print('<p><h4><b>Skipped Students</b></h4></p>'); |
$request->print('<p><span class="LC_warning">'.&mt('Skipped Students').'</span></p>'); |
foreach my $student (@skipped) { $request->print("$student<br />\n"); } |
foreach my $student (@skipped) { $request->print("$student<br />\n"); } |
} |
} |
if (@notallowed) { |
if (@notallowed) { |
$request->print('<p><span class="LC_error">Students Not Allowed to Modify</span></p>'); |
$request->print('<p><span class="LC_error">'.&mt('Students Not Allowed to Modify').'</span></p>'); |
foreach my $student (@notallowed) { $request->print("$student<br />\n"); } |
foreach my $student (@notallowed) { $request->print("$student<br />\n"); } |
} |
} |
$request->print("<br />\n"); |
$request->print("<br />\n"); |
Line 5524 sub scantron_validator_positional {
|
Line 5524 sub scantron_validator_positional {
|
# If the split only gives us one element.. the full length of the |
# If the split only gives us one element.. the full length of the |
# answer string, no bubbles are filled in: |
# answer string, no bubbles are filled in: |
|
|
|
if ($answers_needed eq '') { |
|
return; |
|
} |
|
|
if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) { |
if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) { |
for (my $ans=0; $ans<$answers_needed; $ans++ ) { |
for (my $ans=0; $ans<$answers_needed; $ans++ ) { |
$record->{"scantron.$ansnum.answer"}=''; |
$record->{"scantron.$ansnum.answer"}=''; |
Line 6762 sub questions_to_line_list {
|
Line 6766 sub questions_to_line_list {
|
$first = $first_bubble_line{$question-1} + 1; |
$first = $first_bubble_line{$question-1} + 1; |
$count = $bubble_lines_per_response{$question-1}; |
$count = $bubble_lines_per_response{$question-1}; |
} |
} |
my $last = $first+$count-1; |
$last = $first+$count-1; |
push(@lines, ($first..$last)); |
push(@lines, ($first..$last)); |
} |
} |
return join(',', @lines); |
return join(',', @lines); |