Initial revision
[wip/koha-chris_n.git] / misc / fixorders.pl
1 #!/usr/bin/perl
2
3 use C4::Database;
4 use strict;
5
6 my $dbh=C4Connect;
7
8 my $sth=$dbh->prepare("Select ordernumber,biblionumber from aqorders order by ordernumber");
9 $sth->execute;
10 my $number;
11 my $i=92000;
12 while (my $data=$sth->fetchrow_hashref){
13   if ($data->{'ordernumber'} != $number){    
14   } else {
15     my $query="update aqorders set ordernumber=$i where ordernumber=$data->{'ordernumber'} and biblionumber=$data->{'biblionumber'}";
16     my $sth2=$dbh->prepare($query);
17     $sth2->execute;
18     $sth2->finish;
19     $query="update aqorderbreakdown set ordernumber=$i where ordernumber=$data->{'ordernumber'}";
20     $sth2=$dbh->prepare($query);
21     $sth2->execute;
22     $sth2->finish;
23         $i++;
24   }
25   $number=$data->{'ordernumber'};
26 }
27 $sth->finish;
28
29
30 $dbh->disconnect;