234 lines
7 KiB
Perl
Executable file
234 lines
7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This script will convert a database into the newer, proper
|
|
# form ... I think.
|
|
|
|
|
|
use C4::Database;
|
|
use strict;
|
|
|
|
my $dbh=C4Connect;
|
|
|
|
my $query = "Select * from categories where (categorycode like 'L%' or categorycode like 'F%'
|
|
or categorycode like 'S%' or categorycode like 'O%' or categorycode like 'H%') and (categorycode <>'HR'
|
|
and categorycode <> 'ST')";
|
|
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
|
|
my $temp=substr($data->{'categorycode'},0,1);
|
|
$query="update borrowers set area='$temp' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$temp=substr($data->{'categorycode'},1,1);
|
|
$query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
$query = "Select * from categories where (categorycode like 'V%') and (categorycode <>'HR'
|
|
and categorycode <> 'ST')";
|
|
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
# my $temp=substr($data->{'categorycode'},0,1);
|
|
$query="update borrowers set area='V' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
my $temp=substr($data->{'categorycode'},1,1);
|
|
$query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'ST'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
$query="update borrowers set area='' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='W' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'BR' or categorycode='CO' or categorycode='IS'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
$query="update borrowers set area='' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='I' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'TD' or categorycode='TR'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
$query="update borrowers set area='X' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'HR'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
$query="update borrowers set area='K' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'IL'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
$query="update borrowers set area='Z' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='L' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
my $query = "Select * from categories where categorycode = 'TB'";
|
|
my $sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
while (my $data=$sth->fetchrow_hashref){
|
|
#update borrowers corresponding
|
|
#update categories
|
|
|
|
$query="update borrowers set area='' where categorycode='$data->{'categorycode'}'";
|
|
my $sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="update borrowers set categorycode='P' where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
$query="delete from categories where categorycode='$data->{'categorycode'}'";
|
|
$sth2=$dbh->prepare($query);
|
|
$sth2->execute;
|
|
$sth2->finish;
|
|
|
|
}
|
|
|
|
$sth->finish;
|
|
|
|
my @queryValues =
|
|
("insert into categories values ('E','Senior Citizen',5,99,0,'A',0,0,0,99,1)",
|
|
"insert into categories values ('A','Adult',5,99,0,'A',0,0,0,99,1)",
|
|
"insert into categories values ('C','Child',5,16,0,'A',0,0,0,99,0)",
|
|
"insert into categories values ('B','Housebound',5,99,0,'E',0,0,0,99,0)",
|
|
"insert into categories values ('F','Family',5,99,0,'A',0,0,0,99,1)",
|
|
"insert into categories values ('W','Workers',5,99,0,'A',0,0,0,99,0)",
|
|
"insert into categories values ('I','Institution',5,99,0,'A',0,0,0,99,0)",
|
|
"insert into categories values ('P','Privileged',5,99,0,'A',0,0,0,99,0)",
|
|
"insert into categories values ('L','Library',5,99,0,'A',0,0,0,99,0)"
|
|
);
|
|
|
|
foreach $query (@queryValues) {
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
}
|
|
|
|
$dbh->disconnect;
|