pay_cert_redeem.tag (interchange-5.8.2) | : | pay_cert_redeem.tag (interchange-5.10.0) | ||
---|---|---|---|---|
# Copyright 2004-2007 Interchange Development Group and others | ||||
# | ||||
# This program is free software; you can redistribute it and/or modify | ||||
# it under the terms of the GNU General Public License as published by | ||||
# the Free Software Foundation; either version 2 of the License, or | ||||
# (at your option) any later version. See the LICENSE file for details. | ||||
# | ||||
# $Id: pay_cert_redeem.tag,v 1.4 2007-08-09 13:40:53 pajamian Exp $ | ||||
UserTag pay-cert-redeem Order certs | UserTag pay-cert-redeem Order certs | |||
UserTag pay-cert-redeem addAttr | UserTag pay-cert-redeem addAttr | |||
UserTag pay-cert-redeem Routine <<EOR | UserTag pay-cert-redeem Routine <<EOR | |||
sub { | sub { | |||
my ($certs, $opt) = @_; | my ($certs, $opt) = @_; | |||
my $ctab = $opt->{table} || 'pay_certs'; | my $ctab = $opt->{table} || 'pay_certs'; | |||
my $cdb = dbref($ctab) | my $cdb = dbref($ctab) | |||
or die errmsg("No payment cert table '%s'", $ctab ); | or die errmsg("No payment cert table '%s'", $ctab ); | |||
End of changes. 1 change blocks. | ||||
9 lines changed or deleted | 0 lines changed or added |