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

(-)a/misc/cronjobs/gather_print_notices.pl (-10 / +8 lines)
Lines 9-16 BEGIN { Link Here
9
    eval { require "$FindBin::Bin/../kohalib.pl" };
9
    eval { require "$FindBin::Bin/../kohalib.pl" };
10
}
10
}
11
11
12
use
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
13
  CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
14
use C4::Context;
13
use C4::Context;
15
use C4::Dates;
14
use C4::Dates;
16
use C4::Debug;
15
use C4::Debug;
Lines 184-190 sub generate_html { Link Here
184
        messages   => $messages,
183
        messages   => $messages,
185
    );
184
    );
186
185
187
    open my $OUTPUT, '>', $filepath
186
    open my $OUTPUT, '>encoding(utf-8)', $filepath
188
        or die "Could not open $filepath: $!";
187
        or die "Could not open $filepath: $!";
189
    print $OUTPUT $template->output;
188
    print $OUTPUT $template->output;
190
    close $OUTPUT;
189
    close $OUTPUT;
Lines 195-201 sub generate_csv { Link Here
195
    my $messages = $params->{messages};
194
    my $messages = $params->{messages};
196
    my $filepath = $params->{filepath};
195
    my $filepath = $params->{filepath};
197
196
198
    open my $OUTPUT, '>', $filepath
197
    open my $OUTPUT, '>encoding(utf-8)', $filepath
199
        or die "Could not open $filepath: $!";
198
        or die "Could not open $filepath: $!";
200
    my ( @csv_lines, $headers );
199
    my ( @csv_lines, $headers );
201
    foreach my $message ( @$messages ) {
200
    foreach my $message ( @$messages ) {
Lines 205-217 sub generate_csv { Link Here
205
        # We don't have headers, get them
204
        # We don't have headers, get them
206
        unless ( $headers ) {
205
        unless ( $headers ) {
207
            $headers = $lines[0];
206
            $headers = $lines[0];
208
            say $OUTPUT Encode::encode( 'UTF8', $headers );
207
            say $OUTPUT $headers;
209
        }
208
        }
210
209
211
        shift @lines;
210
        shift @lines;
212
        for my $line ( @lines ) {
211
        for my $line ( @lines ) {
213
            next if $line =~ /^\s$/;
212
            next if $line =~ /^\s$/;
214
            say $OUTPUT Encode::encode( 'UTF8', $line );
213
            say $OUTPUT $line;
215
        }
214
        }
216
    }
215
    }
217
}
216
}
Lines 254-264 sub generate_ods { Link Here
254
        shift @lines; # remove headers
253
        shift @lines; # remove headers
255
        my $i = 1;
254
        my $i = 1;
256
        for my $line ( @lines ) {
255
        for my $line ( @lines ) {
257
            my $row_data = split $delimiter, $line;
256
            my @row_data = split $delimiter, $line;
258
            my $row = $doc->getRow( $table, $i );
257
            my $row = $doc->getRow( $table, $i );
259
            # Note scalar(@$row_data) should be equal to $nb_cols
258
            # Note scalar(@$row_data) should be equal to $nb_cols
260
            for ( my $j = 0 ; $j < scalar(@$row_data) ; $j++ ) {
259
            for ( my $j = 0 ; $j < scalar(@row_data) ; $j++ ) {
261
                my $value = Encode::encode( 'UTF8', $row_data->[$j] );
260
                my $value = Encode::encode( 'UTF8', $row_data[$j] );
262
                $doc->cellValue( $row, $j, $value );
261
                $doc->cellValue( $row, $j, $value );
263
            }
262
            }
264
            $i++;
263
            $i++;
265
- 

Return to bug 11603