diff options
author | ivan <ivan> | 2005-03-12 14:31:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-03-12 14:31:50 +0000 |
commit | b5fbaadb1cb2893660e460a1d4a3cabe02774de7 (patch) | |
tree | 0f574d67fffe967f98d0bdcac1e69e1fc1fd78c0 /FS/FS/agent.pm | |
parent | 40c89f3fd0933be14693b918e045bc21d39d6f01 (diff) |
- bring prepaid support into this century (close: Bug#1124)
- finally get rid of fs_signup (everything is in fs_selfservice now) (Bug#413)
- organize main menu sysadmin section so it is slightly less confusing
Diffstat (limited to 'FS/FS/agent.pm')
-rw-r--r-- | FS/FS/agent.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm index 3d8e677..fc1d1a9 100644 --- a/FS/FS/agent.pm +++ b/FS/FS/agent.pm @@ -274,6 +274,7 @@ generated codes, or a scalar error message. =cut +#false laziness w/prepay_credit::generate sub generate_reg_codes { my( $self, $num, $pkgparts ) = @_; @@ -325,6 +326,22 @@ sub num_reg_code { $sth->fetchrow_arrayref->[0]; } +=item num_prepay_credit + +Returns the number of unused prepaid cards for this agent. + +=cut + +sub num_prepay_credit { + my $self = shift; + my $sth = dbh->prepare( + "SELECT COUNT(*) FROM prepay_credit WHERE agentnum = ?" + ) or die dbh->errstr; + $sth->execute($self->agentnum) or die $sth->errstr; + $sth->fetchrow_arrayref->[0]; +} + + =back =head1 BUGS |