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

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;