[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.24,1.24.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv18140

Modified Files:
      Tag: arensb-context
	Acquisitions.pm 
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.


Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.24
retrieving revision 1.24.2.1
diff -C2 -r1.24 -r1.24.2.1
*** Acquisitions.pm	1 Oct 2002 13:22:02 -0000	1.24
--- Acquisitions.pm	4 Oct 2002 02:22:46 -0000	1.24.2.1
***************
*** 26,30 ****
  use strict;
  require Exporter;
- use C4::Database;
   #use C4::Biblio;
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
--- 26,29 ----
***************
*** 139,143 ****
  sub getorders {
    my ($supplierid)=@_;
[...1192 lines suppressed...]
      my $query = "Delete from websites where websitenumber = $websitenumber";
      
      $dbh->do($query);
-     
-     $dbh->disconnect;
  } # sub deletewebsite
  
--- 1881,1892 ----
  sub deletewebsite {
      my ($websitenumber) = @_;
!     my $dbh = C4::Context->dbh;
!     # FIXME - $query is unnecessary: just use
!     # $dbh->do(<<EOT);
!     #	DELETE FROM websites where websitenumber=$websitenumber
!     # EOT
      my $query = "Delete from websites where websitenumber = $websitenumber";
      
      $dbh->do($query);
  } # sub deletewebsite