|
Lines 59-65
sub Init{
Link Here
|
| 59 |
sub GetCriteriumDesc{ |
59 |
sub GetCriteriumDesc{ |
| 60 |
my ($criteriumvalue,$displayby)=@_; |
60 |
my ($criteriumvalue,$displayby)=@_; |
| 61 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED ORDERED AVAILABLE) ) { |
61 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED ORDERED AVAILABLE) ) { |
| 62 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
62 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || $criteriumvalue; |
| 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 |
return (GetBranchName($criteriumvalue)) if ($displayby =~/branchcode/); |
65 |
return (GetBranchName($criteriumvalue)) if ($displayby =~/branchcode/); |
| 66 |
- |
|
|