Koha/misc/makebaskets.pl
2000-12-19 23:45:51 +00:00

27 lines
741 B
Perl
Executable file

#!/usr/bin/perl
use strict;
use C4::Database;
my $dbh=C4Connect;
my $count=0;
my $basket='HLT-';
for (my $i=1;$i<59;$i++){
my $query = "Select authorisedby,entrydate from aqorders where booksellerid='$i'";
$query.=" group by authorisedby,entrydate order by entrydate";
my $sth=$dbh->prepare($query);
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
$basket=$count;
$data->{'authorisedby'}=~ s/\'/\\\'/g;
my $query2="update aqorders set basketno='$basket' where booksellerid='$i' and authorisedby=
'$data->{'authorisedby'}' and entrydate='$data->{'entrydate'}'";
my $sth2=$dbh->prepare($query2);
$sth2->execute;
$sth2->finish;
$count++;
}
$sth->finish;
}
$dbh->disconnect;