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 |
- |
|
|