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

(-)a/tools/upload-cover-image.pl (-3 / +5 lines)
Lines 143-152 if ($fileID) { Link Here
143
                            $error = 'DELERR';
143
                            $error = 'DELERR';
144
                        }
144
                        }
145
                        else {
145
                        else {
146
                            ( $biblionumber, $filename ) = split $delim, $line;
146
                            ( $biblionumber, $filename ) = split $delim, $line, 2;
147
                            $biblionumber =~
147
                            $biblionumber =~
148
                              s/[\"\r\n]//g;    # remove offensive characters
148
                              s/[\"\r\n]//g;    # remove offensive characters
149
                            $filename =~ s/[\"\r\n\s]//g;
149
                            $filename =~ s/[\"\r\n]//g;
150
                            $filename =~ s/^\s+//;
151
                            $filename =~ s/\s+$//;
152
                            warn "## $total cover image biblionumber: $biblionumber file: $filename\n";
150
                            my $srcimage = GD::Image->new("$dir/$filename");
153
                            my $srcimage = GD::Image->new("$dir/$filename");
151
                            if ( defined $srcimage ) {
154
                            if ( defined $srcimage ) {
152
                                $total++;
155
                                $total++;
153
- 

Return to bug 7961