|
Lines 58-64
sub Init{
Link Here
|
| 58 |
|
58 |
|
| 59 |
sub GetCriteriumDesc{ |
59 |
sub GetCriteriumDesc{ |
| 60 |
my ($criteriumvalue,$displayby)=@_; |
60 |
my ($criteriumvalue,$displayby)=@_; |
| 61 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED) ) { |
61 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED ORDERED AVAILABLE) ) { |
| 62 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
62 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
| 63 |
} |
63 |
} |
| 64 |
return ($criteriumvalue eq 'ASKED'?"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i); |
64 |
return ($criteriumvalue eq 'ASKED'?"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i); |
| 65 |
- |
|
|