[Koha-cvs] CVS: koha/acqui.simple addbookslccn.pl,1.7,1.8

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv24073/acqui.simple

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


Index: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** addbookslccn.pl     14 Aug 2002 18:12:52 -0000      1.7
--- addbookslccn.pl     5 Oct 2002 09:55:46 -0000       1.8
***************
*** 32,38 ****
  # Suite 330, Boston, MA  02111-1307 USA
  
- use C4::Database;
- use CGI;
  use strict;
  use C4::Catalogue;
  use C4::Biblio;
--- 32,38 ----
  # Suite 330, Boston, MA  02111-1307 USA
  
  use strict;
+ use CGI;
+ use C4::Context;
  use C4::Catalogue;
  use C4::Biblio;
***************
*** 41,45 ****
  
  my $input = new CGI;
! my $dbh=C4Connect;
  
  my $lccn=$input->param('lccn');
--- 41,45 ----
  
  my $input = new CGI;
! my $dbh = C4::Context->dbh;
  
  my $lccn=$input->param('lccn');
***************
*** 179,183 ****
  }
  
! 
  sub newbiblioitem {
      my $biblionumber=$input->param('biblionumber');
--- 179,183 ----
  }
  
! # FIXME - There's already a &C4::Biblio::newbiblioitem.
  sub newbiblioitem {
      my $biblionumber=$input->param('biblionumber');