220 lines
7.4 KiB
Perl
Executable file
220 lines
7.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
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;
|
|
$query="insert into categories values ('A','Adult',5,99,0,'A',0,0,0,99,1)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('E','Senior Citizen',5,99,0,'A',0,0,0,99,1)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('C','Child',5,16,0,'A',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('B','Housebound',5,99,0,'E',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('F','Family',5,99,0,'A',0,0,0,99,1)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('W','Workers',5,99,0,'A',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('I','Institution',5,99,0,'A',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('P','Privileged',5,99,0,'A',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
$query="insert into categories values ('L','Library',5,99,0,'A',0,0,0,99,0)";
|
|
$sth=$dbh->prepare($query);
|
|
$sth->execute;
|
|
$sth->finish;
|
|
|
|
|
|
|
|
$dbh->disconnect;
|