[Koha-cvs] CVS: koha/misc fixborrower.pl,1.3.2.1,1.3.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
	fixborrower.pl 
Log Message:
Added a whole mess of FIXME comments.


Index: fixborrower.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fixborrower.pl,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -C2 -r1.3.2.1 -r1.3.2.2
*** fixborrower.pl	4 Oct 2002 02:44:57 -0000	1.3.2.1
--- fixborrower.pl	5 Oct 2002 06:18:25 -0000	1.3.2.2
***************
*** 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){