From 5bb87907beb05ffa862baea5bd4063948c061983 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 7 Dec 2007 05:12:39 +0000
Subject: Adding vendor number search on transactions (using equality, rather
 than pattern matching)

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1958 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/AA.pm | 5 ++++-
 bin/aa.pl       | 3 +++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm
index f42ab0e7..3621180b 100644
--- a/LedgerSMB/AA.pm
+++ b/LedgerSMB/AA.pm
@@ -828,6 +828,9 @@ sub transactions {
     my $sortorder = $form->sort_order( \@a, \%ordinal );
 
     my $where = "1 = 1";
+    if ($form->{"meta_number"}){
+        $where .= " AND vc.meta_number = " . $dbh->quote($form->{meta_number});
+    }
     if ( $form->{"$form->{vc}_id"} ) {
         $form->{entity_id} = $form->{$form->{vc}."_id"};
         $where .= qq| AND a.entity_id = $form->{entity_id}|;
@@ -835,7 +838,7 @@ sub transactions {
     else {
         if ( $form->{ $form->{vc} } ) {
             $var = $dbh->quote( $form->like( lc $form->{ $form->{vc} } ) );
-            $where .= " AND lower(vc.name) LIKE $var";
+            $where .= " AND lower(vce.name) LIKE $var";
         }
     }
 
diff --git a/bin/aa.pl b/bin/aa.pl
index ef2bb82f..742c7a06 100644
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -1427,6 +1427,9 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
 	  <th align=right>$name</th>
 	  <td colspan=3>$selectname</td>
 	</tr>
+	<tr><th align="right">|.$locale->text('Number').qq|</th>
+	    <td colspan="3"><input name="meta_number" size="36">
+        </tr>
 	$employee
 	$department
 	$invnumber
-- 
cgit v1.2.3