View | Details | Raw Unified | Return to bug 12257
Collapse All | Expand All

(-)a/suggestion/suggestion.pl (-7 / +10 lines)
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
- 

Return to bug 12257