https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=35520
--- Comment #2 from Magnus Enger <[email protected]> --- Here's a very basic POC, just for cover images. Feel free to build on it if you can beat me to it! :-) use Koha::CoverImages; use File::Slurper qw( write_binary ); use Modern::Perl; my $outputdir = '.'; my $covers = Koha::CoverImages->search(); while ( my $cover = $covers->next ) { my $biblionumber = $cover->biblionumber; my $imagenumber = $cover->imagenumber; my $itemnumber = $cover->itemnumber; # Can be NULL my $filename = "$outputdir/biblionumber_$biblionumber" . "_imagenumber_$imagenumber" . "_full.png"; write_binary( $filename, $cover->imagefile ); say "Wrote $filename"; my $thumbnail = "$outputdir/biblionumber_$biblionumber" . "_imagenumber_$imagenumber" . "_thumb.png"; write_binary( $thumbnail, $cover->thumbnail ); say "Wrote $thumbnail"; } -- You are receiving this mail because: You are watching all bug changes. You are the assignee for the bug. _______________________________________________ Koha-bugs mailing list [email protected] https://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs website : http://www.koha-community.org/ git : http://git.koha-community.org/ bugs : http://bugs.koha-community.org/
