version 1.88, 2003/11/03 21:47:21
|
version 1.91, 2004/02/16 20:09:51
|
Line 111 sub meta_parameter_write {
|
Line 111 sub meta_parameter_write {
|
} |
} |
$result.= ' name="'.$name.'"'. |
$result.= ' name="'.$name.'"'. |
' type="'.$type.'"'. |
' type="'.$type.'"'. |
($default?' default="'.$default.'"':''). |
(defined($default)?' default="'.$default.'"':''). |
($display?' display="'.$display.' [Part: '.$partref.']"':'') |
(defined($display)?' display="'.$display.' [Part: '.$partref.']"':'') |
.'></parameter>' |
.'></parameter>' |
."\n"; |
."\n"; |
return $result; |
return $result; |
Line 456 sub showallfoils {
|
Line 456 sub showallfoils {
|
} |
} |
|
|
sub getresponse { |
sub getresponse { |
my ($temp)=@_; |
my ($temp,$resulttype)=@_; |
my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1']; |
my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1']; |
my $response; |
my $response; |
if (!defined($temp)) { |
if (!defined($temp)) { |
Line 476 sub getresponse {
|
Line 476 sub getresponse {
|
# save bubbled letter for later |
# save bubbled letter for later |
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.= |
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.= |
$response; |
$response; |
$response = $let_to_num{$response}; |
if ($resulttype ne 'letter') { |
|
$response = $let_to_num{$response}; |
|
} |
} else { |
} else { |
$response = $ENV{$formparm}; |
$response = $ENV{$formparm}; |
} |
} |
Line 500 sub scored_response {
|
Line 502 sub scored_response {
|
if ($increase ne '') { $score+=$increase+1; } |
if ($increase ne '') { $score+=$increase+1; } |
} |
} |
my $weight = &Apache::lonnet::EXT("resource.$part.weight"); |
my $weight = &Apache::lonnet::EXT("resource.$part.weight"); |
|
if (!defined($weight) || $weight eq '' || $weight eq 0) { $weight = 1; } |
my $pcr=$score/$weight; |
my $pcr=$score/$weight; |
$Apache::lonhomework::results{"resource.$part.$id.awarded"}=$pcr; |
$Apache::lonhomework::results{"resource.$part.$id.awarded"}=$pcr; |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
Line 555 sub whichorder {
|
Line 558 sub whichorder {
|
for (my $i=0;$i<=$#bottomlist;$i++) { |
for (my $i=0;$i<=$#bottomlist;$i++) { |
if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) } |
if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) } |
} |
} |
|
|
return @whichopt; |
return @whichopt; |
} |
} |
|
|