[Koha-cvs] CVS: koha/misc fixborrower.pl,1.4,1.5

[Andrew Arensburger]

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) {