GIFT_CERT_COUNTER —
Interchange 5.7.0:
Source: dist/standard/config/pay_cert.tag
Line 17 (context shows lines 7-21)
#
# $Id: pay_cert.tag,v 1.4 2009-05-01 13:50:00 pajamian Exp $
UserTag pay-cert Order code
UserTag pay-cert addAttr
UserTag pay-cert Routine <<EOR
sub {
my ($code, $opt) = @_;
use vars qw/$Tag/;
my $counter_file = $::Variable->{GIFT_CERT_COUNTER} || 'etc/pay_cert.number';
my $cert_table = $::Variable->{GIFT_CERT_TABLE} || 'pay_certs';
my $redeem_table = $::Variable->{GIFT_CERT_REDEEM_TABLE} || 'pay_cert_redeem';
my $lock_table = $::Variable->{GIFT_CERT_LOCK_TABLE} || 'pay_cert_lock';