[Koha-cvs] CVS: koha updateitem.pl,1.5,1.5.2.1

[Andrew Arensburger]

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

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


Index: updateitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updateitem.pl,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** updateitem.pl	20 Sep 2002 13:01:51 -0000	1.5
--- updateitem.pl	4 Oct 2002 02:21:50 -0000	1.5.2.1
***************
*** 19,25 ****
  # Suite 330, Boston, MA  02111-1307 USA
  
- use C4::Database;
- use CGI;
  use strict;
  use C4::Acquisitions;
  use C4::Biblio;
--- 19,25 ----
  # Suite 330, Boston, MA  02111-1307 USA
  
  use strict;
+ use CGI;
+ use C4::Context;
  use C4::Acquisitions;
  use C4::Biblio;
***************
*** 88,92 ****
  	     });
    if ($lost ==1){
!     my $dbh=C4Connect;
      my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
      $sth->execute;
--- 88,92 ----
  	     });
    if ($lost ==1){
!     my $dbh = C4::Context->dbh;
      my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
      $sth->execute;
***************
*** 115,119 ****
  #  print "marking cancelled";
    #need to check if it is on reserve or issued
!   my $dbh=C4Connect;
    my $flag=0; 
    my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
--- 115,119 ----
  #  print "marking cancelled";
    #need to check if it is on reserve or issued
!   my $dbh = C4::Context->dbh;
    my $flag=0; 
    my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
***************
*** 133,137 ****
    }
    $sth->finish;
-   $dbh->disconnect;
    if ($flag == 1){
      my $url=$input->self_url;
--- 133,136 ----