Bug 5770: Unit test

[srvgit] / C4 / Letters.pm

diff --git a/C4/Letters.pm b/C4/Letters.pm
index b8175f5..8b086a7 100644 (file)
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -1081,6 +1081,11 @@ ENDSQL
         push @query_params, $params->{'borrowernumber'};
     }
 
+    if ( exists $params->{'letter_code'} ) {
+        push @whereclauses, ' letter_code = ? ';
+        push @query_params, $params->{'letter_code'};
+    }
+
     if ( @whereclauses ) {
         $statement .= ' WHERE ' . join( 'AND', @whereclauses );
     }