[Koha-cvs] CVS: koha/C4/Circulation Main.pm,1.4,1.4.2.1

Andrew Arensburger arensb at users.sourceforge.net
Fri Oct 4 04:28:03 CEST 2002


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

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


Index: Main.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Main.pm,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** Main.pm	1 Oct 2002 11:52:16 -0000	1.4
--- Main.pm	4 Oct 2002 02:28:01 -0000	1.4.2.1
***************
*** 24,28 ****
  require Exporter;
  use DBI;
! use C4::Database;
  use C4::Circulation::Issues;
  use C4::Circulation::Returns;
--- 24,28 ----
  require Exporter;
  use DBI;
! use C4::Context;
  use C4::Circulation::Issues;
  use C4::Circulation::Returns;
***************
*** 80,84 ****
  sub getbranch {
    my ($env) = @_;
!   my $dbh = C4Connect;
    my $query = "select * from branches order by branchcode";
    my $sth = $dbh->prepare($query);
--- 80,84 ----
  sub getbranch {
    my ($env) = @_;
!   my $dbh = C4::Context->dbh;
    my $query = "select * from branches order by branchcode";
    my $sth = $dbh->prepare($query);
***************
*** 102,111 ****
    $env->{'branchname'} = $data->{'branchname'};
    $sth->finish;
-   $dbh->disconnect;
  }
  
  sub getprinter {
    my ($env) = @_;
!   my $dbh = C4Connect;
    my $query = "select * from printers order by printername";
    my $sth = $dbh->prepare($query);
--- 102,110 ----
    $env->{'branchname'} = $data->{'branchname'};
    $sth->finish;
  }
  
  sub getprinter {
    my ($env) = @_;
!   my $dbh = C4::Context->dbh;
    my $query = "select * from printers order by printername";
    my $sth = $dbh->prepare($query);
***************
*** 123,128 ****
    }
    $sth->finish;
!   $dbh->disconnect;
!   }
  		      
  # FIXME - This is not the same as &C4::Circulation::pastitems, though
--- 122,126 ----
    }
    $sth->finish;
! }
  		      
  # FIXME - This is not the same as &C4::Circulation::pastitems, though





More information about the Koha-cvs mailing list