correct boneheaded afterthoughts
authorjeff <jeff>
Fri, 13 Apr 2007 00:55:19 +0000 (00:55 +0000)
committerjeff <jeff>
Fri, 13 Apr 2007 00:55:19 +0000 (00:55 +0000)
FS/FS/svc_acct.pm

index 8cb8f5b..338a1a9 100644 (file)
@@ -1582,7 +1582,7 @@ sub _op_usage {
 
   if ( &{$op2condition{$op}}($self, $column, $amount) ) {
     foreach my $part_export ( $self->cust_svc->part_svc->part_export ) {
-      if ($part_export->option('overlimit_groups'), 1) {
+      if ($part_export->option('overlimit_groups')) {
         my ($new,$old);
         my $other = new FS::svc_acct $self->hashref;
         my $groups = &{ $self->_fieldhandlers->{'usergroup'} }
@@ -1705,7 +1705,7 @@ sub set_usage {
     my $error = $self->overlimit('unsuspend');
 
     foreach my $part_export ( $self->cust_svc->part_svc->part_export ) {
-      if ($part_export->option('overlimit_groups'), 1) {
+      if ($part_export->option('overlimit_groups')) {
         my $old = new FS::svc_acct $self->hashref;
         my $groups = &{ $self->_fieldhandlers->{'usergroup'} }
                        ($self, $part_export->option('overlimit_groups'));