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

[Andrew Arensburger]

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

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


Index: Stock.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stock.pm,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** Stock.pm    28 Sep 2002 04:58:32 -0000      1.4
--- Stock.pm    4 Oct 2002 02:26:45 -0000       1.4.2.1
***************
*** 23,27 ****
  
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
! use C4::Database;
  
  # set the version for version checking
--- 23,27 ----
  
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
! use C4::Context;
  
  # set the version for version checking
***************
*** 35,39 ****
  # obsolete.
  sub stockreport {
!   my $dbh=C4Connect;
    my @results;
    my $query="Select count(*) from items where homebranch='C'";
--- 35,39 ----
  # obsolete.
  sub stockreport {
!   my $dbh = C4::Context->dbh;
    my @results;
    my $query="Select count(*) from items where homebranch='C'";
***************
*** 49,53 ****
    $results[1]="$count->{'count'}\t Foxton";
    $sth->finish;
-   $dbh->disconnect;
    return(@results);
  }
--- 49,52 ----