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