Kumara - predecessor to Koha
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

21 lines
447 B

#!/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;