5 use Data::Dump qw(dump);
10 use lib '/srv/koha_gimpoz/';
13 $ENV{KOHA_CONF} = '/etc/koha/sites/gimpoz/koha-conf.xml';
19 my $source_dir = '/data/gimpoz/import';
21 my $frameworkcode = '';
25 open(my $find, '-|', qq{find $source_dir -iname "*.jpg" | sort});
28 # next unless m/\s*-\s*([a-k])\s*/i ;
30 warn "# path $path\n";
31 s{^\Q$source_dir\E/*}{};
33 my $student = $1 if s{^(.+?)/}{};
34 $student =~ s/^(\d+).*/$1/;
35 my $lokacija = $1 if s{^(.+?)/}{};
37 my $inventarni_broj = $_;
38 $inventarni_broj =~ s/\.jpg$//i;
40 if ( $inventarni_broj =~ m/\s*-\s*([b-k])\s*$/i ) {
41 warn "# $biblionumber dio $1\n";
43 $inventarni_broj =~ m/\s*-\s*a\s*$/i; # remove first -a
44 my $record = MARC::Record->new;
46 [ 245, " ", " ", a => $inventarni_broj ],
47 [ 942, " ", " ", c => "NO" ],
48 [ 952, " ", " ", a => "GIMPOZ" ],
49 [ 952, " ", " ", b => "GIMPOZ" ],
50 [ 952, " ", " ", c => uc(substr($lokacija,0,1)) ],
51 [ 952, " ", " ", t => $inventarni_broj ],
52 [ 952, " ", " ", u => $uri ], # FIXME
55 warn $record->as_formatted;
58 ($biblionumber,$biblioitemnumber) = AddBiblio($record,$frameworkcode);
59 warn "# AddBiblio $biblionumber $biblioitemnumber [$inventarni_broj]\n";
61 my ($biblionumber, $biblioitemnumber, $itemnumber)
62 = AddItemFromMarc($record, $biblionumber);
64 warn "# AddItemFromMarc $biblionumber $biblioitemnumber $itemnumber\n";
68 my $image = GD::Image->new($path);
69 warn "# $path ", $image->width,"x",$image->height,$/;
70 PutImage($biblionumber, $image, $replace);
72 print dump( $biblionumber, $student, $lokacija, $inventarni_broj ),$/;