Permalink
Browse files

Avoid persistent storage to make [summary] safe in prefork mode.

  • Loading branch information...
jonjensen committed Dec 13, 2002
1 parent 9680d6e commit 1e7778ac70d306476dce10d1d26e1b65f2acc2ce
Showing with 5 additions and 5 deletions.
  1. +5 −5 code/UserTag/summary.tag
@@ -13,19 +13,19 @@ UserTag summary Order amount
UserTag summary PosNumber 1
UserTag summary addAttr
UserTag summary Routine <<EOF
use vars qw/%summary_hash/;
sub {
my ($amount, $opt) = @_;
my $summary_hash = $::Instance->{tag_summary_hash} ||= {};
my $name;
unless ($name = $opt->{name} ) {
$name = 'ONLY0000';
%summary_hash = () if Vend::Util::is_yes($opt->{reset});
%$summary_hash = () if Vend::Util::is_yes($opt->{reset});
}
else {
$summary_hash{$name} = 0 if Vend::Util::is_yes($opt->{reset});
$summary_hash->{$name} = 0 if Vend::Util::is_yes($opt->{reset});
}
$summary_hash{$name} += $amount if length $amount;
$amount = $summary_hash{$name} if Vend::Util::is_yes($opt->{total});
$summary_hash->{$name} += $amount if length $amount;
$amount = $summary_hash->{$name} if Vend::Util::is_yes($opt->{total});
return '' if $opt->{hide};
return sprintf($opt->{format}, $amount) if $opt->{format};
return Vend::Util::currency($amount) if $opt->{currency};

0 comments on commit 1e7778a

Please sign in to comment.