From 5e0260791c23c5c2459c7be1bc17e38216565239 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 14 May 2007 16:52:55 +0000
Subject: 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
---
 LedgerSMB.pm | 3 +++
 1 file changed, 3 insertions(+)

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;
-- 
cgit v1.2.3