Browse Source

tidy up books marked as ref

master
chris 22 years ago
parent
commit
40c1d1d767
  1. 21
      fixrefs.pl

21
fixrefs.pl

@ -0,0 +1,21 @@
#!/usr/bin/perl
use strict;
use C4::Database;
my $dbh=C4Connect;
my $count=0;
my $query="Select * from biblioitems where itemtype='REF' or itemtype='TREF'";
my $sth=$dbh->prepare($query);
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
$query="update items set notforloan=1 where biblioitemnumber='$data->{'biblioitemnumber'}'";
my $sth2=$dbh->prepare($query);
$sth2->execute;
$sth2->finish;
}
$sth->finish;
$dbh->disconnect;
Loading…
Cancel
Save