Lines 57-84
sub Init{
Link Here
|
57 |
$suggestion->{'branchcode'}=C4::Context->userenv->{"branch"} unless ($suggestion->{'branchcode'}); |
57 |
$suggestion->{'branchcode'}=C4::Context->userenv->{"branch"} unless ($suggestion->{'branchcode'}); |
58 |
} |
58 |
} |
59 |
|
59 |
|
60 |
sub GetCriteriumDesc{ |
60 |
sub GetCriteriumDesc { |
61 |
my ($criteriumvalue,$displayby)=@_; |
61 |
my ( $criteriumvalue, $displayby ) = @_; |
62 |
|
62 |
|
63 |
if ($displayby =~/suggestedby/||$displayby =~/managedby/||$displayby =~/acceptedby/){ |
63 |
if ( $displayby =~ /suggestedby/ |
64 |
my $borr=C4::Members::GetMember(borrowernumber=>$criteriumvalue); |
64 |
|| $displayby =~ /managedby/ |
|
|
65 |
|| $displayby =~ /acceptedby/ ) |
66 |
{ |
67 |
my $borr = C4::Members::GetMember( borrowernumber => $criteriumvalue ); |
65 |
return "" unless $borr; |
68 |
return "" unless $borr; |
66 |
return $$borr{surname} . ", " . $$borr{firstname}; |
69 |
return $$borr{surname} . ", " . $$borr{firstname}; |
67 |
} |
70 |
} |
68 |
|
71 |
|
69 |
if ( $displayby =~ /budgetid/) { |
72 |
if ( $displayby =~ /budgetid/ ) { |
70 |
my $budget = GetBudget($criteriumvalue); |
73 |
my $budget = GetBudget($criteriumvalue); |
71 |
return "" unless $budget; |
74 |
return "" unless $budget; |
72 |
return $$budget{budget_name}; |
75 |
return $$budget{budget_name}; |
73 |
} |
76 |
} |
74 |
|
77 |
|
75 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED) ) { |
78 |
unless ( grep { /$criteriumvalue/ } qw(ASKED ACCEPTED REJECTED CHECKED) ) { |
76 |
return GetAuthorisedValueByCode('SUGGEST_STATUS', $criteriumvalue ) || "Unknown"; |
79 |
return GetAuthorisedValueByCode( 'SUGGEST_STATUS', $criteriumvalue ) |
|
|
80 |
|| "Unknown"; |
81 |
} |
82 |
|
83 |
if ( $displayby =~ /status/i ) { |
84 |
return ( |
85 |
$criteriumvalue eq 'ASKED' |
86 |
? "Pending" |
87 |
: ucfirst( lc($criteriumvalue) ) |
88 |
); |
77 |
} |
89 |
} |
78 |
|
90 |
|
79 |
return ($criteriumvalue eq 'ASKED'?"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i); |
91 |
return ( GetBranchName($criteriumvalue) ) if ( $displayby =~ /branchcode/ ); |
80 |
return (GetBranchName($criteriumvalue)) if ($displayby =~/branchcode/); |
92 |
return ( GetSupportName($criteriumvalue) ) if ( $displayby =~ /itemtype/ ); |
81 |
return (GetSupportName($criteriumvalue)) if ($displayby =~/itemtype/); |
|
|
82 |
} |
93 |
} |
83 |
|
94 |
|
84 |
my $input = CGI->new; |
95 |
my $input = CGI->new; |
85 |
- |
|
|