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