|
version 1.596.2.5, 2011/10/10 18:27:34
|
version 1.596.2.12.2.3, 2012/05/02 15:21:00
|
|
Line 272 sub reset_caches {
|
Line 272 sub reset_caches {
|
| } |
} |
| |
|
| sub get_analyze { |
sub get_analyze { |
| my ($symb,$uname,$udom,$no_increment,$add_to_hash,$type,$trial,$rndseed)=@_; |
my ($symb,$uname,$udom,$no_increment,$add_to_hash,$type,$trial,$rndseed,$bubbles_per_row)=@_; |
| my $key = "$symb\0$uname\0$udom"; |
my $key = "$symb\0$uname\0$udom"; |
| if ($type eq 'randomizetry') { |
if ($type eq 'randomizetry') { |
| if ($trial ne '') { |
if ($trial ne '') { |
|
Line 306 sub reset_caches {
|
Line 306 sub reset_caches {
|
| 'grade_courseid' => $env{'request.course.id'}, |
'grade_courseid' => $env{'request.course.id'}, |
| 'grade_username' => $uname, |
'grade_username' => $uname, |
| 'grade_noincrement' => $no_increment); |
'grade_noincrement' => $no_increment); |
| |
if ($bubbles_per_row ne '') { |
| |
$form{'bubbles_per_row'} = $bubbles_per_row; |
| |
} |
| if ($type eq 'randomizetry') { |
if ($type eq 'randomizetry') { |
| $form{'grade_questiontype'} = $type; |
$form{'grade_questiontype'} = $type; |
| if ($rndseed ne '') { |
if ($rndseed ne '') { |
|
Line 346 sub reset_caches {
|
Line 349 sub reset_caches {
|
| } |
} |
| |
|
| sub scantron_partids_tograde { |
sub scantron_partids_tograde { |
| my ($resource,$cid,$uname,$udom,$check_for_randomlist) = @_; |
my ($resource,$cid,$uname,$udom,$check_for_randomlist,$bubbles_per_row) = @_; |
| my (%analysis,@parts); |
my (%analysis,@parts); |
| if (ref($resource)) { |
if (ref($resource)) { |
| my $symb = $resource->symb(); |
my $symb = $resource->symb(); |
|
Line 354 sub reset_caches {
|
Line 357 sub reset_caches {
|
| if ($check_for_randomlist) { |
if ($check_for_randomlist) { |
| $add_to_form = { 'check_parts_withrandomlist' => 1,}; |
$add_to_form = { 'check_parts_withrandomlist' => 1,}; |
| } |
} |
| my $analyze = &get_analyze($symb,$uname,$udom,undef,$add_to_form); |
my $analyze = |
| |
&get_analyze($symb,$uname,$udom,undef,$add_to_form, |
| |
undef,undef,undef,$bubbles_per_row); |
| if (ref($analyze) eq 'HASH') { |
if (ref($analyze) eq 'HASH') { |
| %analysis = %{$analyze}; |
%analysis = %{$analyze}; |
| } |
} |
|
Line 416 sub cleanRecord {
|
Line 421 sub cleanRecord {
|
| '<tr valign="top"><td>'.$grayFont.&mt('Item ID').'</span></td>'. |
'<tr valign="top"><td>'.$grayFont.&mt('Item ID').'</span></td>'. |
| $middlerow.'</tr>'. |
$middlerow.'</tr>'. |
| '<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'. |
'<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'. |
| $bottomrow.'</tr>'.'</table></blockquote>'; |
$bottomrow.'</tr></table></blockquote>'; |
| } elsif ($response eq 'radiobutton') { |
} elsif ($response eq 'radiobutton') { |
| my %answer=&Apache::lonnet::str2hash($answer); |
my %answer=&Apache::lonnet::str2hash($answer); |
| my ($toprow,$bottomrow); |
my ($toprow,$bottomrow); |
|
Line 1825 sub gradeBox {
|
Line 1830 sub gradeBox {
|
| $line.='<option value="reset status">'.&mt('reset status').'</option></select>'."\n"; |
$line.='<option value="reset status">'.&mt('reset status').'</option></select>'."\n"; |
| |
|
| |
|
| #&mt('<td><b>Part:</b></td><td>[_1]</td><td><b>Points:</b></td><td>[_2]</td><td>or</td><td>[_3]</td>',$display_part,$radio,$line); |
|
| $result .= |
$result .= |
| '<td>'.$display_part.'</td><td>'.$radio.'</td><td>'.&mt('or').'</td><td>'.$line.'</td>'; |
'<td>'.$display_part.'</td><td>'.$radio.'</td><td>'.&mt('or').'</td><td>'.$line.'</td>'; |
| $result.=&Apache::loncommon::end_data_table_row(); |
$result.=&Apache::loncommon::end_data_table_row(); |
|
Line 2106 sub submission {
|
Line 2110 sub submission {
|
| keyw => 'Keyword Options', |
keyw => 'Keyword Options', |
| list => 'List', |
list => 'List', |
| past => 'Paste Selection to List', |
past => 'Paste Selection to List', |
| high => 'Hightlight Attribute', |
high => 'Highlight Attribute', |
| ); |
); |
| # |
# |
| # Print out the keyword options line |
# Print out the keyword options line |
|
Line 2468 sub check_collaborators {
|
Line 2472 sub check_collaborators {
|
| (split(/[,;\s]+/,$record->{'resource.'.$part.'.collaborators'})) { |
(split(/[,;\s]+/,$record->{'resource.'.$part.'.collaborators'})) { |
| $possible_collaborator =~ s/[\$\^\(\)]//g; |
$possible_collaborator =~ s/[\$\^\(\)]//g; |
| next if ($possible_collaborator eq ''); |
next if ($possible_collaborator eq ''); |
| my ($co_name,$co_dom) = split(/\@|:/,$possible_collaborator); |
my ($co_name,$co_dom) = split(/:/,$possible_collaborator); |
| $co_dom = $udom if (! defined($co_dom) || $co_dom =~ /^domain$/i); |
$co_dom = $udom if (! defined($co_dom) || $co_dom =~ /^domain$/i); |
| next if ($co_name eq $uname && $co_dom eq $udom); |
next if ($co_name eq $uname && $co_dom eq $udom); |
| # Doing this grep allows 'fuzzy' specification |
# Doing this grep allows 'fuzzy' specification |
|
Line 2481 sub check_collaborators {
|
Line 2485 sub check_collaborators {
|
| } |
} |
| } |
} |
| if (scalar(@good_collaborators) != 0) { |
if (scalar(@good_collaborators) != 0) { |
| $result.='<br />'.&mt('Collaborators: ').'<ol>'; |
$result.='<br />'.&mt('Collaborators:').'<ol>'; |
| foreach my $name (@good_collaborators) { |
foreach my $name (@good_collaborators) { |
| my ($lastname,$givenn) = split(/,/,$$fullname{$name}); |
my ($lastname,$givenn) = split(/,/,$$fullname{$name}); |
| push(@col_fullnames, $givenn.' '.$lastname); |
push(@col_fullnames, $givenn.' '.$lastname); |
|
Line 3002 sub handback_files {
|
Line 3006 sub handback_files {
|
| &file_name_version_ext($answer_file); |
&file_name_version_ext($answer_file); |
| my ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/); |
my ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/); |
| my $getpropath = 1; |
my $getpropath = 1; |
| my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$portfolio_path,$domain,$stuname,$getpropath); |
my ($dir_list,$listerror) = |
| my $version = &get_next_version($answer_name, $answer_ext, \@dir_list); |
&Apache::lonnet::dirlist($portfolio_root.$portfolio_path, |
| |
$domain,$stuname,$getpropath); |
| |
my $version = &get_next_version($answer_name,$answer_ext,$dir_list); |
| # fix file name |
# fix file name |
| my ($save_file_name) = (($directory.$answer_name.".$version.".$answer_ext) =~ /^.+\/${stuname}\/(.*)/); |
my ($save_file_name) = (($directory.$answer_name.".$version.".$answer_ext) =~ /^.+\/${stuname}\/(.*)/); |
| my $result=&Apache::lonnet::finishuserfileupload($stuname,$domain, |
my $result=&Apache::lonnet::finishuserfileupload($stuname,$domain, |
|
Line 3163 sub version_portfiles {
|
Line 3169 sub version_portfiles {
|
| my ($directory,$answer_file) =($file =~ /^(.*?)([^\/]*)$/); |
my ($directory,$answer_file) =($file =~ /^(.*?)([^\/]*)$/); |
| my ($answer_name,$answer_ver,$answer_ext) = |
my ($answer_name,$answer_ver,$answer_ext) = |
| &file_name_version_ext($answer_file); |
&file_name_version_ext($answer_file); |
| my $getpropath = 1; |
my $getpropath = 1; |
| my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$directory,$domain,$stu_name,$getpropath); |
my ($dir_list,$listerror) = |
| my $version = &get_next_version($answer_name, $answer_ext, \@dir_list); |
&Apache::lonnet::dirlist($portfolio_root.$directory,$domain, |
| |
$stu_name,$getpropath); |
| |
my $version = &get_next_version($answer_name,$answer_ext,$dir_list); |
| my $new_answer = &version_selected_portfile($domain, $stu_name, $directory, $answer_file, $version); |
my $new_answer = &version_selected_portfile($domain, $stu_name, $directory, $answer_file, $version); |
| if ($new_answer ne 'problem getting file') { |
if ($new_answer ne 'problem getting file') { |
| push(@versioned_portfiles, $directory.$new_answer); |
push(@versioned_portfiles, $directory.$new_answer); |
|
Line 3184 sub version_portfiles {
|
Line 3192 sub version_portfiles {
|
| sub get_next_version { |
sub get_next_version { |
| my ($answer_name, $answer_ext, $dir_list) = @_; |
my ($answer_name, $answer_ext, $dir_list) = @_; |
| my $version; |
my $version; |
| foreach my $row (@$dir_list) { |
if (ref($dir_list) eq 'ARRAY') { |
| my ($file) = split(/\&/,$row,2); |
foreach my $row (@{$dir_list}) { |
| my ($file_name,$file_version,$file_ext) = |
my ($file) = split(/\&/,$row,2); |
| &file_name_version_ext($file); |
my ($file_name,$file_version,$file_ext) = |
| if (($file_name eq $answer_name) && |
&file_name_version_ext($file); |
| ($file_ext eq $answer_ext)) { |
if (($file_name eq $answer_name) && |
| # gets here if filename and extension match, regardless of version |
($file_ext eq $answer_ext)) { |
| |
# gets here if filename and extension match, |
| |
# regardless of version |
| if ($file_version ne '') { |
if ($file_version ne '') { |
| # a versioned file is found so save it for later |
# a versioned file is found so save it for later |
| if ($file_version > $version) { |
if ($file_version > $version) { |
| $version = $file_version; |
$version = $file_version; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| $version ++; |
$version ++; |
| return($version); |
return($version); |
| } |
} |
|
Line 4993 sub updateGradeByPage {
|
Line 5004 sub updateGradeByPage {
|
| from the file that we are parsing that represents one entire sheet |
from the file that we are parsing that represents one entire sheet |
| |
|
| 'bubble line' refers to the data |
'bubble line' refers to the data |
| representing the line of bubbles that are on the physical bubble sheet |
representing the line of bubbles that are on the physical bubblesheet |
| |
|
| |
|
| The overall process is that a scanned in bubble sheet data is uploaded |
The overall process is that a scanned in bubblesheet data is uploaded |
| into a course. When a user wants to grade, they select a |
into a course. When a user wants to grade, they select a |
| sequence/folder of resources, a file of bubble sheet info, and pick |
sequence/folder of resources, a file of bubblesheet info, and pick |
| one of the predefined configurations for what each scanline looks |
one of the predefined configurations for what each scanline looks |
| like. |
like. |
| |
|
|
Line 5014 username:domain.
|
Line 5025 username:domain.
|
| |
|
| During the validation phase the instructor can choose to skip scanlines. |
During the validation phase the instructor can choose to skip scanlines. |
| |
|
| After the validation phase, there are now 3 bubble sheet files |
After the validation phase, there are now 3 bubblesheet files |
| |
|
| scantron_original_filename (unmodified original file) |
scantron_original_filename (unmodified original file) |
| scantron_corrected_filename (file where the corrected information has replaced the original information) |
scantron_corrected_filename (file where the corrected information has replaced the original information) |
| scantron_skipped_filename (contains the exact text of scanlines that where skipped) |
scantron_skipped_filename (contains the exact text of scanlines that where skipped) |
| |
|
| Also there is a separate hash nohist_scantrondata that contains extra |
Also there is a separate hash nohist_scantrondata that contains extra |
| correction information that isn't representable in the bubble sheet |
correction information that isn't representable in the bubblesheet |
| file (see &scantron_getfile() for more information) |
file (see &scantron_getfile() for more information) |
| |
|
| After all scanlines are either valid, marked as valid or skipped, then |
After all scanlines are either valid, marked as valid or skipped, then |
|
Line 5157 sub scantron_filenames {
|
Line 5168 sub scantron_filenames {
|
| my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my $cname=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cname=$env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $getpropath = 1; |
my $getpropath = 1; |
| my @files=&Apache::lonnet::dirlist('userfiles',$cdom,$cname, |
my ($dirlist,$listerror) = &Apache::lonnet::dirlist('userfiles',$cdom, |
| $getpropath); |
$cname,$getpropath); |
| my @possiblenames; |
my @possiblenames; |
| foreach my $filename (sort(@files)) { |
if (ref($dirlist) eq 'ARRAY') { |
| ($filename)=split(/&/,$filename); |
foreach my $filename (sort(@{$dirlist})) { |
| if ($filename!~/^scantron_orig_/) { next ; } |
($filename)=split(/&/,$filename); |
| $filename=~s/^scantron_orig_//; |
if ($filename!~/^scantron_orig_/) { next ; } |
| push(@possiblenames,$filename); |
$filename=~s/^scantron_orig_//; |
| |
push(@possiblenames,$filename); |
| |
} |
| } |
} |
| return @possiblenames; |
return @possiblenames; |
| } |
} |
|
Line 5318 sub scantron_CODEunique {
|
Line 5331 sub scantron_CODEunique {
|
| |
|
| =item scantron_selectphase |
=item scantron_selectphase |
| |
|
| Generates the initial screen to start the bubble sheet process. |
Generates the initial screen to start the bubblesheet process. |
| Allows for - starting a grading run. |
Allows for - starting a grading run. |
| - downloading existing scan data (original, corrected |
- downloading existing scan data (original, corrected |
| or skipped info) |
or skipped info) |
|
Line 5562 sub scantron_selectphase {
|
Line 5575 sub scantron_selectphase {
|
| |
|
| LastName - column that the last name starts in |
LastName - column that the last name starts in |
| LastNameLength - number of columns that the last name spans |
LastNameLength - number of columns that the last name spans |
| |
BubblesPerRow - number of bubbles available in each row used to |
| |
bubble an answer. (If not specified, 10 assumed). |
| |
|
| =cut |
=cut |
| |
|
|
Line 5592 sub get_scantron_config {
|
Line 5607 sub get_scantron_config {
|
| $config{'FirstNamelength'}=$config[14]; |
$config{'FirstNamelength'}=$config[14]; |
| $config{'LastName'}=$config[15]; |
$config{'LastName'}=$config[15]; |
| $config{'LastNamelength'}=$config[16]; |
$config{'LastNamelength'}=$config[16]; |
| |
$config{'BubblesPerRow'}=$config[17]; |
| last; |
last; |
| } |
} |
| return %config; |
return %config; |
|
Line 6341 sub remember_current_skipped {
|
Line 6357 sub remember_current_skipped {
|
| =item check_for_error |
=item check_for_error |
| |
|
| Checks if there was an error when attempting to remove a specific |
Checks if there was an error when attempting to remove a specific |
| scantron_.. bubble sheet data file. Prints out an error if |
scantron_.. bubblesheet data file. Prints out an error if |
| something went wrong. |
something went wrong. |
| |
|
| =cut |
=cut |
|
Line 6376 sub scantron_warning_screen {
|
Line 6392 sub scantron_warning_screen {
|
| '<tr><td><b>'.&mt('List of CODES to validate against:').'</b></td><td><tt>'. |
'<tr><td><b>'.&mt('List of CODES to validate against:').'</b></td><td><tt>'. |
| $env{'form.scantron_CODElist'}.'</tt></td></tr>'; |
$env{'form.scantron_CODElist'}.'</tt></td></tr>'; |
| } |
} |
| |
my $lastbubblepoints; |
| |
if ($env{'form.scantron_lastbubblepoints'} ne '') { |
| |
$lastbubblepoints = |
| |
'<tr><td><b>'.&mt('Hand-graded items: points from last bubble in row').'</b></td><td><tt>'. |
| |
$env{'form.scantron_lastbubblepoints'}.'</tt></td></tr>'; |
| |
} |
| return (' |
return (' |
| <p> |
<p> |
| <span class="LC_warning"> |
<span class="LC_warning"> |
|
Line 6384 sub scantron_warning_screen {
|
Line 6406 sub scantron_warning_screen {
|
| <table> |
<table> |
| <tr><td><b>'.&mt('Sequence to be Graded:').'</b></td><td>'.$title.'</td></tr> |
<tr><td><b>'.&mt('Sequence to be Graded:').'</b></td><td>'.$title.'</td></tr> |
| <tr><td><b>'.&mt('Data File that will be used:').'</b></td><td><tt>'.$env{'form.scantron_selectfile'}.'</tt></td></tr> |
<tr><td><b>'.&mt('Data File that will be used:').'</b></td><td><tt>'.$env{'form.scantron_selectfile'}.'</tt></td></tr> |
| '.$CODElist.' |
'.$CODElist.$lastbubblepoints.' |
| </table> |
</table> |
| <br /> |
<br /> |
| <p> '.&mt('If this information is correct, please click on \'[_1]\'.',&mt($button_text)).'</p> |
<p> '.&mt('If this information is correct, please click on \'[_1]\'.',&mt($button_text)).'</p> |
|
Line 6424 sub scantron_do_warning {
|
Line 6446 sub scantron_do_warning {
|
| } |
} |
| } else { |
} else { |
| my $warning=&scantron_warning_screen('Grading: Validate Records'); |
my $warning=&scantron_warning_screen('Grading: Validate Records'); |
| |
my $bubbledbyhand=&hand_bubble_option(); |
| $r->print(' |
$r->print(' |
| '.$warning.' |
'.$warning.$bubbledbyhand.' |
| <input type="submit" name="submit" value="'.&mt('Grading: Validate Records').'" /> |
<input type="submit" name="submit" value="'.&mt('Grading: Validate Records').'" /> |
| <input type="hidden" name="command" value="scantron_validate" /> |
<input type="hidden" name="command" value="scantron_validate" /> |
| '); |
'); |
|
Line 6477 SCANTRONFORM
|
Line 6500 SCANTRONFORM
|
| |
|
| =item scantron_validate_file |
=item scantron_validate_file |
| |
|
| Dispatch routine for doing validation of a bubble sheet data file. |
Dispatch routine for doing validation of a bubblesheet data file. |
| |
|
| Also processes any necessary information resets that need to |
Also processes any necessary information resets that need to |
| occur before validation begins (ignore previous corrections, |
occur before validation begins (ignore previous corrections, |
|
Line 6515 sub scantron_validate_file {
|
Line 6538 sub scantron_validate_file {
|
| #get the student pick code ready |
#get the student pick code ready |
| $r->print(&Apache::loncommon::studentbrowser_javascript()); |
$r->print(&Apache::loncommon::studentbrowser_javascript()); |
| my $nav_error; |
my $nav_error; |
| my $max_bubble=&scantron_get_maxbubble(\$nav_error); |
my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
| |
my $max_bubble=&scantron_get_maxbubble(\$nav_error,\%scantron_config); |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return ''; |
return ''; |
| } |
} |
| my $result=&scantron_form_start($max_bubble).$default_form_data; |
my $result=&scantron_form_start($max_bubble).$default_form_data; |
| |
if ($env{'form.scantron_lastbubblepoints'} ne '') { |
| |
$result .= '<input type="hidden" name="scantron_lastbubblepoints" value="'.$env{'form.scantron_lastbubblepoints'}.'" />'; |
| |
} |
| $r->print($result); |
$r->print($result); |
| |
|
| my @validate_phases=( 'sequence', |
my @validate_phases=( 'sequence', |
|
Line 6588 sub scantron_validate_file {
|
Line 6615 sub scantron_validate_file {
|
| |
|
| =item scantron_remove_file |
=item scantron_remove_file |
| |
|
| Removes the requested bubble sheet data file, makes sure that |
Removes the requested bubblesheet data file, makes sure that |
| scantron_original_<filename> is never removed |
scantron_original_<filename> is never removed |
| |
|
| |
|
|
Line 6613 sub scantron_remove_file {
|
Line 6640 sub scantron_remove_file {
|
| |
|
| =item scantron_remove_scan_data |
=item scantron_remove_scan_data |
| |
|
| Removes all scan_data correction for the requested bubble sheet |
Removes all scan_data correction for the requested bubblesheet |
| data file. (In the case that both the are doing skipped records we need |
data file. (In the case that both the are doing skipped records we need |
| to remember the old skipped lines for the time being so that element |
to remember the old skipped lines for the time being so that element |
| persists for a while.) |
persists for a while.) |
|
Line 6650 sub scantron_remove_scan_data {
|
Line 6677 sub scantron_remove_scan_data {
|
| |
|
| =item scantron_getfile |
=item scantron_getfile |
| |
|
| Fetches the requested bubble sheet data file (all 3 versions), and |
Fetches the requested bubblesheet data file (all 3 versions), and |
| the scan_data hash |
the scan_data hash |
| |
|
| Arguments: |
Arguments: |
|
Line 6750 sub lonnet_putfile {
|
Line 6777 sub lonnet_putfile {
|
| |
|
| =item scantron_putfile |
=item scantron_putfile |
| |
|
| Stores the current version of the bubble sheet data files, and the |
Stores the current version of the bubblesheet data files, and the |
| scan_data hash. (Does not modify the original version only the |
scan_data hash. (Does not modify the original version only the |
| corrected and skipped versions. |
corrected and skipped versions. |
| |
|
|
Line 6844 sub get_todo_count {
|
Line 6871 sub get_todo_count {
|
| |
|
| =item scantron_put_line |
=item scantron_put_line |
| |
|
| Updates the 'corrected' or 'skipped' versions of the bubble sheet |
Updates the 'corrected' or 'skipped' versions of the bubblesheet |
| data file. |
data file. |
| |
|
| Arguments: |
Arguments: |
|
Line 6968 sub scantron_validate_ID {
|
Line 6995 sub scantron_validate_ID {
|
| my ($scanlines,$scan_data)=&scantron_getfile(); |
my ($scanlines,$scan_data)=&scantron_getfile(); |
| |
|
| my $nav_error; |
my $nav_error; |
| &scantron_get_maxbubble(\$nav_error); # parse needs the bubble_lines.. array. |
&scantron_get_maxbubble(\$nav_error,\%scantron_config); # parse needs the bubble_lines.. array. |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return(1,$currentphase); |
return(1,$currentphase); |
|
Line 7033 sub scantron_get_correction {
|
Line 7060 sub scantron_get_correction {
|
| #the previous one or the current one |
#the previous one or the current one |
| |
|
| if ( $$scan_record{'scantron.PaperID'} =~ /\S/) { |
if ( $$scan_record{'scantron.PaperID'} =~ /\S/) { |
| $r->print("<p>".&mt("<b>An error was detected ($error)</b>". |
$r->print( |
| " for PaperID <tt>[_1]</tt>", |
'<p class="LC_warning">' |
| $$scan_record{'scantron.PaperID'})."</p> \n"); |
.&mt('An error was detected ([_1]) for PaperID [_2]', |
| |
"<b>$error</b>", |
| |
'<tt>'.$$scan_record{'scantron.PaperID'}.'</tt>') |
| |
."</p> \n"); |
| } else { |
} else { |
| $r->print("<p>".&mt("<b>An error was detected ($error)</b>". |
$r->print( |
| " in scanline [_1] <pre>[_2]</pre>", |
'<p class="LC_warning">' |
| $i,$line)."</p> \n"); |
.&mt('An error was detected ([_1]) in scanline [_2] [_3]', |
| } |
"<b>$error</b>", $i, "<pre>$line</pre>") |
| my $message="<p>".&mt("The ID on the form is <tt>[_1]</tt><br />". |
."</p> \n"); |
| "The name on the paper is [_2],[_3]", |
} |
| $$scan_record{'scantron.ID'}, |
my $message = |
| $$scan_record{'scantron.LastName'}, |
'<p>' |
| $$scan_record{'scantron.FirstName'})."</p>"; |
.&mt('The ID on the form is [_1]', |
| |
"<tt>$$scan_record{'scantron.ID'}</tt>") |
| |
.'<br />' |
| |
.&mt('The name on the paper is [_1], [_2]', |
| |
$$scan_record{'scantron.LastName'}, |
| |
$$scan_record{'scantron.FirstName'}) |
| |
.'</p>'; |
| |
|
| $r->print('<input type="hidden" name="scantron_corrections" value="'.$error.'" />'."\n"); |
$r->print('<input type="hidden" name="scantron_corrections" value="'.$error.'" />'."\n"); |
| $r->print('<input type="hidden" name="scantron_line" value="'.$i.'" />'."\n"); |
$r->print('<input type="hidden" name="scantron_line" value="'.$i.'" />'."\n"); |
|
Line 7055 sub scantron_get_correction {
|
Line 7091 sub scantron_get_correction {
|
| |
|
| if ($error =~ /ID$/) { |
if ($error =~ /ID$/) { |
| if ($error eq 'incorrectID') { |
if ($error eq 'incorrectID') { |
| $r->print("<p>".&mt("The encoded ID is not in the classlist"). |
$r->print('<p class="LC_warning">'.&mt("The encoded ID is not in the classlist"). |
| "</p>\n"); |
"</p>\n"); |
| } elsif ($error eq 'duplicateID') { |
} elsif ($error eq 'duplicateID') { |
| $r->print("<p>".&mt("The encoded ID has also been used by a previous paper [_1]",$arg)."</p>\n"); |
$r->print('<p class="LC_warning">'.&mt("The encoded ID has also been used by a previous paper [_1]",$arg)."</p>\n"); |
| } |
} |
| $r->print($message); |
$r->print($message); |
| $r->print("<p>".&mt("How should I handle this?")." <br /> \n"); |
$r->print("<p>".&mt("How should I handle this?")." <br /> \n"); |
|
Line 7074 sub scantron_get_correction {
|
Line 7110 sub scantron_get_correction {
|
| $r->print('</li>'); |
$r->print('</li>'); |
| } elsif ($error =~ /CODE$/) { |
} elsif ($error =~ /CODE$/) { |
| if ($error eq 'incorrectCODE') { |
if ($error eq 'incorrectCODE') { |
| $r->print("<p>".&mt("The encoded CODE is not in the list of possible CODEs.")."</p>\n"); |
$r->print('<p class="LC_warning">'.&mt("The encoded CODE is not in the list of possible CODEs.")."</p>\n"); |
| } elsif ($error eq 'duplicateCODE') { |
} elsif ($error eq 'duplicateCODE') { |
| $r->print("<p>".&mt("The encoded CODE has also been used by a previous paper [_1], and CODEs are supposed to be unique.",join(', ',@{$arg}))."</p>\n"); |
$r->print('<p class="LC_warning">'.&mt("The encoded CODE has also been used by a previous paper [_1], and CODEs are supposed to be unique.",join(', ',@{$arg}))."</p>\n"); |
| } |
} |
| $r->print("<p>".&mt("The CODE on the form is <tt>'[_1]'</tt>", |
$r->print("<p>".&mt('The CODE on the form is [_1]', |
| $$scan_record{'scantron.CODE'})."<br />\n"); |
"<tt>'$$scan_record{'scantron.CODE'}'</tt>") |
| |
."</p>\n"); |
| $r->print($message); |
$r->print($message); |
| $r->print("<p>".&mt("How should I handle this?")." <br /> \n"); |
$r->print("<p>".&mt("How should I handle this?")."</p>\n"); |
| $r->print("\n<br /> "); |
$r->print("\n<br /> "); |
| my $i=0; |
my $i=0; |
| if ($error eq 'incorrectCODE' |
if ($error eq 'incorrectCODE' |
|
Line 7108 sub scantron_get_correction {
|
Line 7145 sub scantron_get_correction {
|
| $r->print(" |
$r->print(" |
| <label> |
<label> |
| <input type='radio' name='scantron_CODE_resolution' value='use_unfound'$checked /> |
<input type='radio' name='scantron_CODE_resolution' value='use_unfound'$checked /> |
| ".&mt("Use the CODE [_1] that is was on the paper, ignoring the error.", |
".&mt("Use the CODE [_1] that was on the paper, ignoring the error.", |
| "<b><tt>".$$scan_record{'scantron.CODE'}."</tt></b>")." |
"<b><tt>".$$scan_record{'scantron.CODE'}."</tt></b>")." |
| </label>"); |
</label>"); |
| $r->print("\n<br />"); |
$r->print("\n<br />"); |
|
Line 7148 ENDSCRIPT
|
Line 7185 ENDSCRIPT
|
| "</label><input type='text' size='8' name='scantron_CODE_newvalue' onfocus=\"javascript:change_radio('use_typed')\" onkeypress=\"javascript:change_radio('use_typed')\" />")); |
"</label><input type='text' size='8' name='scantron_CODE_newvalue' onfocus=\"javascript:change_radio('use_typed')\" onkeypress=\"javascript:change_radio('use_typed')\" />")); |
| $r->print("\n<br /><br />"); |
$r->print("\n<br /><br />"); |
| } elsif ($error eq 'doublebubble') { |
} elsif ($error eq 'doublebubble') { |
| $r->print("<p>".&mt("There have been multiple bubbles scanned for some question(s)")."</p>\n"); |
$r->print('<p class="LC_warning">'.&mt("There have been multiple bubbles scanned for some question(s)")."</p>\n"); |
| |
|
| # The form field scantron_questions is acutally a list of line numbers. |
# The form field scantron_questions is acutally a list of line numbers. |
| # represented by this form so: |
# represented by this form so: |
|
Line 7166 ENDSCRIPT
|
Line 7203 ENDSCRIPT
|
| } |
} |
| $r->print(&verify_bubbles_checked(@lines_to_correct)); |
$r->print(&verify_bubbles_checked(@lines_to_correct)); |
| } elsif ($error eq 'missingbubble') { |
} elsif ($error eq 'missingbubble') { |
| $r->print("<p>".&mt("There have been <b>no</b> bubbles scanned for some question(s)")."</p>\n"); |
$r->print('<p class="LC_warning">'.&mt("There have been [_1]no[_2] bubbles scanned for some question(s)",'<b>','</b>')."</p>\n"); |
| $r->print($message); |
$r->print($message); |
| $r->print("<p>".&mt("Please indicate which bubble should be used for grading.")."</p>"); |
$r->print("<p>".&mt("Please indicate which bubble should be used for grading.")."</p>"); |
| $r->print(&mt("Some questions have no scanned bubbles.")."\n"); |
$r->print(&mt("Some questions have no scanned bubbles.")."\n"); |
|
Line 7371 sub scantron_bubble_selector {
|
Line 7408 sub scantron_bubble_selector {
|
| my $max=$$scan_config{'Qlength'}; |
my $max=$$scan_config{'Qlength'}; |
| |
|
| my $scmode=$$scan_config{'Qon'}; |
my $scmode=$$scan_config{'Qon'}; |
| if ($scmode eq 'number' || $scmode eq 'letter') { $max=10; } |
if ($scmode eq 'number' || $scmode eq 'letter') { |
| |
if (($$scan_config{'BubblesPerRow'} =~ /^\d+$/) && |
| |
($$scan_config{'BubblesPerRow'} > 0)) { |
| |
$max=$$scan_config{'BubblesPerRow'}; |
| |
if (($scmode eq 'number') && ($max > 10)) { |
| |
$max = 10; |
| |
} elsif (($scmode eq 'letter') && $max > 26) { |
| |
$max = 26; |
| |
} |
| |
} else { |
| |
$max = 10; |
| |
} |
| |
} |
| |
|
| my @alphabet=('A'..'Z'); |
my @alphabet=('A'..'Z'); |
| $r->print(&Apache::loncommon::start_data_table(). |
$r->print(&Apache::loncommon::start_data_table(). |
|
Line 7526 sub scantron_validate_CODE {
|
Line 7575 sub scantron_validate_CODE {
|
| my %allcodes=&get_codes(); |
my %allcodes=&get_codes(); |
| |
|
| my $nav_error; |
my $nav_error; |
| &scantron_get_maxbubble(\$nav_error); # parse needs the lines per response array. |
&scantron_get_maxbubble(\$nav_error,\%scantron_config); # parse needs the lines per response array. |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return(1,$currentphase); |
return(1,$currentphase); |
|
Line 7585 sub scantron_validate_doublebubble {
|
Line 7634 sub scantron_validate_doublebubble {
|
| my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
| my ($scanlines,$scan_data)=&scantron_getfile(); |
my ($scanlines,$scan_data)=&scantron_getfile(); |
| my $nav_error; |
my $nav_error; |
| &scantron_get_maxbubble(\$nav_error); # parse needs the bubble line array. |
&scantron_get_maxbubble(\$nav_error,\%scantron_config); # parse needs the bubble line array. |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return(1,$currentphase); |
return(1,$currentphase); |
|
Line 7607 sub scantron_validate_doublebubble {
|
Line 7656 sub scantron_validate_doublebubble {
|
| |
|
| |
|
| sub scantron_get_maxbubble { |
sub scantron_get_maxbubble { |
| my ($nav_error) = @_; |
my ($nav_error,$scantron_config) = @_; |
| if (defined($env{'form.scantron_maxbubble'}) && |
if (defined($env{'form.scantron_maxbubble'}) && |
| $env{'form.scantron_maxbubble'}) { |
$env{'form.scantron_maxbubble'}) { |
| &restore_bubble_lines(); |
&restore_bubble_lines(); |
|
Line 7626 sub scantron_get_maxbubble {
|
Line 7675 sub scantron_get_maxbubble {
|
| } |
} |
| my $map=$navmap->getResourceByUrl($sequence); |
my $map=$navmap->getResourceByUrl($sequence); |
| my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0); |
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0); |
| |
my $bubbles_per_row = &bubblesheet_bubbles_per_row($scantron_config); |
| |
|
| &Apache::lonxml::clear_problem_counter(); |
&Apache::lonxml::clear_problem_counter(); |
| |
|
|
Line 7641 sub scantron_get_maxbubble {
|
Line 7691 sub scantron_get_maxbubble {
|
| my $response_number = 0; |
my $response_number = 0; |
| my $bubble_line = 0; |
my $bubble_line = 0; |
| foreach my $resource (@resources) { |
foreach my $resource (@resources) { |
| my ($analysis,$parts) = &scantron_partids_tograde($resource,$cid,$uname,$udom); |
my ($analysis,$parts) = &scantron_partids_tograde($resource,$cid,$uname, |
| |
$udom,$bubbles_per_row); |
| if ((ref($analysis) eq 'HASH') && (ref($parts) eq 'ARRAY')) { |
if ((ref($analysis) eq 'HASH') && (ref($parts) eq 'ARRAY')) { |
| foreach my $part_id (@{$parts}) { |
foreach my $part_id (@{$parts}) { |
| my $lines; |
my $lines; |
|
Line 7670 sub scantron_get_maxbubble {
|
Line 7721 sub scantron_get_maxbubble {
|
| if (ref($analysis->{$part_id.'.shown'}) eq 'ARRAY') { |
if (ref($analysis->{$part_id.'.shown'}) eq 'ARRAY') { |
| $numshown = scalar(@{$analysis->{$part_id.'.shown'}}); |
$numshown = scalar(@{$analysis->{$part_id.'.shown'}}); |
| } |
} |
| my $bubbles_per_line = 10; |
my $bubbles_per_row = |
| my $inner_bubble_lines = int($numbub/$bubbles_per_line); |
&bubblesheet_bubbles_per_row($scantron_config); |
| if (($numbub % $bubbles_per_line) != 0) { |
my $inner_bubble_lines = int($numbub/$bubbles_per_row); |
| |
if (($numbub % $bubbles_per_row) != 0) { |
| $inner_bubble_lines++; |
$inner_bubble_lines++; |
| } |
} |
| for (my $i=0; $i<$numshown; $i++) { |
for (my $i=0; $i<$numshown; $i++) { |
|
Line 7683 sub scantron_get_maxbubble {
|
Line 7735 sub scantron_get_maxbubble {
|
| $lines = $numshown * $inner_bubble_lines; |
$lines = $numshown * $inner_bubble_lines; |
| } else { |
} else { |
| $lines = $analysis->{"$part_id.bubble_lines"}; |
$lines = $analysis->{"$part_id.bubble_lines"}; |
| } |
} |
| |
|
| $first_bubble_line{$response_number} = $bubble_line; |
$first_bubble_line{$response_number} = $bubble_line; |
| $bubble_lines_per_response{$response_number} = $lines; |
$bubble_lines_per_response{$response_number} = $lines; |
|
Line 7704 sub scantron_get_maxbubble {
|
Line 7756 sub scantron_get_maxbubble {
|
| return $env{'form.scantron_maxbubble'}; |
return $env{'form.scantron_maxbubble'}; |
| } |
} |
| |
|
| |
sub bubblesheet_bubbles_per_row { |
| |
my ($scantron_config) = @_; |
| |
my $bubbles_per_row; |
| |
if (ref($scantron_config) eq 'HASH') { |
| |
$bubbles_per_row = $scantron_config->{'BubblesPerRow'}; |
| |
} |
| |
if ((!$bubbles_per_row) || ($bubbles_per_row < 1)) { |
| |
$bubbles_per_row = 10; |
| |
} |
| |
return $bubbles_per_row; |
| |
} |
| |
|
| sub scantron_validate_missingbubbles { |
sub scantron_validate_missingbubbles { |
| my ($r,$currentphase) = @_; |
my ($r,$currentphase) = @_; |
| #get student info |
#get student info |
|
Line 7714 sub scantron_validate_missingbubbles {
|
Line 7778 sub scantron_validate_missingbubbles {
|
| my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
| my ($scanlines,$scan_data)=&scantron_getfile(); |
my ($scanlines,$scan_data)=&scantron_getfile(); |
| my $nav_error; |
my $nav_error; |
| my $max_bubble=&scantron_get_maxbubble(\$nav_error); |
my $max_bubble=&scantron_get_maxbubble(\$nav_error,\%scantron_config); |
| if ($nav_error) { |
if ($nav_error) { |
| return(1,$currentphase); |
return(1,$currentphase); |
| } |
} |
|
Line 7761 sub scantron_validate_missingbubbles {
|
Line 7825 sub scantron_validate_missingbubbles {
|
| return (0,$currentphase+1); |
return (0,$currentphase+1); |
| } |
} |
| |
|
| |
sub hand_bubble_option { |
| |
my (undef, undef, $sequence) = |
| |
&Apache::lonnet::decode_symb($env{'form.selectpage'}); |
| |
return if ($sequence eq ''); |
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
unless (ref($navmap)) { |
| |
return; |
| |
} |
| |
my $needs_hand_bubbles; |
| |
my $map=$navmap->getResourceByUrl($sequence); |
| |
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0); |
| |
foreach my $res (@resources) { |
| |
if (ref($res)) { |
| |
if ($res->is_problem()) { |
| |
my $partlist = $res->parts(); |
| |
foreach my $part (@{ $partlist }) { |
| |
my @types = $res->responseType($part); |
| |
if (grep(/^(chem|essay|image|formula|math|string|functionplot)$/,@types)) { |
| |
$needs_hand_bubbles = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($needs_hand_bubbles) { |
| |
my %scantron_config=&get_scantron_config($env{'form.scantron_format'}); |
| |
my $bubbles_per_row = &bubblesheet_bubbles_per_row(\%scantron_config); |
| |
return &mt('The sequence to be graded contains response types which are handgraded.').'<p>'. |
| |
&mt('If you have already graded these by bubbling sheets to indicate points awarded, [_1]what point value is assigned to a filled last bubble in each row?','<br />'). |
| |
'<label><input type="radio" name="scantron_lastbubblepoints" value="'.$bubbles_per_row.'" checked="checked" />'.&mt('[quant,_1,point]',$bubbles_per_row).'</label> '.&mt('or').' '. |
| |
'<label><input type="radio" name="scantron_lastbubblepoints" value="0"/>0 points</label></p>'; |
| |
} |
| |
return; |
| |
} |
| |
|
| sub scantron_process_students { |
sub scantron_process_students { |
| my ($r) = @_; |
my ($r) = @_; |
|
Line 7797 sub scantron_process_students {
|
Line 7896 sub scantron_process_students {
|
| } |
} |
| my ($analysis,$parts) = |
my ($analysis,$parts) = |
| &scantron_partids_tograde($resource,$env{'request.course.id'}, |
&scantron_partids_tograde($resource,$env{'request.course.id'}, |
| $env{'user.name'},$env{'user.domain'},1); |
$env{'user.name'},$env{'user.domain'}, |
| |
1,$bubbles_per_row); |
| $grader_partids_by_symb{$ressymb} = $parts; |
$grader_partids_by_symb{$ressymb} = $parts; |
| if (ref($analysis) eq 'HASH') { |
if (ref($analysis) eq 'HASH') { |
| if (ref($analysis->{'parts_withrandomlist'}) eq 'ARRAY') { |
if (ref($analysis->{'parts_withrandomlist'}) eq 'ARRAY') { |
|
Line 7835 SCANTRONFORM
|
Line 7935 SCANTRONFORM
|
| my $started; |
my $started; |
| |
|
| my $nav_error; |
my $nav_error; |
| &scantron_get_maxbubble(\$nav_error); # Need the bubble lines array to parse. |
&scantron_get_maxbubble(\$nav_error,\%scantron_config); # Need the bubble lines array to parse. |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return ''; |
return ''; |
|
Line 7892 SCANTRONFORM
|
Line 7992 SCANTRONFORM
|
| if ((exists($grader_randomlists_by_symb{$ressymb})) || |
if ((exists($grader_randomlists_by_symb{$ressymb})) || |
| (ref($grader_partids_by_symb{$ressymb}) ne 'ARRAY')) { |
(ref($grader_partids_by_symb{$ressymb}) ne 'ARRAY')) { |
| my ($analysis,$parts) = |
my ($analysis,$parts) = |
| &scantron_partids_tograde($resource,$env{'request.course.id'},$uname,$udom); |
&scantron_partids_tograde($resource,$env{'request.course.id'}, |
| |
$uname,$udom,undef,$bubbles_per_row); |
| $partids_by_symb{$ressymb} = $parts; |
$partids_by_symb{$ressymb} = $parts; |
| } else { |
} else { |
| $partids_by_symb{$ressymb} = $grader_partids_by_symb{$ressymb}; |
$partids_by_symb{$ressymb} = $grader_partids_by_symb{$ressymb}; |
|
Line 7921 SCANTRONFORM
|
Line 8022 SCANTRONFORM
|
| } |
} |
| |
|
| if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode, |
if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode, |
| \@resources,\%partids_by_symb) eq 'ssi_error') { |
\@resources,\%partids_by_symb, |
| |
$bubbles_per_row) eq 'ssi_error') { |
| $ssi_error = 0; # So end of handler error message does not trigger. |
$ssi_error = 0; # So end of handler error message does not trigger. |
| $r->print("</form>"); |
$r->print("</form>"); |
| &ssi_print_error($r); |
&ssi_print_error($r); |
|
Line 7949 SCANTRONFORM
|
Line 8051 SCANTRONFORM
|
| if ($studentrecord ne $studentdata) { |
if ($studentrecord ne $studentdata) { |
| &Apache::lonxml::clear_problem_counter(); |
&Apache::lonxml::clear_problem_counter(); |
| if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode, |
if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode, |
| \@resources,\%partids_by_symb) eq 'ssi_error') { |
\@resources,\%partids_by_symb, |
| |
$bubbles_per_row) eq 'ssi_error') { |
| $ssi_error = 0; # So end of handler error message does not trigger. |
$ssi_error = 0; # So end of handler error message does not trigger. |
| $r->print("</form>"); |
$r->print("</form>"); |
| &ssi_print_error($r); |
&ssi_print_error($r); |
|
Line 7969 SCANTRONFORM
|
Line 8072 SCANTRONFORM
|
| $studentrecord .= $recording; |
$studentrecord .= $recording; |
| } |
} |
| if ($studentrecord ne $studentdata) { |
if ($studentrecord ne $studentdata) { |
| $r->print('<p><span class="LC_error">'); |
$r->print('<p><span class="LC_warning">'); |
| if ($scancode eq '') { |
if ($scancode eq '') { |
| $r->print(&mt('Mismatch grading bubble sheet for user: [_1] with ID: [_2].', |
$r->print(&mt('Mismatch grading bubblesheet for user: [_1] with ID: [_2].', |
| $uname.':'.$udom,$scan_record->{'scantron.ID'})); |
$uname.':'.$udom,$scan_record->{'scantron.ID'})); |
| } else { |
} else { |
| $r->print(&mt('Mismatch grading bubble sheet for user: [_1] with ID: [_2] and CODE: [_3].', |
$r->print(&mt('Mismatch grading bubblesheet for user: [_1] with ID: [_2] and CODE: [_3].', |
| $uname.':'.$udom,$scan_record->{'scantron.ID'},$scancode)); |
$uname.':'.$udom,$scan_record->{'scantron.ID'},$scancode)); |
| } |
} |
| $r->print('</span><br />'.&Apache::loncommon::start_data_table()."\n". |
$r->print('</span><br />'.&Apache::loncommon::start_data_table()."\n". |
|
Line 7982 SCANTRONFORM
|
Line 8085 SCANTRONFORM
|
| '<th>'.&mt('Source').'</th><th>'.&mt('Bubbled responses').'</th>'. |
'<th>'.&mt('Source').'</th><th>'.&mt('Bubbled responses').'</th>'. |
| &Apache::loncommon::end_data_table_header_row()."\n". |
&Apache::loncommon::end_data_table_header_row()."\n". |
| &Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
| '<td>'.&mt('Bubble Sheet').'</td>'. |
'<td>'.&mt('Bubblesheet').'</td>'. |
| '<td><span class="LC_nobreak">'.$studentdata.'</span></td>'. |
'<td><span class="LC_nobreak">'.$studentdata.'</span></td>'. |
| &Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table_row(). |
| &Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
| '<td>Stored submissions</td>'. |
'<td>'.&mt('Stored submissions').'</td>'. |
| '<td><span class="LC_nobreak">'.$studentrecord.'</span></td>'."\n". |
'<td><span class="LC_nobreak">'.$studentrecord.'</span></td>'."\n". |
| &Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table_row(). |
| &Apache::loncommon::end_data_table().'</p>'); |
&Apache::loncommon::end_data_table().'</p>'); |
|
Line 8021 sub graders_resources_pass {
|
Line 8124 sub graders_resources_pass {
|
| my $ressymb = $resource->symb(); |
my $ressymb = $resource->symb(); |
| my ($analysis,$parts) = |
my ($analysis,$parts) = |
| &scantron_partids_tograde($resource,$env{'request.course.id'}, |
&scantron_partids_tograde($resource,$env{'request.course.id'}, |
| $env{'user.name'},$env{'user.domain'},1); |
$env{'user.name'},$env{'user.domain'}, |
| |
1,$bubbles_per_row); |
| $grader_partids_by_symb->{$ressymb} = $parts; |
$grader_partids_by_symb->{$ressymb} = $parts; |
| if (ref($analysis) eq 'HASH') { |
if (ref($analysis) eq 'HASH') { |
| if (ref($analysis->{'parts_withrandomlist'}) eq 'ARRAY') { |
if (ref($analysis->{'parts_withrandomlist'}) eq 'ARRAY') { |
|
Line 8035 sub graders_resources_pass {
|
Line 8139 sub graders_resources_pass {
|
| } |
} |
| |
|
| sub grade_student_bubbles { |
sub grade_student_bubbles { |
| my ($r,$uname,$udom,$scan_record,$scancode,$resources,$parts) = @_; |
my ($r,$uname,$udom,$scan_record,$scancode,$resources,$parts,$bubbles_per_row) = @_; |
| if (ref($resources) eq 'ARRAY') { |
if (ref($resources) eq 'ARRAY') { |
| my $count = 0; |
my $count = 0; |
| foreach my $resource (@{$resources}) { |
foreach my $resource (@{$resources}) { |
|
Line 8048 sub grade_student_bubbles {
|
Line 8152 sub grade_student_bubbles {
|
| 'grade_symb' => $ressymb, |
'grade_symb' => $ressymb, |
| 'CODE' => $scancode |
'CODE' => $scancode |
| ); |
); |
| |
if ($bubbles_per_row ne '') { |
| |
$form{'bubbles_per_row'} = $bubbles_per_row; |
| |
} |
| |
if ($env{'form.scantron_lastbubblepoints'} ne '') { |
| |
$form{'scantron_lastbubblepoints'} = $env{'form.scantron_lastbubblepoints'}; |
| |
} |
| if (ref($parts) eq 'HASH') { |
if (ref($parts) eq 'HASH') { |
| if (ref($parts->{$ressymb}) eq 'ARRAY') { |
if (ref($parts->{$ressymb}) eq 'ARRAY') { |
| foreach my $part (@{$parts->{$ressymb}}) { |
foreach my $part (@{$parts->{$ressymb}}) { |
|
Line 8358 sub checkscantron_results {
|
Line 8468 sub checkscantron_results {
|
| 'inline',undef,'checkscantron'); |
'inline',undef,'checkscantron'); |
| my ($username,$domain,$started); |
my ($username,$domain,$started); |
| my $nav_error; |
my $nav_error; |
| &scantron_get_maxbubble(\$nav_error); # Need the bubble lines array to parse. |
&scantron_get_maxbubble(\$nav_error,\%scantron_config); # Need the bubble lines array to parse. |
| if ($nav_error) { |
if ($nav_error) { |
| $r->print(&navmap_errormsg()); |
$r->print(&navmap_errormsg()); |
| return ''; |
return ''; |
|
Line 8408 sub checkscantron_results {
|
Line 8518 sub checkscantron_results {
|
| if ((exists($grader_randomlists_by_symb{$ressymb})) || |
if ((exists($grader_randomlists_by_symb{$ressymb})) || |
| (ref($grader_partids_by_symb{$ressymb}) ne 'ARRAY')) { |
(ref($grader_partids_by_symb{$ressymb}) ne 'ARRAY')) { |
| (my $analysis,$parts) = |
(my $analysis,$parts) = |
| &scantron_partids_tograde($resource,$env{'request.course.id'},$username,$domain); |
&scantron_partids_tograde($resource,$env{'request.course.id'}, |
| |
$username,$domain,undef, |
| |
$bubbles_per_row); |
| } else { |
} else { |
| $parts = $grader_partids_by_symb{$ressymb}; |
$parts = $grader_partids_by_symb{$ressymb}; |
| } |
} |
|
Line 8454 sub checkscantron_results {
|
Line 8566 sub checkscantron_results {
|
| } |
} |
| } |
} |
| $r->print('<p>'. |
$r->print('<p>'. |
| &mt('Comparison of bubblesheet data (including corrections) with corresponding submission records (most recent submission) for [_1][quant,_2,student][_3] ([_4] bubblesheet lines/student).', |
&mt('Comparison of bubblesheet data (including corrections) with corresponding submission records (most recent submission) for [_1][quant,_2,student][_3] ([quant,_4,bubblesheet line] per student).', |
| '<b>', |
'<b>', |
| $numstudents, |
$numstudents, |
| '</b>', |
'</b>', |
|
Line 9372 sub assign_clicker_grades {
|
Line 9484 sub assign_clicker_grades {
|
| # FIXME: This should probably look for the first handgradeable part |
# FIXME: This should probably look for the first handgradeable part |
| my $part=$$partlist[0]; |
my $part=$$partlist[0]; |
| # Start screen output |
# Start screen output |
| my ($result) = &showResourceInfo($symb,$env{'form.probTitle'}).'<br />'; |
my ($result) = &showResourceInfo($symb,$env{'form.probTitle'}); |
| |
|
| $result .= &Apache::loncommon::start_data_table(). |
$result .= '<br />'. |
| |
&Apache::loncommon::start_data_table(). |
| &Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
| '<th>'.&mt('Assigning grades based on clicker file').'</th>'. |
'<th>'.&mt('Assigning grades based on clicker file').'</th>'. |
| &Apache::loncommon::end_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
|
Line 9562 sub handler {
|
Line 9675 sub handler {
|
| } else { |
} else { |
| &init_perm(); |
&init_perm(); |
| if (!$env{'request.course.id'}) { |
if (!$env{'request.course.id'}) { |
| # Not in a course. |
unless ((&Apache::lonnet::allowed('usc',$env{'request.role.domain'})) && |
| $env{'user.error.msg'}="/adm/grades::vgr:0:0:Cannot display grades page outside course context"; |
($command =~ /^scantronupload/)) { |
| return HTTP_NOT_ACCEPTABLE; |
# Not in a course. |
| |
$env{'user.error.msg'}="/adm/grades::vgr:0:0:Cannot display grades page outside course context"; |
| |
return HTTP_NOT_ACCEPTABLE; |
| |
} |
| } elsif (!%perm) { |
} elsif (!%perm) { |
| $request->internal_redirect('/adm/quickgrades'); |
$request->internal_redirect('/adm/quickgrades'); |
| } |
} |
|
Line 9752 ssi_with_retries()
|
Line 9868 ssi_with_retries()
|
| calling routine should trap the error condition and display the warning |
calling routine should trap the error condition and display the warning |
| found in &navmap_errormsg(). |
found in &navmap_errormsg(). |
| |
|
| |
$scantron_config - Reference to bubblesheet format configuration hash. |
| |
|
| Returns the maximum number of bubble lines that are expected to |
Returns the maximum number of bubble lines that are expected to |
| occur. Does this by walking the selected sequence rendering the |
occur. Does this by walking the selected sequence rendering the |
| resource and then checking &Apache::lonxml::get_problem_counter() |
resource and then checking &Apache::lonxml::get_problem_counter() |
|
Line 9775 ssi_with_retries()
|
Line 9893 ssi_with_retries()
|
| |
|
| =item scantron_process_students() : |
=item scantron_process_students() : |
| |
|
| Routine that does the actual grading of the bubble sheet information. |
Routine that does the actual grading of the bubblesheet information. |
| |
|
| The parsed scanline hash is added to %env |
The parsed scanline hash is added to %env |
| |
|
|
Line 9795 ssi_with_retries()
|
Line 9913 ssi_with_retries()
|
| |
|
| =item scantron_upload_scantron_data() : |
=item scantron_upload_scantron_data() : |
| |
|
| Creates the screen for adding a new bubble sheet data file to a course. |
Creates the screen for adding a new bubblesheet data file to a course. |
| |
|
| =item scantron_upload_scantron_data_save() : |
=item scantron_upload_scantron_data_save() : |
| |
|
|
Line 9809 ssi_with_retries()
|
Line 9927 ssi_with_retries()
|
| =item scantron_download_scantron_data() : |
=item scantron_download_scantron_data() : |
| |
|
| Shows a list of the three internal files (original, corrected, |
Shows a list of the three internal files (original, corrected, |
| skipped) for a specific bubble sheet data file that exists in the |
skipped) for a specific bubblesheet data file that exists in the |
| course. |
course. |
| |
|
| =item scantron_validate_ID() : |
=item scantron_validate_ID() : |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework