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

(-)a/reports/cat_issues_top.pl (-8 / +1 lines)
Lines 93-99 if ($do_it) { Link Here
93
            print $line->{rowtitle}.$sep;
93
            print $line->{rowtitle}.$sep;
94
            foreach my $cell (@$x) {
94
            foreach my $cell (@$x) {
95
                print $cell->{value}.$sep;
95
                print $cell->{value}.$sep;
96
                print $cell->{count};
96
                print $cell->{count} // '';
97
            }
97
            }
98
            print "\n";
98
            print "\n";
99
        }
99
        }
Lines 102-111 if ($do_it) { Link Here
102
# Displaying choices
102
# Displaying choices
103
} else {
103
} else {
104
    my $dbh = C4::Context->dbh;
104
    my $dbh = C4::Context->dbh;
105
    my @values;
106
    my %labels;
107
    my %select;
108
    my $req;
109
    
105
    
110
    my $CGIextChoice = ( 'CSV' ); # FIXME translation
106
    my $CGIextChoice = ( 'CSV' ); # FIXME translation
111
    my $CGIsepChoice=GetDelimiterChoices;
107
    my $CGIsepChoice=GetDelimiterChoices;
Lines 157-163 sub calculate { Link Here
157
    my ($line, $column, $filters) = @_;
153
    my ($line, $column, $filters) = @_;
158
    my @mainloop;
154
    my @mainloop;
159
    my @loopcol;
155
    my @loopcol;
160
    my @loopline;
161
    my @looprow;
156
    my @looprow;
162
    my %globalline;
157
    my %globalline;
163
    my $grantotal =0;
158
    my $grantotal =0;
Lines 357-363 sub calculate { Link Here
357
    
352
    
358
    my $dbcalc = $dbh->prepare($strcalc);
353
    my $dbcalc = $dbh->prepare($strcalc);
359
    $dbcalc->execute;
354
    $dbcalc->execute;
360
    my $previous_col;
361
    my %indice;
355
    my %indice;
362
    while (my  @data = $dbcalc->fetchrow) {
356
    while (my  @data = $dbcalc->fetchrow) {
363
        my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data;
357
        my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data;
364
- 

Return to bug 16653