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