View | Details | Raw Unified | Return to bug 12487
Collapse All | Expand All

(-)a/C4/Contract.pm (-2 / +3 lines)
Lines 92-98 sub GetContracts { Link Here
92
92
93
=head2 GetContract
93
=head2 GetContract
94
94
95
$contract = GetContract( { contractnumber => $contractnumber } );
95
$contract = GetContract( { contractnumber => $contractnumber } );
96
96
97
Looks up the contract that has PRIMKEY (contractnumber) value $contractID
97
Looks up the contract that has PRIMKEY (contractnumber) value $contractID
98
98
Lines 104-109 sub GetContract { Link Here
104
    my ($params) = @_;
104
    my ($params) = @_;
105
    my $contractnumber = $params->{contractnumber};
105
    my $contractnumber = $params->{contractnumber};
106
106
107
    return unless $contractnumber;
108
107
    my $contracts = GetContracts({
109
    my $contracts = GetContracts({
108
        contractnumber => $contractnumber,
110
        contractnumber => $contractnumber,
109
    });
111
    });
110
- 

Return to bug 12487