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

(-)a/tools/batchMod.pl (+1 lines)
Lines 237-242 if ($op eq "show"){ Link Here
237
237
238
    my @contentlist;
238
    my @contentlist;
239
    if ($filefh){
239
    if ($filefh){
240
        binmode $filefh, ':encoding(UTF-8)';
240
        while (my $content=<$filefh>){
241
        while (my $content=<$filefh>){
241
            $content =~ s/[\r\n]*$//;
242
            $content =~ s/[\r\n]*$//;
242
            push @contentlist, $content if $content;
243
            push @contentlist, $content if $content;
(-)a/tools/batch_delete_records.pl (+1 lines)
Lines 57-62 if ( $op eq 'form' ) { Link Here
57
        $recordtype = 'biblio';
57
        $recordtype = 'biblio';
58
    } elsif ( my $uploadfile = $input->param('uploadfile') ) {
58
    } elsif ( my $uploadfile = $input->param('uploadfile') ) {
59
        # A file of id is given
59
        # A file of id is given
60
        binmode $uploadfile, ':encoding(UTF-8)';
60
        while ( my $content = <$uploadfile> ) {
61
        while ( my $content = <$uploadfile> ) {
61
            next unless $content;
62
            next unless $content;
62
            $content =~ s/[\r\n]*$//;
63
            $content =~ s/[\r\n]*$//;
(-)a/tools/batch_record_modification.pl (-1 / +1 lines)
Lines 105-110 if ( $op eq 'form' ) { Link Here
105
        $recordtype = 'biblio';
105
        $recordtype = 'biblio';
106
    } elsif ( my $uploadfile = $input->param('uploadfile') ) {
106
    } elsif ( my $uploadfile = $input->param('uploadfile') ) {
107
        # A file of id is given
107
        # A file of id is given
108
        binmode $uploadfile, ':encoding(UTF-8)';
108
        while ( my $content = <$uploadfile> ) {
109
        while ( my $content = <$uploadfile> ) {
109
            next unless $content;
110
            next unless $content;
110
            $content =~ s/[\r\n]*$//;
111
            $content =~ s/[\r\n]*$//;
111
- 

Return to bug 21142