27 lines
741 B
Perl
Executable file
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;
|