SF.net SVN: ledger-smb:[4540] branches/1.3/LedgerSMB/ScriptLib

[..hidden..]

Revision: 4540
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4540&view=rev
Author:   einhverfr
Date:     2012-03-24 07:07:40 +0000 (Sat, 24 Mar 2012)
Log Message:
-----------
Pricematrix editing and adding now works from customer screen

Modified Paths:
--------------
    branches/1.3/LedgerSMB/ScriptLib/Common_Search.pm
    branches/1.3/LedgerSMB/ScriptLib/Company.pm

Modified: branches/1.3/LedgerSMB/ScriptLib/Common_Search.pm
===================================================================
--- branches/1.3/LedgerSMB/ScriptLib/Common_Search.pm	2012-03-24 05:08:30 UTC (rev 4539)
+++ branches/1.3/LedgerSMB/ScriptLib/Common_Search.pm	2012-03-24 07:07:40 UTC (rev 4540)
@@ -41,7 +41,7 @@
 =cut
 
 sub extract {
-    my ($request) = @_;
+    my ($self, $request) = @_;
     if ($request->{search_select}){
         my $id = $request->{search_select};
         my $retval = {};

Modified: branches/1.3/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- branches/1.3/LedgerSMB/ScriptLib/Company.pm	2012-03-24 05:08:30 UTC (rev 4539)
+++ branches/1.3/LedgerSMB/ScriptLib/Company.pm	2012-03-24 07:07:40 UTC (rev 4540)
@@ -1111,7 +1111,7 @@
     use LedgerSMB::DBObject::Pricelist;
 
     my $psearch = LedgerSMB::ScriptLib::Common_Search::Part->new($request);
-    my $part = $psearch->extract;
+    my $part = $psearch->extract($request);
 
     my $plist = LedgerSMB::DBObject::Pricelist->new({base => $request });
     my $row = $request->{rowcount_pricematrix};

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