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

[Andrew Arensburger]

Update of /cvsroot/koha/koha/misc
In directory usw-pr-cvs1:/tmp/cvs-serv31504/misc

Modified Files:
        fixborrower.pl 
Log Message:
Merged with arensb-context branch: use C4::Context->dbh instead of
&C4Connect, and generally prefer C4::Context over C4::Database.


Index: fixborrower.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fixborrower.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** fixborrower.pl      14 Aug 2002 18:12:54 -0000      1.3
--- fixborrower.pl      5 Oct 2002 10:15:44 -0000       1.4
***************
*** 23,30 ****
  # Suite 330, Boston, MA  02111-1307 USA
  
! use C4::Database;
  use strict;
  
! my $dbh=C4Connect;
  
  my $query = "Select * from categories where (categorycode like 'L%' or 
categorycode like 'F%'
--- 23,30 ----
  # Suite 330, Boston, MA  02111-1307 USA
  
! use C4::Context;
  use strict;
  
! my $dbh = C4::Context->dbh;
  
  my $query = "Select * from categories where (categorycode like 'L%' or 
categorycode like 'F%'
***************
*** 61,65 ****
  and categorycode <> 'ST')";
  
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 61,65 ----
  and categorycode <> 'ST')";
  
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 86,91 ****
  }
  
! my $query = "Select * from categories where categorycode = 'ST'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 86,91 ----
  }
  
! my $query = "Select * from categories where categorycode = 'ST'";     # FIXME 
- There's already a $query in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 110,115 ****
  }
  
! my $query = "Select * from categories where categorycode = 'BR' or 
categorycode='CO' or categorycode='IS'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 110,115 ----
  }
  
! my $query = "Select * from categories where categorycode = 'BR' or 
categorycode='CO' or categorycode='IS'";   # FIXME - There's already a $query 
in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 134,139 ****
  }
  
! my $query = "Select * from categories where categorycode = 'TD'  or 
categorycode='TR'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 134,139 ----
  }
  
! my $query = "Select * from categories where categorycode = 'TD'  or 
categorycode='TR'";       # FIXME - There's already a $query in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 158,163 ****
  }
  
! my $query = "Select * from categories where categorycode = 'HR'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 158,163 ----
  }
  
! my $query = "Select * from categories where categorycode = 'HR'";     # FIXME 
- There's already a $query in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 182,187 ****
  }
  
! my $query = "Select * from categories where categorycode = 'IL'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  
--- 182,187 ----
  }
  
! my $query = "Select * from categories where categorycode = 'IL'";     # FIXME 
- There's already a $query in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  
***************
*** 206,211 ****
  }
  
! my $query = "Select * from categories where categorycode = 'TB'";
! my $sth=$dbh->prepare($query);
  $sth->execute;
  while (my $data=$sth->fetchrow_hashref){
--- 206,211 ----
  }
  
! my $query = "Select * from categories where categorycode = 'TB'";     # FIXME 
- There's already a $query in this scope
! my $sth=$dbh->prepare($query);        # FIXME - There's already a $sth in 
this scope
  $sth->execute;
  while (my $data=$sth->fetchrow_hashref){
***************
*** 249,252 ****
      $sth->finish;
  }
- 
- $dbh->disconnect;
--- 249,250 ----