version 1.16, 2005/06/03 19:33:37
|
version 1.17, 2005/06/04 03:36:36
|
Line 623 sub getitems {
|
Line 623 sub getitems {
|
$stats{$part}{degdiff} = $degdiff; |
$stats{$part}{degdiff} = $degdiff; |
$stats{$part}{attempts} = $av_attempts; |
$stats{$part}{attempts} = $av_attempts; |
$stats{$part}{users} = $users; |
$stats{$part}{users} = $users; |
my %resethash = &Apache::lonnet::restore($symb,'nohist_resourcetracker',$cdom,$crs); |
$lastreset{$part} = $resourcetracker{$symb."\0".$part."\0resettime"}; |
$lastreset{$part} = &get_counter_resets(\%resethash,$part); |
|
$warning = 1; |
$warning = 1; |
} |
} |
} |
} |
Line 665 sub getitems {
|
Line 664 sub getitems {
|
} |
} |
} |
} |
|
|
sub get_counter_resets { |
|
my ($resethash,$part) = @_; |
|
my $lastreset = 'None'; |
|
if ($$resethash{'version'}) { |
|
for (my $version=1;$version<=$$resethash{'version'};$version++) { |
|
if (exists($$resethash{$version.':'.$part."\0".'prev_attempts'})) { |
|
$lastreset = $$resethash{$version.':timestamp'}; |
|
} |
|
} |
|
} |
|
unless ($lastreset eq 'None') { |
|
$lastreset = localtime($lastreset); |
|
} |
|
return $lastreset; |
|
} |
|
|
|
sub get_curr_thresholds { |
sub get_curr_thresholds { |
my ($threshold,$cdom,$crs) = @_; |
my ($threshold,$cdom,$crs) = @_; |
my %coursesettings = &Apache::lonnet::dump('environment', |
my %coursesettings = &Apache::lonnet::dump('environment', |
Line 707 sub process_reset {
|
Line 690 sub process_reset {
|
); |
); |
my @resets = (); |
my @resets = (); |
my %titles = (); |
my %titles = (); |
foreach my $key (keys %env) { |
foreach my $key (keys(%env)) { |
next if ($key !~ /^form\.reset_(.+)$/); |
next if ($key !~ /^form\.reset_(.+)$/); |
my $title = &Apache::lonnet::unescape($env{'form.title_'.$1}); |
my $title = &Apache::lonnet::unescape($env{'form.title_'.$1}); |
my $reset_item = &Apache::lonnet::unescape($1); |
my $reset_item = &Apache::lonnet::unescape($1); |
my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
my %resethash = (); |
|
my %aggregates = (); |
my %aggregates = (); |
my ($symb,$part) = split/\0/,$reset_item; |
my ($symb,$part) = split(/\0/,$reset_item); |
foreach my $type (@agg_types) { |
foreach my $type (@agg_types) { |
$aggregates{$reset_item."\0".$type} = 0; |
$aggregates{$reset_item."\0".$type} = 0; |
$resethash{$part."\0".'prev_'.$type} = $curr_aggregates{$reset_item."\0".$type}; |
|
} |
} |
|
$aggregates{$reset_item."\0".'resettime'} = time; |
my $putresult = &Apache::lonnet::put('nohist_resourcetracker',\%aggregates, |
my $putresult = &Apache::lonnet::put('nohist_resourcetracker',\%aggregates, |
$dom,$crs); |
$dom,$crs); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
my $storeresult = &Apache::lonnet::cstore(\%resethash,$symb,'nohist_resourcetracker',$dom,$crs); |
|
$result .= $title.' -part '.$part.': '; |
$result .= $title.' -part '.$part.': '; |
my %new_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
my %new_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
foreach my $type (@agg_types) { |
foreach my $type (@agg_types) { |