version 1.260.4.1, 2009/12/06 21:00:15
|
version 1.263, 2010/06/06 21:42:04
|
Line 573 sub valid_award {
|
Line 573 sub valid_award {
|
'BAD_FORMULA', 'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT', |
'BAD_FORMULA', 'INTERNAL_ERROR', 'SIG_FAIL', 'INCORRECT', |
'MISORDERED_RANK', 'INVALID_FILETYPE', |
'MISORDERED_RANK', 'INVALID_FILETYPE', |
'EXCESS_FILESIZE', 'DRAFT', |
'EXCESS_FILESIZE', 'DRAFT', |
'SUBMITTED', 'ASSIGNED_SCORE', |
'SUBMITTED', 'SUBMITTED_CREDIT', |
'APPROX_ANS', 'EXACT_ANS','COMMA_FAIL') { |
'ANONYMOUS', 'ANONYMOUS_CREDIT', |
|
'ASSIGNED_SCORE', 'APPROX_ANS', |
|
'EXACT_ANS','COMMA_FAIL') { |
if ($award eq $possibleaward) { return 1; } |
if ($award eq $possibleaward) { return 1; } |
} |
} |
return 0; |
return 0; |
Line 588 sub valid_award {
|
Line 590 sub valid_award {
|
'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA', 'INTERNAL_ERROR', |
'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA', 'INTERNAL_ERROR', |
'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK', |
'COMMA_FAIL', 'SIG_FAIL', 'INCORRECT', 'MISORDERED_RANK', |
'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'DRAFT', 'SUBMITTED', |
'INVALID_FILETYPE', 'EXCESS_FILESIZE', 'DRAFT', 'SUBMITTED', |
|
'SUBMITTED_CREDIT', 'ANONYMOUS', 'ANONYMOUS_CREDIT', |
'ASSIGNED_SCORE', 'APPROX_ANS', 'EXACT_ANS'); |
'ASSIGNED_SCORE', 'APPROX_ANS', 'EXACT_ANS'); |
my $i=0; |
my $i=0; |
my %fwd_awards = map { ($_,$i++) } @awards; |
my %fwd_awards = map { ($_,$i++) } @awards; |
Line 611 sub hide_award {
|
Line 614 sub hide_award {
|
return 1; |
return 1; |
} |
} |
if ($award =~ |
if ($award =~ |
/^(?:EXACT_ANS|APPROX_ANS|SUBMITTED|ASSIGNED_SCORE|INCORRECT)/) { |
/^(?:EXACT_ANS|APPROX_ANS|SUBMITTED|SUBMITTED_CREDIT|ANONYMOUS|ANONYMOUS_CREDIT|ASSIGNED_SCORE|INCORRECT)/) { |
return 1; |
return 1; |
} |
} |
return 0; |
return 0; |
Line 869 sub decideoutput {
|
Line 872 sub decideoutput {
|
$css_class=$possible_class{'charged_try'}; |
$css_class=$possible_class{'charged_try'}; |
$button=1; |
$button=1; |
} elsif ($award eq 'SUBMITTED') { |
} elsif ($award eq 'SUBMITTED') { |
if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') { |
$message = &mt("Your submission has been recorded."); |
if ($target eq 'web') { |
|
$message .= '<br />'.&mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.'); |
|
} |
|
} else { |
|
$message = &mt("Your submission has been recorded."); |
|
} |
|
$css_class=$possible_class{'no_grade'}; |
$css_class=$possible_class{'no_grade'}; |
$button=1; |
$button=1; |
|
} elsif ($award eq 'SUBMITTED_CREDIT') { |
|
$message = &mt("Your submission has been recorded, and credit awarded."); |
|
$css_class=$possible_class{'correct'}; |
|
$button=1; |
|
} elsif ($award eq 'ANONYMOUS') { |
|
$message = &mt("Your anonymous submission has been recorded."); |
|
$css_class=$possible_class{'no_grade'}; |
|
$button=1; |
|
} elsif ($award eq 'ANONYMOUS_CREDIT') { |
|
$message = &mt("Your anonymous submission has been recorded, and credit awarded."); |
|
$css_class=$possible_class{'correct'}; |
} elsif ($award eq 'DRAFT') { |
} elsif ($award eq 'DRAFT') { |
$message = &mt("Copy saved but not submitted."); |
$message = &mt("Copy saved but not submitted."); |
$css_class=$possible_class{'not_charged_try'}; |
$css_class=$possible_class{'not_charged_try'}; |
Line 928 sub decideoutput {
|
Line 936 sub decideoutput {
|
if (&Apache::lonhomework::hide_problem_status() |
if (&Apache::lonhomework::hide_problem_status() |
&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER' |
&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER' |
&& &hide_award($award)) { |
&& &hide_award($award)) { |
if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') { |
$message = &mt("Answer Submitted: Your final submission will be graded after the due date."); |
if ($target eq 'web') { |
|
$message = &mt("Your submission has been recorded.").'<br />'. |
|
&mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.'); |
|
} |
|
} else { |
|
$message = &mt("Answer Submitted: Your final submission will be graded after the due date."); |
|
} |
|
$css_class=$possible_class{'no_grade'}; |
$css_class=$possible_class{'no_grade'}; |
$button=1; |
$button=1; |
} |
} |
Line 1048 sub setgradedata {
|
Line 1049 sub setgradedata {
|
$Apache::lonhomework::results{"resource.$id.solved"} = |
$Apache::lonhomework::results{"resource.$id.solved"} = |
$solvemsg; |
$solvemsg; |
$Apache::lonhomework::results{"resource.$id.awarded"} = '1'; |
$Apache::lonhomework::results{"resource.$id.awarded"} = '1'; |
|
} elsif ( $award eq 'SUBMITTED_CREDIT' ) { |
|
$Apache::lonhomework::results{"resource.$id.tries"} = |
|
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
|
$Apache::lonhomework::results{"resource.$id.solved"} = |
|
'credit_attempted'; |
|
$Apache::lonhomework::results{"resource.$id.awarded"} = '1'; |
|
} elsif ( $award eq 'ANONYMOUS_CREDIT' ) { |
|
$Apache::lonhomework::results{"resource.$id.tries"} = |
|
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
|
$Apache::lonhomework::results{"resource.$id.solved"} = |
|
'credit_attempted'; |
|
$Apache::lonhomework::results{"resource.$id.awarded"} = '1'; |
} elsif ( $award eq 'INCORRECT' ) { |
} elsif ( $award eq 'INCORRECT' ) { |
$Apache::lonhomework::results{"resource.$id.tries"} = |
$Apache::lonhomework::results{"resource.$id.tries"} = |
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
Line 1062 sub setgradedata {
|
Line 1075 sub setgradedata {
|
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
$Apache::lonhomework::results{"resource.$id.solved"} = |
$Apache::lonhomework::results{"resource.$id.solved"} = |
'ungraded_attempted'; |
'ungraded_attempted'; |
|
} elsif ( $award eq 'ANONYMOUS' ) { |
|
$Apache::lonhomework::results{"resource.$id.tries"} = |
|
$Apache::lonhomework::history{"resource.$id.tries"} + 1; |
|
$Apache::lonhomework::results{"resource.$id.solved"} = |
|
'ungraded_attempted'; |
} elsif ( $award eq 'DRAFT' ) { |
} elsif ( $award eq 'DRAFT' ) { |
$Apache::lonhomework::results{"resource.$id.solved"} = ''; |
$Apache::lonhomework::results{"resource.$id.solved"} = ''; |
} elsif ( $award eq 'NO_RESPONSE' ) { |
} elsif ( $award eq 'NO_RESPONSE' ) { |
Line 1121 sub setgradedata {
|
Line 1139 sub setgradedata {
|
if ($award eq 'SUBMITTED') { |
if ($award eq 'SUBMITTED') { |
&Apache::response::add_to_gradingqueue(); |
&Apache::response::add_to_gradingqueue(); |
} |
} |
|
if (($Apache::lonhomework::type eq 'anonsurvey') || |
|
($Apache::lonhomework::type eq 'anonsurveycred')) { |
|
$Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type; |
|
} |
} |
} |
|
|
sub find_which_previous { |
sub find_which_previous { |
Line 1233 sub get_grade_messages {
|
Line 1255 sub get_grade_messages {
|
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } |
if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } |
my $tries_text=&mt('Tries'); |
my $tries_text= &get_tries_text();; |
if ( $Apache::lonhomework::type eq 'survey' || |
|
$Apache::lonhomework::parsing_a_task) { |
|
$tries_text=&mt('Submissions'); |
|
} |
|
|
|
if ($showbutton) { |
if ($showbutton) { |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
if ($env{'request.state'} ne "construct" |
if ($env{'request.state'} ne "construct" |
Line 1250 sub get_grade_messages {
|
Line 1267 sub get_grade_messages {
|
$trystr = '\vskip 0 mm '; |
$trystr = '\vskip 0 mm '; |
} |
} |
} else { |
} else { |
$trystr = '<td><span class="LC_nobreak">'; |
$trystr = '<td><span class="LC_nobreak">'.&mt($tries_text)." $tries"; |
my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'}); |
if ($Apache::lonhomework::parsing_a_task) { |
if ($parmhash{'suppress_tries'} ne 'yes') { |
} elsif($env{'request.state'} ne 'construct') { |
$trystr .= "$tries_text $tries"; |
$trystr.="/$maxtries"; |
if ($Apache::lonhomework::parsing_a_task) { |
} else { |
} elsif($env{'request.state'} ne 'construct') { |
if (defined($Apache::inputtags::params{'maxtries'})) { |
$trystr.="/$maxtries"; |
$trystr.="/".$Apache::inputtags::params{'maxtries'}; |
} else { |
} |
if (defined($Apache::inputtags::params{'maxtries'})) { |
} |
$trystr.="/".$Apache::inputtags::params{'maxtries'}; |
|
} |
|
} |
|
} |
|
$trystr.="</span></td>"; |
$trystr.="</span></td>"; |
} |
} |
} |
} |
Line 1305 sub gradestatus {
|
Line 1318 sub gradestatus {
|
} |
} |
if ( $showbutton ) { |
if ( $showbutton ) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my $submit_text = &mt('Submit Answer'); |
|
if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') { |
|
$submit_text = &mt('Submit Questions'); |
|
} |
|
$button = |
$button = |
'<input onmouseup="javascript:setSubmittedPart(\''.$id.'\')" |
'<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';" |
type="submit" name="submit_'.$id.'" |
type="submit" name="submit_'.$id.'" |
value="'.$submit_text.'" />'; |
value="'.&mt('Submit Answer').'" />'; |
} |
} |
} |
} |
|
|
Line 1345 sub previous_tries {
|
Line 1354 sub previous_tries {
|
|
|
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
my $prefix = $i.":resource.$id"; |
my $prefix = $i.":resource.$id"; |
|
my $is_anon; |
|
if (defined($env{'form.grade_symb'})) { |
|
if (($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurvey') || |
|
($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurveycred')) { |
|
$is_anon = 1; |
|
} |
|
} |
next if (!exists($Apache::lonhomework::history{"$prefix.award"})); |
next if (!exists($Apache::lonhomework::history{"$prefix.award"})); |
$count++; |
$count++; |
$count_lookup{$i} = $count; |
$count_lookup{$i} = $count; |
Line 1390 sub previous_tries {
|
Line 1405 sub previous_tries {
|
$submission = |
$submission = |
$Apache::lonhomework::history{"$prefix.submission"}; |
$Apache::lonhomework::history{"$prefix.submission"}; |
} |
} |
$output.='<td>'.$submission.'</td>'; |
if ($is_anon) { |
|
$output.='<td>'.&mt('(only shown to submitter)').'</td>'; |
|
} else { |
|
$output.='<td>'.$submission.'</td>'; |
|
} |
} else { |
} else { |
$output.='<td></td>'; |
$output.='<td></td>'; |
} |
} |
Line 1408 sub previous_tries {
|
Line 1427 sub previous_tries {
|
$output.='<br /><form action=""><center><input type="button" name="close" value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>'; |
$output.='<br /><form action=""><center><input type="button" name="close" value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>'; |
|
|
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $pagetitle = 'Previous Tries'; |
my $tries_text = &get_tries_text('link'); |
if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') { |
|
$pagetitle = 'Submission History'; |
|
} |
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page($pagetitle, undef, |
&Apache::loncommon::start_page($tries_text, undef, |
{'only_body' => 1, |
{'only_body' => 1, |
'bgcolor' => '#FFFFFF', |
'bgcolor' => '#FFFFFF', |
'js_ready' => 1, |
'js_ready' => 1, |
Line 1424 sub previous_tries {
|
Line 1440 sub previous_tries {
|
$prefix =~ tr{.}{_}; |
$prefix =~ tr{.}{_}; |
my $function_name = "LONCAPA_previous_tries_".$prefix. |
my $function_name = "LONCAPA_previous_tries_".$prefix. |
$Apache::lonxml::curdepth.'_'.$env{'form.counter'}; |
$Apache::lonxml::curdepth.'_'.$env{'form.counter'}; |
my $triestext = &mt('Previous Tries'); |
|
if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') { |
|
$triestext = &mt('Submission History'); |
|
} |
|
my $result ="<script type=\"text/javascript\"> |
my $result ="<script type=\"text/javascript\"> |
// <![CDATA[ |
// <![CDATA[ |
function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()} |
function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()} |
// ]]> |
// ]]> |
</script><a href=\"javascript:$function_name();void(0);\">".$triestext."</a><br />"; |
</script><a href=\"javascript:$function_name();void(0);\">".&mt($tries_text)."</a><br />"; |
#use Data::Dumper; |
#use Data::Dumper; |
#&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display)); |
#&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display)); |
return $result; |
return $result; |
} |
} |
|
|
|
sub get_tries_text { |
|
my ($context) = @_; |
|
my $tries_text; |
|
if ($context eq 'link') { |
|
$tries_text = 'Previous Tries'; |
|
} else { |
|
$tries_text = 'Tries'; |
|
} |
|
if ( $Apache::lonhomework::type eq 'survey' || |
|
$Apache::lonhomework::type eq 'surveycred' || |
|
$Apache::lonhomework::type eq 'anonsurvey' || |
|
$Apache::lonhomework::type eq 'anonsurveycred' || |
|
$Apache::lonhomework::parsing_a_task) { |
|
if ($context eq 'link') { |
|
$tries_text = 'Previous Submissions'; |
|
} else { |
|
$tries_text = 'Submissions'; |
|
} |
|
} |
|
return $tries_text; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|