version 1.124.2.1, 2004/02/06 22:39:56
|
version 1.125, 2003/12/22 22:24:21
|
Line 24
|
Line 24
|
# /home/httpd/html/adm/gpl.txt |
# /home/httpd/html/adm/gpl.txt |
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
|
# 2/19 Guy |
|
|
|
package Apache::inputtags; |
package Apache::inputtags; |
use HTML::Entities(); |
use HTML::Entities(); |
Line 500 sub removealldata {
|
Line 498 sub removealldata {
|
sub setgradedata { |
sub setgradedata { |
my ($award,$id,$previously_used) = @_; |
my ($award,$id,$previously_used) = @_; |
# if the student already has it correct, don't modify the status |
# if the student already has it correct, don't modify the status |
if (!$Apache::lonhomework::scantronmode && |
if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' && |
$Apache::inputtags::status['-1'] ne 'CAN_ANSWER' && |
|
$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') { |
$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') { |
$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award; |
$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award; |
return ''; |
return ''; |
Line 568 sub setgradedata {
|
Line 565 sub setgradedata {
|
} |
} |
} |
} |
|
|
# did either of the overall awards chage? If so ignore the |
# check if this was a previous submission if it was delete the |
# previous check |
# unneeded data and update the previously_used attribute |
if (($Apache::lonhomework::results{"resource.$id.awarded"} eq |
if ( $previously_used eq 'PREVIOUSLY_USED') { |
$Apache::lonhomework::history{"resource.$id.awarded"}) && |
if (lc($Apache::lonhomework::problemstatus) ne 'no') { |
($Apache::lonhomework::results{"resource.$id.solved"} eq |
delete($Apache::lonhomework::results{"resource.$id.tries"}); |
$Apache::lonhomework::history{"resource.$id.solved"})) { |
$Apache::lonhomework::results{"resource.$id.previous"} = '1'; |
# check if this was a previous submission if it was delete the |
} |
# unneeded data and update the previously_used attribute |
} elsif ( $previously_used eq 'PREVIOUSLY_LAST') { |
if ( $previously_used eq 'PREVIOUSLY_USED') { |
#delete all data as they student didn't do anything, but save |
if (lc($Apache::lonhomework::problemstatus) ne 'no') { |
#the list of collaborators. |
delete($Apache::lonhomework::results{"resource.$id.tries"}); |
&removealldata($id); |
$Apache::lonhomework::results{"resource.$id.previous"} = '1'; |
#and since they didn't do anything we were never here |
} |
return ''; |
} elsif ( $previously_used eq 'PREVIOUSLY_LAST') { |
} else { |
#delete all data as they student didn't do anything, but save |
$Apache::lonhomework::results{"resource.$id.previous"} = '0'; |
#the list of collaborators. |
|
&removealldata($id); |
|
#and since they didn't do anything we were never here |
|
return ''; |
|
} else { |
|
$Apache::lonhomework::results{"resource.$id.previous"} = '0'; |
|
} |
|
} |
} |
} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} =~ |
} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} =~ |
/^correct/ ) { |
/^correct/ ) { |
Line 687 sub gradestatus {
|
Line 677 sub gradestatus {
|
$trystr = '\vskip 0 mm '; |
$trystr = '\vskip 0 mm '; |
} |
} |
} else { |
} else { |
$trystr = "<td>".&mt('Tries')." $tries/$maxtries</td>"; |
$trystr = "<td>".&mt('Tries')." $tries"; |
|
if($ENV{'request.state'} ne 'construct') { $trystr.="/$maxtries"; } |
|
$trystr.="</td>"; |
} |
} |
} |
} |
if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;} |
if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;} |