version 1.17, 2004/06/25 21:02:41
|
version 1.19, 2004/08/12 12:54:12
|
Line 126 sub ProblemSelector {
|
Line 126 sub ProblemSelector {
|
next if ($res->{'type'} ne 'assessment'); |
next if ($res->{'type'} ne 'assessment'); |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
my $partdata = $res->{'partdata'}->{$part}; |
my $partdata = $res->{'partdata'}->{$part}; |
next if ($partdata->{'Survey'}); |
|
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
my $respid = $partdata->{'ResponseIds'}->[$i]; |
my $respid = $partdata->{'ResponseIds'}->[$i]; |
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
Line 639 sub ensure_proper_cache {
|
Line 638 sub ensure_proper_cache {
|
my ($symb) = @_; |
my ($symb) = @_; |
my $cid = $ENV{'request.course.id'}; |
my $cid = $ENV{'request.course.id'}; |
my $new_filename = '/home/httpd/perl/tmp/'. |
my $new_filename = '/home/httpd/perl/tmp/'. |
'problemanalsysis_'.$cid.'answer_cache.db'; |
'problemanalysis_'.$cid.'_answer_cache.db'; |
if (! defined($cache_filename) || |
if (! defined($cache_filename) || |
$cache_filename ne $new_filename || |
$cache_filename ne $new_filename || |
! defined($current_symb) || |
! defined($current_symb) || |