[Koha-cvs] CVS: koha/misc fixborrower.pl,1.4,1.5
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 12:45:12 CEST 2002
Update of /cvsroot/koha/koha/misc
In directory usw-pr-cvs1:/tmp/cvs-serv24847
Modified Files:
fixborrower.pl
Log Message:
Removed trailing whitespace.
Index: fixborrower.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fixborrower.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** fixborrower.pl 5 Oct 2002 10:15:44 -0000 1.4
--- fixborrower.pl 13 Oct 2002 10:45:10 -0000 1.5
***************
*** 29,33 ****
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')";
--- 29,33 ----
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')";
***************
*** 44,50 ****
$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;
--- 44,50 ----
$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;
***************
*** 55,62 ****
$sth2->execute;
$sth2->finish;
!
}
! $query = "Select * from categories where (categorycode like 'V%') and (categorycode <>'HR'
and categorycode <> 'ST')";
--- 55,62 ----
$sth2->execute;
$sth2->finish;
!
}
! $query = "Select * from categories where (categorycode like 'V%') and (categorycode <>'HR'
and categorycode <> 'ST')";
***************
*** 74,78 ****
my $temp=substr($data->{'categorycode'},1,1);
! $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 74,78 ----
my $temp=substr($data->{'categorycode'},1,1);
! $query="update borrowers set categorycode='$temp' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 98,102 ****
$sth2->finish;
! $query="update borrowers set categorycode='W' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 98,102 ----
$sth2->finish;
! $query="update borrowers set categorycode='W' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 122,126 ****
$sth2->finish;
! $query="update borrowers set categorycode='I' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 122,126 ----
$sth2->finish;
! $query="update borrowers set categorycode='I' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 146,150 ****
$sth2->finish;
! $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 146,150 ----
$sth2->finish;
! $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 170,174 ****
$sth2->finish;
! $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 170,174 ----
$sth2->finish;
! $query="update borrowers set categorycode='A' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 194,198 ****
$sth2->finish;
! $query="update borrowers set categorycode='L' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 194,198 ----
$sth2->finish;
! $query="update borrowers set categorycode='L' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 217,222 ****
$sth2->execute;
$sth2->finish;
!
! $query="update borrowers set categorycode='P' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
--- 217,222 ----
$sth2->execute;
$sth2->finish;
!
! $query="update borrowers set categorycode='P' where categorycode='$data->{'categorycode'}'";
$sth2=$dbh->prepare($query);
$sth2->execute;
***************
*** 232,236 ****
$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)",
--- 232,236 ----
$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)",
***************
*** 242,246 ****
"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) {
--- 242,246 ----
"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) {
More information about the Koha-cvs
mailing list