summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-14 16:52:55 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-14 16:52:55 +0000
commit5e0260791c23c5c2459c7be1bc17e38216565239 (patch)
treec7af1c80ab27f0fdc85f1a6629a35dc443650239
parent6b9ed8b9dcafd1c3827dc478452bb1e411174e98 (diff)
Adding missing arg logic stub for LedgerSMB.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1186 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 31cb577c..b50b779d 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -179,6 +179,9 @@ sub is_blank {
my $self = shift @_;
my %args = @_;
my $name = $args{name};
+ if (not defined $name){
+ # TODO: Raise error
+ }
my $rc;
if ( $self->{$name} =~ /^\s*$/ ) {
$rc = 1;