version 1.12, 2004/06/04 21:42:18
|
version 1.20, 2004/08/25 17:23:06
|
Line 109 all option response and radiobutton prob
|
Line 109 all option response and radiobutton prob
|
|
|
Returns: A string containing html for a table which lists the sequences |
Returns: A string containing html for a table which lists the sequences |
and their contents. A radiobutton is provided for each problem. |
and their contents. A radiobutton is provided for each problem. |
|
Skips 'survey' problems. |
|
|
=cut |
=cut |
|
|
Line 224 sub get_target_from_id {
|
Line 225 sub get_target_from_id {
|
|
|
=pod |
=pod |
|
|
=item &get_prev_curr_next($target) |
=item &get_prev_curr_next($target,$AcceptableResponseTypes,$granularity) |
|
|
Determine the problem parts or responses preceeding and following the |
Determine the problem parts or responses preceeding and following the |
current resource. |
current resource. |
Line 232 current resource.
|
Line 233 current resource.
|
Inputs: $target (see &Apache::lonstathelpers::get_target_from_id()) |
Inputs: $target (see &Apache::lonstathelpers::get_target_from_id()) |
$AcceptableResponseTypes, regular expression matching acceptable |
$AcceptableResponseTypes, regular expression matching acceptable |
response types, |
response types, |
$granularity, either 'part' or 'response' |
$granularity, either 'part', 'response', or 'part_survey' |
|
|
Returns: three hash references, $prev, $curr, $next, which refer to the |
Returns: three hash references, $prev, $curr, $next, which refer to the |
preceeding, current, or following problem parts or responses, depending |
preceeding, current, or following problem parts or responses, depending |
Line 260 sub get_prev_curr_next {
|
Line 261 sub get_prev_curr_next {
|
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}; |
if ($granularity eq 'part') { |
if ($partdata->{'Survey'} && ($granularity eq 'part_survey')){ |
|
push (@Resource, |
|
{ symb => $res->{symb}, |
|
part => $part, |
|
resource => $res, |
|
} ); |
|
} elsif ($granularity eq 'part') { |
push (@Resource, |
push (@Resource, |
{ symb => $res->{symb}, |
{ symb => $res->{symb}, |
part => $part, |
part => $part, |
Line 290 sub get_prev_curr_next {
|
Line 297 sub get_prev_curr_next {
|
my $curr_idx; |
my $curr_idx; |
for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) { |
for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) { |
my $curr_item = $Resource[$curr_idx]; |
my $curr_item = $Resource[$curr_idx]; |
if ($granularity eq 'part') { |
if ($granularity eq 'part' || $granularity eq 'part_survey') { |
if ($curr_item->{'symb'} eq $target->{'symb'} && |
if ($curr_item->{'symb'} eq $target->{'symb'} && |
$curr_item->{'part'} eq $target->{'part'}) { |
$curr_item->{'part'} eq $target->{'part'}) { |
last; |
last; |
Line 305 sub get_prev_curr_next {
|
Line 312 sub get_prev_curr_next {
|
} |
} |
} |
} |
my $curr_item = $Resource[$curr_idx]; |
my $curr_item = $Resource[$curr_idx]; |
if ($granularity eq 'part') { |
if ($granularity eq 'part' || $granularity eq 'part_survey') { |
if ($curr_item->{'symb'} ne $target->{'symb'} || |
if ($curr_item->{'symb'} ne $target->{'symb'} || |
$curr_item->{'part'} ne $target->{'part'}) { |
$curr_item->{'part'} ne $target->{'part'}) { |
# bogus symb - return nothing |
# bogus symb - return nothing |
Line 629 sub ensure_proper_cache {
|
Line 636 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) || |
Line 1063 Returns: An array of scalars containing
|
Line 1070 Returns: An array of scalars containing
|
sub manage_caches { |
sub manage_caches { |
my ($r,$formname,$inputname) = @_; |
my ($r,$formname,$inputname) = @_; |
&Apache::loncoursedata::clear_internal_caches(); |
&Apache::loncoursedata::clear_internal_caches(); |
|
my $sectionkey = |
|
join(',', |
|
map { |
|
&Apache::lonnet::escape($_); |
|
} sort(@Apache::lonstatistics::SelectedSections) |
|
); |
|
my $statuskey = $Apache::lonstatistics::enrollment_status; |
if (exists($ENV{'form.ClearCache'}) || |
if (exists($ENV{'form.ClearCache'}) || |
exists($ENV{'form.updatecaches'}) || |
exists($ENV{'form.updatecaches'}) || |
(exists($ENV{'form.firstrun'}) && |
(exists($ENV{'form.firstrun'}) && $ENV{'form.firstrun'} ne 'no') || |
$ENV{'form.firstrun'} ne 'no')) { |
(exists($ENV{'form.prevsection'}) && |
|
$ENV{'form.prevsection'} ne $sectionkey) || |
|
(exists($ENV{'form.prevenrollstatus'}) && |
|
$ENV{'form.prevenrollstatus'} ne $statuskey) |
|
) { |
&Apache::lonstatistics::Gather_Full_Student_Data($r,$formname, |
&Apache::lonstatistics::Gather_Full_Student_Data($r,$formname, |
$inputname); |
$inputname); |
} |
} |
# |
# |
|
my @Buttons = |
|
('<input type="submit" name="ClearCache" '. |
|
'value="'.&mt('Clear Caches').'" />', |
|
'<input type="submit" name="updatecaches" '. |
|
'value="'.&mt('Update Caches').'" />'. |
|
&Apache::loncommon::help_open_topic('Statistics_Cache'), |
|
'<input type="hidden" name="prevsection" value="'.$sectionkey.'" />', |
|
'<input type="hidden" name="prevenrollstatus" value="'.$statuskey.'" />' |
|
); |
|
# |
if (! exists($ENV{'form.firstrun'})) { |
if (! exists($ENV{'form.firstrun'})) { |
$r->print('<input type="hidden" name="firstrun" value="yes" />'); |
$r->print('<input type="hidden" name="firstrun" value="yes" />'); |
} else { |
} else { |
$r->print('<input type="hidden" name="firstrun" value="no" />'); |
$r->print('<input type="hidden" name="firstrun" value="no" />'); |
} |
} |
my @Buttons = |
|
('<input type="submit" name="ClearCache" '. |
|
'value="'.&mt('Clear Caches').'" />', |
|
'<input type="submit" name="updatecaches" '. |
|
'value="'.&mt('Update Caches').'" />'); |
|
# |
# |
return @Buttons; |
return @Buttons; |
} |
} |