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

(-)a/Koha/CoverImage.pm (-5 lines)
Lines 67-77 sub new { Link Here
67
        $params->{mimetype} = 'image/png';
67
        $params->{mimetype} = 'image/png';
68
        $params->{imagefile} = $fullsize->png();
68
        $params->{imagefile} = $fullsize->png();
69
        $params->{thumbnail} = $thumbnail->png();
69
        $params->{thumbnail} = $thumbnail->png();
70
        # Convert the image to PNG and print it on standard output
71
72
        open my $fh1, '>', '/inlibro/BD/outputV.png';
73
        print {$fh1} $params->{thumbnail};
74
        close $fh1;
75
    }
70
    }
76
71
77
    return $class->SUPER::new($params);
72
    return $class->SUPER::new($params);
(-)a/tools/upload-cover-image.pl (-1 / +1 lines)
Lines 191-196 if ( $op eq 'cud-process' && $fileID ) { Link Here
191
                            my $full_filename = Cwd::abs_path("$dir/$filename"); #Resolve any relative filepath references
191
                            my $full_filename = Cwd::abs_path("$dir/$filename"); #Resolve any relative filepath references
192
                            my $srcimage;
192
                            my $srcimage;
193
                            if ( $full_filename =~ /^\Q$dir\E/ ){
193
                            if ( $full_filename =~ /^\Q$dir\E/ ){
194
                                GD::Image->trueColor(1);
194
                                $srcimage = GD::Image->new($full_filename);
195
                                $srcimage = GD::Image->new($full_filename);
195
                            }
196
                            }
196
                            my $biblio;
197
                            my $biblio;
197
- 

Return to bug 8088