GIFT_CERT_REDEEM_TABLE —
Interchange 5.9.0:
Source: dist/strap/config/pay_cert.tag
Line 13 (context shows lines 3-17)
UserTag pay-cert Routine <<EOR sub { my ($code, $opt) = @_; use vars qw/$Tag/; my ($log, $die2, $warn) = $Tag->logger('pay_cert', 'logs/pay_cert.log'); 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'; my $ldb = dbref($lock_table) or return $die2->("cannot open payment certs lock table '%s'", $lock_table);