|
version 1.83, 2003/08/11 19:56:45
|
version 1.86, 2003/10/06 21:57:54
|
|
Line 180 sub mandatory_part_meta {
|
Line 180 sub mandatory_part_meta {
|
| # |
# |
| } |
} |
| |
|
| |
sub meta_part_order { |
| |
if (@Apache::inputtags::partlist) { |
| |
my @parts=@Apache::inputtags::partlist; |
| |
shift(@parts); |
| |
return '<partorder>'.join(',',@parts).'</partorder>'; |
| |
} else { |
| |
return '<partorder>0</partorder>'; |
| |
} |
| |
} |
| |
|
| sub check_for_previous { |
sub check_for_previous { |
| my ($curresponse,$partid,$id) = @_; |
my ($curresponse,$partid,$id) = @_; |
| my %previous; |
my %previous; |
|
Line 412 sub answer_header {
|
Line 422 sub answer_header {
|
| my ($type) = @_; |
my ($type) = @_; |
| my $result; |
my $result; |
| if ($ENV{'form.answer_output_mode'} eq 'tex') { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
| $result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: \verb|'. |
| $Apache::inputtags::part.' \\\\ \hline '; |
$Apache::inputtags::part.'| \\\\ \hline '; |
| } else { |
} else { |
| $result = '<table border="1"><tr><td>Answer for Part:'. |
$result = '<table border="1"><tr><td>Answer for Part:'. |
| $Apache::inputtags::part. '</td>'."\n"; |
$Apache::inputtags::part. '</td>'."\n"; |
|
Line 556 sub whichorder {
|
Line 566 sub whichorder {
|
| return @whichopt; |
return @whichopt; |
| } |
} |
| |
|
| |
sub show_answer { |
| |
my $part = $Apache::inputtags::part; |
| |
my $award = $Apache::lonhomework::history{"resource.$part.solved"}; |
| |
my $status = $Apache::inputtags::status[-1]; |
| |
return ( ($award =~ /^correct/ |
| |
&& lc($Apache::lonhomework::problemstatus) ne 'no') |
| |
|| $status eq "SHOW_ANSWER"); |
| |
} |
| 1; |
1; |
| __END__ |
__END__ |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework