SF.net SVN: ledger-smb:[4010] branches/1.3/bin/arap.pl

[..hidden..]

Revision: 4010
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4010&view=rev
Author:   tshvr
Date:     2011-11-17 10:12:13 +0000 (Thu, 17 Nov 2011)
Log Message:
-----------
get a list when clicking update on fresh,empty form

Modified Paths:
--------------
    branches/1.3/bin/arap.pl

Modified: branches/1.3/bin/arap.pl
===================================================================
--- branches/1.3/bin/arap.pl	2011-11-17 09:16:16 UTC (rev 4009)
+++ branches/1.3/bin/arap.pl	2011-11-17 10:12:13 UTC (rev 4010)
@@ -53,8 +53,7 @@
 # end of main
 
 sub check_name {
-    my ($name) = @_;
-    
+    my ($name) = @_;#vendor|customer
     my ( $new_name, $new_id ) = split /--/, $form->{$name};
     my $rv = 0;
 
@@ -88,6 +87,8 @@
     else {
 
         # check name, combine name and id
+        #HV $form->{$name} , form->vendor or form->customer , should be at least ' ' for comparison 'ne' to work.('' ne undef) returns undef.(' ' ne undef) returns 1
+        if(! $form->{$name}){$form->{$name}=' ';}
         if ( $form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}| )
         {
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.