tidy up books marked as ref

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;