From 8f7e38f3b762ce830224c985a16847474fe23aac Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 18 Jul 2014 09:14:07 -0400
Subject: [PATCH] Bug 12487 [QA Followup] - GetContract must return undef with
 no params

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 C4/Contract.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/C4/Contract.pm b/C4/Contract.pm
index 57978a042e..4afd670dcc 100644
--- a/C4/Contract.pm
+++ b/C4/Contract.pm
@@ -92,7 +92,7 @@ sub GetContracts {
 
 =head2 GetContract
 
-$contract = GetContract( { contractnumber => $contractnumber } );
+$contract = GetContract( { contractnumber => $contractnumber } );
 
 Looks up the contract that has PRIMKEY (contractnumber) value $contractID
 
@@ -104,6 +104,8 @@ sub GetContract {
     my ($params) = @_;
     my $contractnumber = $params->{contractnumber};
 
+    return unless $contractnumber;
+
     my $contracts = GetContracts({
         contractnumber => $contractnumber,
     });
-- 
2.39.5