|
version 1.160, 2007/03/15 02:52:16
|
version 1.162, 2007/04/17 23:25:09
|
|
Line 697 sub setup_params {
|
Line 697 sub setup_params {
|
| if ($env{'request.state'} eq 'construct') { return; } |
if ($env{'request.state'} eq 'construct') { return; } |
| my %paramlist=(); |
my %paramlist=(); |
| foreach my $key (keys(%Apache::lonnet::packagetab)) { |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
| if ($key =~ /^$tag/) { |
if ($key =~ /^\Q$tag\E/) { |
| my ($package,$name) = split(/&/,$key); |
my ($package,$name) = split(/&/,$key); |
| $paramlist{$name}=1; |
$paramlist{$name}=1; |
| } |
} |
|
Line 1095 sub check_status {
|
Line 1095 sub check_status {
|
| return 2; |
return 2; |
| } |
} |
| |
|
| |
sub setup_prior_tries_hash { |
| |
my ($func,$data) = @_; |
| |
my $part = $Apache::inputtags::part; |
| |
my $id = $Apache::inputtags::response[-1]; |
| |
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
| |
my $sub_key = "$i:resource.$part.$id.submission"; |
| |
next if (!exists($Apache::lonhomework::history{$sub_key})); |
| |
my @other_data; |
| |
foreach my $datum (@{ $data }) { |
| |
if (ref($datum)) { |
| |
push(@other_data,$datum); |
| |
} else { |
| |
my $info_key = "$i:resource.$part.$id.$datum"; |
| |
push(@other_data,$Apache::lonhomework::history{$info_key}); |
| |
} |
| |
} |
| |
|
| |
my $output = |
| |
&$func('grade', |
| |
$Apache::lonhomework::history{$sub_key}, |
| |
\@other_data); |
| |
if (defined($output)) { |
| |
$Apache::inputtags::submission_display{$sub_key} = $output; |
| |
} |
| |
} |
| |
} |
| |
|
| 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