SF.net SVN: ledger-smb: [1903] trunk/scripts/vendor.pl

[..hidden..]

Revision: 1903
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1903&view=rev
Author:   einhverfr
Date:     2007-11-25 12:32:34 -0800 (Sun, 25 Nov 2007)

Log Message:
-----------
Setting correct entity class in vendor workflow scripts:

Modified Paths:
--------------
    trunk/scripts/vendor.pl

Modified: trunk/scripts/vendor.pl
===================================================================
--- trunk/scripts/vendor.pl	2007-11-25 20:31:25 UTC (rev 1902)
+++ trunk/scripts/vendor.pl	2007-11-25 20:32:34 UTC (rev 1903)
@@ -47,7 +47,7 @@
     my ($request) = @_;
     my $vendor = LedgerSMB::DBObject::Vendor->new(base => $request, copy => 'all');
     
-    $vendor->set( entity_class=> '2' );
+    $vendor->set( entity_class=> '1' );
     my $result = $vendor->get();
     
     my $template = LedgerSMB::Template->new( user => $user, 
@@ -62,7 +62,7 @@
 sub add_location {
     my ($request) = @_;
     my $vendor= LedgerSMB::DBObject::Vendor->new({base => $request, copy => 'all'});
-    $vendor->set( entity_class=> '2' );
+    $vendor->set( entity_class=> '1' );
     $vendor->save_location();
     $vendor->get();
 
@@ -88,7 +88,7 @@
 sub add {
     my ($request) = @_;
     my $vendor= LedgerSMB::DBObject::Vendor->new(base => $request, copy => 'all');
-    $vendor->set( entity_class=> '2' );
+    $vendor->set( entity_class=> '1' );
     _render_main_screen($vendor);
 }
 
@@ -115,7 +115,7 @@
         # assume it's asking us to do the search, now
         
         my $vendor = LedgerSMB::DBObject::Vendor->new(base => $request, copy => 'all');
-        $vendor->set(entity_class=>2);
+        $vendor->set(entity_class=>1);
         my $results = $vendor->search($vendor->{search_pattern});
 
         my $template = LedgerSMB::Template->new( user => $user, 


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