projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1651dd5
)
some debugging for prepaid card generation, and retry more, RT#13329
author
ivan
<ivan>
Mon, 20 Jun 2011 23:50:52 +0000
(23:50 +0000)
committer
ivan
<ivan>
Mon, 20 Jun 2011 23:50:52 +0000
(23:50 +0000)
FS/FS/prepay_credit.pm
patch
|
blob
|
history
diff --git
a/FS/FS/prepay_credit.pm
b/FS/FS/prepay_credit.pm
index
e5773ae
..
c93999c
100644
(file)
--- a/
FS/FS/prepay_credit.pm
+++ b/
FS/FS/prepay_credit.pm
@@
-1,12
+1,15
@@
package FS::prepay_credit;
use strict;
package FS::prepay_credit;
use strict;
-use vars qw( @ISA );
+use vars qw( @ISA
$DEBUG $me
);
use FS::Record qw(qsearchs dbh);
use FS::agent;
@ISA = qw(FS::Record);
use FS::Record qw(qsearchs dbh);
use FS::agent;
@ISA = qw(FS::Record);
+$DEBUG = 0;
+$me = '[FS::prepay_credit]';
+
=head1 NAME
FS::prepay_credit - Object methods for prepay_credit records
=head1 NAME
FS::prepay_credit - Object methods for prepay_credit records
@@
-170,7
+173,16
@@
sub generate {
my $identifier = join('', map($codeset[int(rand $#codeset)], (1..$length) ) );
my $identifier = join('', map($codeset[int(rand $#codeset)], (1..$length) ) );
- redo if qsearchs('prepay_credit',{identifier=>$identifier}) && $condup++<23;
+ if ( qsearchs('prepay_credit',{identifier=>$identifier}) ) {
+ if ( $condup++ < 54 ) {
+ warn "$me generate: duplicate identifier $identifier; retrying\n"
+ if $DEBUG;
+ redo;
+ } else {
+ warn "$me generate: giving up after 54 tries"
+ if $DEBUG;
+ }
+ }
$condup = 0;
my $prepay_credit = new FS::prepay_credit {
$condup = 0;
my $prepay_credit = new FS::prepay_credit {