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.

27 lines
741 B

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);
while (my $data=$sth->fetchrow_hashref){
$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);