modified: bom3.sh
[misc/.git] / mod_cutter.pl
1 #!/usr/bin/perl
2 use strict;
3
4 use C4::Context;
5 use C4::Items;
6
7 my $dbh = C4::Context->dbh();
8
9 my $q   = qq|select * from  items where homebranch = 'LORIEN'|;
10 my $sth = $dbh->prepare($q);
11 $sth->execute();
12
13 while ( my $rec = $sth->fetchrow_hashref() ) {
14     my $call   = $rec->{'itemcallnumber'};
15     my $cutter = $rec->{'materials'};
16     $call = $call . ' ' . $cutter;
17     ModItem(
18         {   itemcallnumber => $call,
19             materials      => undef
20         },
21
22         $rec->{'biblionumber'},
23         $rec->{'itemnumber'}
24     );
25 }
26