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

(-)a/reports/cat_issues_top.pl (-21 / +5 lines)
Lines 129-154 if ($do_it) { Link Here
129
                -multiple => 0 );
129
                -multiple => 0 );
130
    
130
    
131
    my $CGIsepChoice=GetDelimiterChoices;
131
    my $CGIsepChoice=GetDelimiterChoices;
132
    #branch
133
    my $branches = GetBranches;
134
    my @branchloop;
135
    foreach my $thisbranch (keys %$branches) {
136
# 			my $selected = 1 if $thisbranch eq $branch;
137
            my %row =(value => $thisbranch,
138
# 									selected => $selected,
139
                                    branchname => $branches->{$thisbranch}->{'branchname'},
140
                            );
141
            push @branchloop, \%row;
142
    }
143
132
144
    #doctype
133
    #doctype
145
    my $itemtypes = GetItemTypes;
134
    my $itemtypes = GetItemTypes;
146
    my @itemtypeloop;
135
    my @itemtypeloop;
147
    foreach my $thisitemtype (keys %$itemtypes) {
136
    foreach my $thisitemtype ( sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) {
148
# 			my $selected = 1 if $thisbranch eq $branch;
149
            my %row =(value => $thisitemtype,
137
            my %row =(value => $thisitemtype,
150
# 									selected => $selected,
138
                      description => $itemtypes->{$thisitemtype}->{'description'},
151
                                    description => $itemtypes->{$thisitemtype}->{'description'},
152
                            );
139
                            );
153
            push @itemtypeloop, \%row;
140
            push @itemtypeloop, \%row;
154
    }
141
    }
Lines 156-166 if ($do_it) { Link Here
156
    #borcat
143
    #borcat
157
    my ($codes,$labels) = GetborCatFromCatType(undef,undef);
144
    my ($codes,$labels) = GetborCatFromCatType(undef,undef);
158
    my @borcatloop;
145
    my @borcatloop;
159
    foreach my $thisborcat (sort keys %$labels) {
146
    foreach my $thisborcat (sort {$labels->{$a} cmp $labels->{$b}} keys %$labels) {
160
# 			my $selected = 1 if $thisbranch eq $branch;
161
            my %row =(value => $thisborcat,
147
            my %row =(value => $thisborcat,
162
# 									selected => $selected,
148
                      description => $labels->{$thisborcat},
163
                                    description => $labels->{$thisborcat},
164
                            );
149
                            );
165
            push @borcatloop, \%row;
150
            push @borcatloop, \%row;
166
    }
151
    }
Lines 170-176 if ($do_it) { Link Here
170
    $template->param(
155
    $template->param(
171
                    CGIextChoice => $CGIextChoice,
156
                    CGIextChoice => $CGIextChoice,
172
                    CGIsepChoice => $CGIsepChoice,
157
                    CGIsepChoice => $CGIsepChoice,
173
                    branchloop =>\@branchloop,
158
                    branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}),
174
                    itemtypeloop =>\@itemtypeloop,
159
                    itemtypeloop =>\@itemtypeloop,
175
                    borcatloop =>\@borcatloop,
160
                    borcatloop =>\@borcatloop,
176
                    );
161
                    );
177
- 

Return to bug 2553