Lines 59-80
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 |
|
63 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
|
|
64 |
} |
65 |
return ($criteriumvalue eq 'ASKED'?"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i); |
66 |
return (GetBranchName($criteriumvalue)) if ($displayby =~/branchcode/); |
67 |
return (GetSupportName($criteriumvalue)) if ($displayby =~/itemtype/); |
68 |
if ($displayby =~/suggestedby/||$displayby =~/managedby/||$displayby =~/acceptedby/){ |
63 |
if ($displayby =~/suggestedby/||$displayby =~/managedby/||$displayby =~/acceptedby/){ |
69 |
my $borr=C4::Members::GetMember(borrowernumber=>$criteriumvalue); |
64 |
my $borr=C4::Members::GetMember(borrowernumber=>$criteriumvalue); |
70 |
return "" unless $borr; |
65 |
return "" unless $borr; |
71 |
return $$borr{surname} . ", " . $$borr{firstname}; |
66 |
return $$borr{surname} . ", " . $$borr{firstname}; |
72 |
} |
67 |
} |
|
|
68 |
|
73 |
if ( $displayby =~ /budgetid/) { |
69 |
if ( $displayby =~ /budgetid/) { |
74 |
my $budget = GetBudget($criteriumvalue); |
70 |
my $budget = GetBudget($criteriumvalue); |
75 |
return "" unless $budget; |
71 |
return "" unless $budget; |
76 |
return $$budget{budget_name}; |
72 |
return $$budget{budget_name}; |
77 |
} |
73 |
} |
|
|
74 |
|
75 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED) ) { |
76 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
77 |
} |
78 |
|
79 |
return ($criteriumvalue eq 'ASKED'?"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i); |
80 |
return (GetBranchName($criteriumvalue)) if ($displayby =~/branchcode/); |
81 |
return (GetSupportName($criteriumvalue)) if ($displayby =~/itemtype/); |
78 |
} |
82 |
} |
79 |
|
83 |
|
80 |
my $input = CGI->new; |
84 |
my $input = CGI->new; |
81 |
- |
|
|