|
version 1.513.2.1, 2008/03/24 19:08:09
|
version 1.522, 2008/05/24 00:34:12
|
|
Line 73 my $ssi_error_message;
|
Line 73 my $ssi_error_message;
|
| # the number of times requested by the caller. |
# the number of times requested by the caller. |
| # If we still have a proble, no text is appended to the |
# If we still have a proble, no text is appended to the |
| # output and we set some global variables. |
# output and we set some global variables. |
| # to indicate to the caller an SSI error occured. |
# to indicate to the caller an SSI error occurred. |
| # All of this is supposed to deal with the issues described |
# All of this is supposed to deal with the issues described |
| # in LonCAPA BZ 5631 see: |
# in LonCAPA BZ 5631 see: |
| # http://bugs.lon-capa.org/show_bug.cgi?id=5631 |
# http://bugs.lon-capa.org/show_bug.cgi?id=5631 |
|
Line 89 my $ssi_error_message;
|
Line 89 my $ssi_error_message;
|
| # On success, returns the rendered resource identified by the resource parameter. |
# On success, returns the rendered resource identified by the resource parameter. |
| # Side Effects: |
# Side Effects: |
| # The following global variables can be set: |
# The following global variables can be set: |
| # ssi_error - If an unrecoverable error occured this becomes true. |
# ssi_error - If an unrecoverable error occurred this becomes true. |
| # It is up to the caller to initialize this to false |
# It is up to the caller to initialize this to false |
| # if desired. |
# if desired. |
| # ssi_last_error_resource - If an unrecoverable error occured, this is the value |
# ssi_error_resource - If an unrecoverable error occurred, this is the value |
| # of the resource that could not be rendered by the ssi |
# of the resource that could not be rendered by the ssi |
| # call. |
# call. |
| # ssi_last_error - The error string fetched from the ssi response |
# ssi_error_message - The error string fetched from the ssi response |
| # in the event of an error. |
# in the event of an error. |
| # |
# |
| sub ssi_with_retries { |
sub ssi_with_retries { |
|
Line 116 sub ssi_with_retries {
|
Line 116 sub ssi_with_retries {
|
| |
|
| sub ssi_print_error { |
sub ssi_print_error { |
| my ($r) = @_; |
my ($r) = @_; |
| $r->print('<h2>Unrecoverable network error</h2>'); |
my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk'); |
| $r->print('<p>Unable to perform a resource fetch from a server: <br />'); |
$r->print(' |
| $r->print("Resource: $ssi_error_resource <br />"); |
<br /> |
| $r->print("Error: $ssi_error_message <br /> Try again later."); |
<h2>'.&mt('An unrecoverable network error occurred:').'</h2> |
| $r->print('If errors persist, contact LonCAPA support for assistance</p>'); |
<p> |
| |
'.&mt('Unable to retrieve a resource from a server:').'<br /> |
| |
'.&mt('Resource:').' '.$ssi_error_resource.'<br /> |
| |
'.&mt('Error:').' '.$ssi_error_message.' |
| |
</p> |
| |
<p>'. |
| |
&mt('It is recommended that you try again later, as this error may mean the server was just temporarily unavailable, or is down for maintenance.').'<br />'. |
| |
&mt('If the error persists, please contact the [_1] for assistance.',$helpurl). |
| |
'</p>'); |
| |
return; |
| } |
} |
| |
|
| # |
# |
|
Line 276 sub reset_caches {
|
Line 285 sub reset_caches {
|
| my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb); |
my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb); |
| $url=&Apache::lonnet::clutter($url); |
$url=&Apache::lonnet::clutter($url); |
| my $subresult=&ssi_with_retries($url, $ssi_retries, |
my $subresult=&ssi_with_retries($url, $ssi_retries, |
| ('grade_target' => 'analyze'), |
('grade_target' => 'analyze', |
| ('grade_domain' => $udom), |
'grade_domain' => $udom, |
| ('grade_symb' => $symb), |
'grade_symb' => $symb, |
| ('grade_courseid' => |
'grade_courseid' => |
| $env{'request.course.id'}), |
$env{'request.course.id'}, |
| ('grade_username' => $uname)); |
'grade_username' => $uname)); |
| (undef,$subresult)=split(/_HASH_REF__/,$subresult,2); |
(undef,$subresult)=split(/_HASH_REF__/,$subresult,2); |
| my %analyze=&Apache::lonnet::str2hash($subresult); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
| return $analyze_cache{$key} = \%analyze; |
return $analyze_cache{$key} = \%analyze; |
|
Line 1833 sub download_all_link {
|
Line 1842 sub download_all_link {
|
| join("\n",&Apache::loncommon::get_env_multiple('form.vPart')); |
join("\n",&Apache::loncommon::get_env_multiple('form.vPart')); |
| |
|
| my $identifier = &Apache::loncommon::get_cgi_id(); |
my $identifier = &Apache::loncommon::get_cgi_id(); |
| &Apache::lonnet::appenv('cgi.'.$identifier.'.students' => $all_students, |
&Apache::lonnet::appenv({'cgi.'.$identifier.'.students' => $all_students, |
| 'cgi.'.$identifier.'.symb' => $symb, |
'cgi.'.$identifier.'.symb' => $symb, |
| 'cgi.'.$identifier.'.parts' => $parts,); |
'cgi.'.$identifier.'.parts' => $parts,}); |
| $r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">'. |
$r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">'. |
| &mt('Download All Submitted Documents').'</a>'); |
&mt('Download All Submitted Documents').'</a>'); |
| return |
return |
|
Line 2759 sub check_and_remove_from_queue {
|
Line 2768 sub check_and_remove_from_queue {
|
| |
|
| sub handback_files { |
sub handback_files { |
| my ($request,$symb,$stuname,$domain,$newflg,$new_part,$newrecord) = @_; |
my ($request,$symb,$stuname,$domain,$newflg,$new_part,$newrecord) = @_; |
| my $portfolio_root = &propath($domain,$stuname).'/userfiles/portfolio'; |
my $portfolio_root = '/userfiles/portfolio'; |
| my ($partlist,$handgrade,$responseType) = &response_type($symb); |
my ($partlist,$handgrade,$responseType) = &response_type($symb); |
| |
|
| my @part_response_id = &flatten_responseType($responseType); |
my @part_response_id = &flatten_responseType($responseType); |
|
Line 2777 sub handback_files {
|
Line 2786 sub handback_files {
|
| 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 ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/); |
my ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/); |
| my @dir_list = &Apache::lonnet::dirlist($portfolio_path,$domain,$stuname,$portfolio_root); |
my $getpropath = 1; |
| |
my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$portfolio_path,$domain,$stuname,$getpropath); |
| my $version = &get_next_version($answer_name, $answer_ext, \@dir_list); |
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}\/(.*)/); |
|
Line 2913 sub version_portfiles {
|
Line 2923 sub version_portfiles {
|
| my $version_parts = join('|',@$v_flag); |
my $version_parts = join('|',@$v_flag); |
| my @returned_keys; |
my @returned_keys; |
| my $parts = join('|', @$parts_graded); |
my $parts = join('|', @$parts_graded); |
| my $portfolio_root = &propath($domain,$stu_name). |
my $portfolio_root = '/userfiles/portfolio'; |
| '/userfiles/portfolio'; |
|
| foreach my $key (keys(%$record)) { |
foreach my $key (keys(%$record)) { |
| my $new_portfiles; |
my $new_portfiles; |
| if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) { |
if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) { |
|
Line 2925 sub version_portfiles {
|
Line 2934 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 @dir_list = &Apache::lonnet::dirlist($directory,$domain,$stu_name,$portfolio_root); |
my $getpropath = 1; |
| |
my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$directory,$domain,$stu_name,$getpropath); |
| my $version = &get_next_version($answer_name, $answer_ext, \@dir_list); |
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') { |
|
Line 4825 sub get_response_bubbles {
|
Line 4835 sub get_response_bubbles {
|
| sub scantron_filenames { |
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 @files=&Apache::lonnet::dirlist('userfiles',$cdom,$cname, |
my @files=&Apache::lonnet::dirlist('userfiles',$cdom,$cname, |
| &propath($cdom,$cname)); |
$getpropath); |
| my @possiblenames; |
my @possiblenames; |
| foreach my $filename (sort(@files)) { |
foreach my $filename (sort(@files)) { |
| ($filename)=split(/&/,$filename); |
($filename)=split(/&/,$filename); |
|
Line 4869 sub scantron_uploads {
|
Line 4880 sub scantron_uploads {
|
| =cut |
=cut |
| |
|
| sub scantron_scantab { |
sub scantron_scantab { |
| my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); |
|
| my $result='<select name="scantron_format">'."\n"; |
my $result='<select name="scantron_format">'."\n"; |
| $result.='<option></option>'."\n"; |
$result.='<option></option>'."\n"; |
| foreach my $line (<$fh>) { |
my @lines = &get_scantronformat_file(); |
| my ($name,$descrip)=split(/:/,$line); |
if (@lines > 0) { |
| if ($name =~ /^\#/) { next; } |
foreach my $line (@lines) { |
| $result.='<option value="'.$name.'">'.$descrip.'</option>'."\n"; |
next if (($line =~ /^\#/) || ($line eq '')); |
| |
my ($name,$descrip)=split(/:/,$line); |
| |
$result.='<option value="'.$name.'">'.$descrip.'</option>'."\n"; |
| |
} |
| } |
} |
| $result.='</select>'."\n"; |
$result.='</select>'."\n"; |
| |
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=item get_scantronformat_file |
| |
|
| |
Returns an array containing lines from the scantron format file for |
| |
the domain of the course. |
| |
|
| |
If a url for a custom.tab file is listed in domain's configuration.db, |
| |
lines are from this file. |
| |
|
| |
Otherwise, if a default.tab has been published in RES space by the |
| |
domainconfig user, lines are from this file. |
| |
|
| |
Otherwise, fall back to getting lines from the legacy file on the |
| |
local server: /home/httpd/lonTabs/default_scantronformat.tab |
| |
|
| |
=cut |
| |
|
| |
sub get_scantronformat_file { |
| |
my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my %domconfig = &Apache::lonnet::get_dom('configuration',['scantron'],$cdom); |
| |
my $gottab = 0; |
| |
my @lines; |
| |
if (ref($domconfig{'scantron'}) eq 'HASH') { |
| |
if ($domconfig{'scantron'}{'scantronformat'} ne '') { |
| |
my $formatfile = &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.$domconfig{'scantron'}{'scantronformat'}); |
| |
if ($formatfile ne '-1') { |
| |
@lines = split("\n",$formatfile,-1); |
| |
$gottab = 1; |
| |
} |
| |
} |
| |
} |
| |
if (!$gottab) { |
| |
my $confname = $cdom.'-domainconfig'; |
| |
my $default = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$cdom.'/'.$confname.'/default.tab'; |
| |
my $formatfile = &Apache::lonnet::getfile($default); |
| |
if ($formatfile ne '-1') { |
| |
@lines = split("\n",$formatfile,-1); |
| |
$gottab = 1; |
| |
} |
| |
} |
| |
if (!$gottab) { |
| |
my @domains = &Apache::lonnet::current_machine_domains(); |
| |
if (grep(/^\Q$cdom\E$/,@domains)) { |
| |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); |
| |
@lines = <$fh>; |
| |
close($fh); |
| |
} else { |
| |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/default_scantronformat.tab'); |
| |
@lines = <$fh>; |
| |
close($fh); |
| |
} |
| |
} |
| |
return @lines; |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| =item scantron_CODElist |
=item scantron_CODElist |
|
Line 5140 sub scantron_selectphase {
|
Line 5208 sub scantron_selectphase {
|
| |
|
| sub get_scantron_config { |
sub get_scantron_config { |
| my ($which) = @_; |
my ($which) = @_; |
| my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); |
my @lines = &get_scantronformat_file(); |
| my %config; |
my %config; |
| #FIXME probably should move to XML it has already gotten a bit much now |
#FIXME probably should move to XML it has already gotten a bit much now |
| foreach my $line (<$fh>) { |
foreach my $line (@lines) { |
| my ($name,$descrip)=split(/:/,$line); |
my ($name,$descrip)=split(/:/,$line); |
| if ($name ne $which ) { next; } |
if ($name ne $which ) { next; } |
| chomp($line); |
chomp($line); |
|
Line 7247 sub scantron_get_maxbubble {
|
Line 7315 sub scantron_get_maxbubble {
|
| } |
} |
| } |
} |
| my $result=&ssi_with_retries($resource->src(), $ssi_retries, |
my $result=&ssi_with_retries($resource->src(), $ssi_retries, |
| ('symb' => $symb), |
('symb' => $symb, |
| ('grade_target' => 'analyze'), |
'grade_target' => 'analyze', |
| ('grade_courseid' => $cid), |
'grade_courseid' => $cid, |
| ('grade_domain' => $udom), |
'grade_domain' => $udom, |
| ('grade_username' => $uname)); |
'grade_username' => $uname)); |
| my (undef, $an) = |
my (undef, $an) = |
| split(/_HASH_REF__/,$result, 2); |
split(/_HASH_REF__/,$result, 2); |
| |
|
|
Line 7451 SCANTRONFORM
|
Line 7519 SCANTRONFORM
|
| my @delayqueue; |
my @delayqueue; |
| my %completedstudents; |
my %completedstudents; |
| |
|
| |
my $lock=&Apache::lonnet::set_lock(&mt('Grading bubblesheet exam')); |
| my $count=&get_todo_count($scanlines,$scan_data); |
my $count=&get_todo_count($scanlines,$scan_data); |
| my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron Status', |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron Status', |
| 'Scantron Progress',$count, |
'Scantron Progress',$count, |
|
Line 7471 SCANTRONFORM
|
Line 7540 SCANTRONFORM
|
| $r->print("</form>"); |
$r->print("</form>"); |
| &ssi_print_error($r); |
&ssi_print_error($r); |
| $r->print(&show_grading_menu_form($symb)); |
$r->print(&show_grading_menu_form($symb)); |
| |
&Apache::lonnet::remove_lock($lock); |
| return ''; # Dunno why the other returns return '' rather than just returning. |
return ''; # Dunno why the other returns return '' rather than just returning. |
| } |
} |
| |
|
|
Line 7500 SCANTRONFORM
|
Line 7570 SCANTRONFORM
|
| ($uname,$udom)=split(/:/,$uname); |
($uname,$udom)=split(/:/,$uname); |
| |
|
| &Apache::lonxml::clear_problem_counter(); |
&Apache::lonxml::clear_problem_counter(); |
| &Apache::lonnet::appenv(%$scan_record); |
&Apache::lonnet::appenv($scan_record); |
| |
|
| if (&scantron_clear_skip($scanlines,$scan_data,$i)) { |
if (&scantron_clear_skip($scanlines,$scan_data,$i)) { |
| &scantron_putfile($scanlines,$scan_data); |
&scantron_putfile($scanlines,$scan_data); |
|
Line 7528 SCANTRONFORM
|
Line 7598 SCANTRONFORM
|
| $r->print("</form>"); |
$r->print("</form>"); |
| &ssi_print_error($r); |
&ssi_print_error($r); |
| $r->print(&show_grading_menu_form($symb)); |
$r->print(&show_grading_menu_form($symb)); |
| |
&Apache::lonnet::remove_lock($lock); |
| return ''; # Why return ''? Beats me. |
return ''; # Why return ''? Beats me. |
| } |
} |
| |
|
|
Line 7540 SCANTRONFORM
|
Line 7611 SCANTRONFORM
|
| &Apache::lonnet::delenv('scantron\.'); |
&Apache::lonnet::delenv('scantron\.'); |
| } |
} |
| &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
| |
&Apache::lonnet::remove_lock($lock); |
| # my $lasttime = &Time::HiRes::time()-$start; |
# my $lasttime = &Time::HiRes::time()-$start; |
| # $r->print("<p>took $lasttime</p>"); |
# $r->print("<p>took $lasttime</p>"); |
| |
|
|
Line 8154 sub process_clicker {
|
Line 8226 sub process_clicker {
|
| if (!$env{'form.upfiletype'}) { $env{'form.upfiletype'}='iclicker'; } |
if (!$env{'form.upfiletype'}) { $env{'form.upfiletype'}='iclicker'; } |
| |
|
| my %checked; |
my %checked; |
| foreach my $gradingmechanism ('attendance','personnel','specific') { |
foreach my $gradingmechanism ('attendance','personnel','specific','given') { |
| if ($env{'form.gradingmechanism'} eq $gradingmechanism) { |
if ($env{'form.gradingmechanism'} eq $gradingmechanism) { |
| $checked{$gradingmechanism}="checked='checked'"; |
$checked{$gradingmechanism}="checked='checked'"; |
| } |
} |
|
Line 8165 sub process_clicker {
|
Line 8237 sub process_clicker {
|
| my $attendance=&mt("Award points just for participation"); |
my $attendance=&mt("Award points just for participation"); |
| my $personnel=&mt("Correctness determined from response by course personnel"); |
my $personnel=&mt("Correctness determined from response by course personnel"); |
| my $specific=&mt("Correctness determined from response with clicker ID(s)"); |
my $specific=&mt("Correctness determined from response with clicker ID(s)"); |
| |
my $given=&mt("Correctness determined from given list of answers").' '. |
| |
'<font size="-2"><tt>('.&mt("Provide comma-separated list. Use '*' for any answer correct, '-' for skip").')</tt></font>'; |
| my $pcorrect=&mt("Percentage points for correct solution"); |
my $pcorrect=&mt("Percentage points for correct solution"); |
| my $pincorrect=&mt("Percentage points for incorrect solution"); |
my $pincorrect=&mt("Percentage points for incorrect solution"); |
| my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype', |
my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype', |
|
Line 8222 function sanitycheck() {
|
Line 8296 function sanitycheck() {
|
| <br /><label><input type="radio" name="gradingmechanism" value="personnel" $checked{'personnel'} onClick="sanitycheck()" />$personnel</label> |
<br /><label><input type="radio" name="gradingmechanism" value="personnel" $checked{'personnel'} onClick="sanitycheck()" />$personnel</label> |
| <br /><label><input type="radio" name="gradingmechanism" value="specific" $checked{'specific'} onClick="sanitycheck()" />$specific </label> |
<br /><label><input type="radio" name="gradingmechanism" value="specific" $checked{'specific'} onClick="sanitycheck()" />$specific </label> |
| <input type="text" name="specificid" value="$env{'form.specificid'}" size="20" /> |
<input type="text" name="specificid" value="$env{'form.specificid'}" size="20" /> |
| |
<br /><label><input type="radio" name="gradingmechanism" value="given" $checked{'given'} onClick="sanitycheck()" />$given </label> |
| |
<br /> |
| |
<input type="text" name="givenanswer" size="50" /> |
| <input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" /> |
<input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" /> |
| <br /><label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onChange="sanitycheck()" /></label> |
<br /><label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onChange="sanitycheck()" /></label> |
| <br /><label>$pincorrect: <input type="text" name="pincorrect" size="4" value="$env{'form.pincorrect'}" onChange="sanitycheck()" /></label> |
<br /><label>$pincorrect: <input type="text" name="pincorrect" size="4" value="$env{'form.pincorrect'}" onChange="sanitycheck()" /></label> |
|
Line 8248 sub process_clicker_file {
|
Line 8325 sub process_clicker_file {
|
| $result.='<span class="LC_error">'.&mt('You need to specify a clicker ID for the correct answer').'</span>'; |
$result.='<span class="LC_error">'.&mt('You need to specify a clicker ID for the correct answer').'</span>'; |
| return $result.&show_grading_menu_form($symb); |
return $result.&show_grading_menu_form($symb); |
| } |
} |
| |
if (($env{'form.gradingmechanism'} eq 'given') && ($env{'form.givenanswer'}!~/\S/)) { |
| |
$result.='<span class="LC_error">'.&mt('You need to specify the correct answer').'</span>'; |
| |
return $result.&show_grading_menu_form($symb); |
| |
} |
| |
my $foundgiven=0; |
| |
if ($env{'form.gradingmechanism'} eq 'given') { |
| |
$env{'form.givenanswer'}=~s/^\s*//gs; |
| |
$env{'form.givenanswer'}=~s/\s*$//gs; |
| |
$env{'form.givenanswer'}=~s/[^a-zA-Z0-9\.\*\-]+/\,/g; |
| |
$env{'form.givenanswer'}=uc($env{'form.givenanswer'}); |
| |
my @answers=split(/\,/,$env{'form.givenanswer'}); |
| |
$foundgiven=$#answers+1; |
| |
} |
| my %clicker_ids=&gather_clicker_ids(); |
my %clicker_ids=&gather_clicker_ids(); |
| my %correct_ids; |
my %correct_ids; |
| if ($env{'form.gradingmechanism'} eq 'personnel') { |
if ($env{'form.gradingmechanism'} eq 'personnel') { |
|
Line 8266 sub process_clicker_file {
|
Line 8356 sub process_clicker_file {
|
| } |
} |
| if ($env{'form.gradingmechanism'} eq 'attendance') { |
if ($env{'form.gradingmechanism'} eq 'attendance') { |
| $result.=&mt('Score based on attendance only'); |
$result.=&mt('Score based on attendance only'); |
| |
} elsif ($env{'form.gradingmechanism'} eq 'given') { |
| |
$result.=&mt('Score based on [_1] ([_2] answers)','<tt>'.$env{'form.givenanswer'}.'</tt>',$foundgiven); |
| } else { |
} else { |
| my $number=0; |
my $number=0; |
| $result.='<p><b>'.&mt('Correctness determined by the following IDs').'</b>'; |
$result.='<p><b>'.&mt('Correctness determined by the following IDs').'</b>'; |
|
Line 8311 sub process_clicker_file {
|
Line 8403 sub process_clicker_file {
|
| <input type="hidden" name="pcorrect" value="$env{'form.pcorrect'}" /> |
<input type="hidden" name="pcorrect" value="$env{'form.pcorrect'}" /> |
| <input type="hidden" name="pincorrect" value="$env{'form.pincorrect'}" /> |
<input type="hidden" name="pincorrect" value="$env{'form.pincorrect'}" /> |
| ENDHEADER |
ENDHEADER |
| |
if ($env{'form.gradingmechanism'} eq 'given') { |
| |
$result.='<input type="hidden" name="correct:given" value="'.$env{'form.givenanswer'}.'" />'; |
| |
} |
| my %responses; |
my %responses; |
| my @questiontitles; |
my @questiontitles; |
| my $errormsg=''; |
my $errormsg=''; |
|
Line 8326 ENDHEADER
|
Line 8421 ENDHEADER
|
| &mt('Awarding [_1] percent for correct and [_2] percent for incorrect responses', |
&mt('Awarding [_1] percent for correct and [_2] percent for incorrect responses', |
| $env{'form.pcorrect'},$env{'form.pincorrect'}). |
$env{'form.pcorrect'},$env{'form.pincorrect'}). |
| '<br />'; |
'<br />'; |
| |
if (($env{'form.gradingmechanism'} eq 'given') && ($number!=$foundgiven)) { |
| |
$result.='<span class="LC_error">'.&mt('Number of given answers does not agree with number of questions in file.').'</span>'; |
| |
return $result.&show_grading_menu_form($symb); |
| |
} |
| # Remember Question Titles |
# Remember Question Titles |
| # FIXME: Possibly need delimiter other than ":" |
# FIXME: Possibly need delimiter other than ":" |
| for (my $i=0;$i<$number;$i++) { |
for (my $i=0;$i<$number;$i++) { |
|
Line 8369 ENDHEADER
|
Line 8468 ENDHEADER
|
| } |
} |
| $result.='<hr />'. |
$result.='<hr />'. |
| &mt('Found [_1] registered and [_2] unregistered clickers.',$student_count,$unknown_count); |
&mt('Found [_1] registered and [_2] unregistered clickers.',$student_count,$unknown_count); |
| if ($env{'form.gradingmechanism'} ne 'attendance') { |
if (($env{'form.gradingmechanism'} ne 'attendance') && ($env{'form.gradingmechanism'} ne 'given')) { |
| if ($correct_count==0) { |
if ($correct_count==0) { |
| $errormsg.="Found no correct answers answers for grading!"; |
$errormsg.="Found no correct answers answers for grading!"; |
| } elsif ($correct_count>1) { |
} elsif ($correct_count>1) { |
|
Line 8514 ENDHEADER
|
Line 8613 ENDHEADER
|
| if ($user) { |
if ($user) { |
| my @answer=split(/\,/,$env{$key}); |
my @answer=split(/\,/,$env{$key}); |
| my $sum=0; |
my $sum=0; |
| |
my $realnumber=$number; |
| for (my $i=0;$i<$number;$i++) { |
for (my $i=0;$i<$number;$i++) { |
| if ($answer[$i]) { |
if ($answer[$i]) { |
| if ($gradingmechanism eq 'attendance') { |
if ($gradingmechanism eq 'attendance') { |
| $sum+=$pcorrect; |
$sum+=$pcorrect; |
| |
} elsif ($answer[$i] eq '*') { |
| |
$sum+=$pcorrect; |
| |
} elsif ($answer[$i] eq '-') { |
| |
$realnumber--; |
| } else { |
} else { |
| if ($answer[$i] eq $correct[$i]) { |
if ($answer[$i] eq $correct[$i]) { |
| $sum+=$pcorrect; |
$sum+=$pcorrect; |
|
Line 8527 ENDHEADER
|
Line 8631 ENDHEADER
|
| } |
} |
| } |
} |
| } |
} |
| my $ave=$sum/(100*$number); |
my $ave=$sum/(100*$realnumber); |
| # Store |
# Store |
| my ($username,$domain)=split(/\:/,$user); |
my ($username,$domain)=split(/\:/,$user); |
| my %grades=(); |
my %grades=(); |
![[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