return "modifying package: $error";
} else {
$dbh->commit if $oldAutoCommit;
- return '';
+ return $self;
}
}
sub cust_main {
my $self = shift;
+ cluck 'cust_pkg->cust_main called' if $DEBUG;
qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
}