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