projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
672600e
)
fix bug checking agents allowed to purchase packages (moved from signups server)
author
ivan
<ivan>
Mon, 22 Apr 2002 21:23:16 +0000
(21:23 +0000)
committer
ivan
<ivan>
Mon, 22 Apr 2002 21:23:16 +0000
(21:23 +0000)
FS/FS/cust_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pkg.pm
b/FS/FS/cust_pkg.pm
index
b7633c1
..
08c04a0
100644
(file)
--- a/
FS/FS/cust_pkg.pm
+++ b/
FS/FS/cust_pkg.pm
@@
-145,7
+145,7
@@
sub insert {
my $agent = qsearchs( 'agent', { 'agentnum' => $cust_main->agentnum } );
my $pkgpart_href = $agent->pkgpart_hashref;
return "agent ". $agent->agentnum. " can't purchase pkgpart ". $self->pkgpart
my $agent = qsearchs( 'agent', { 'agentnum' => $cust_main->agentnum } );
my $pkgpart_href = $agent->pkgpart_hashref;
return "agent ". $agent->agentnum. " can't purchase pkgpart ". $self->pkgpart
- unless $pkgpart_href->{ $self->
{pkgpart}
};
+ unless $pkgpart_href->{ $self->
pkgpart
};
$self->SUPER::insert;
$self->SUPER::insert;
@@
-701,7
+701,7
@@
sub order {
=head1 VERSION
=head1 VERSION
-$Id: cust_pkg.pm,v 1.
19 2002-04-22 20:47:21
ivan Exp $
+$Id: cust_pkg.pm,v 1.
20 2002-04-22 21:23:16
ivan Exp $
=head1 BUGS
=head1 BUGS