From cd91e96795a844a902297c859eb68025a8bb00a0 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 25 Nov 2007 20:32:34 +0000
Subject: Setting correct entity class in vendor workflow scripts:

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1903 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/vendor.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'scripts')

diff --git a/scripts/vendor.pl b/scripts/vendor.pl
index 576ddf5b..924c967a 100644
--- a/scripts/vendor.pl
+++ b/scripts/vendor.pl
@@ -47,7 +47,7 @@ sub get {
     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 get {
 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 @@ This method creates a blank screen for entering a vendor's information.
 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 @@ sub search {
         # 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, 
-- 
cgit v1.2.3