[Koha-cvs] CVS: koha/C4/Circulation Issues.pm,1.2,1.2.2.1

[Andrew Arensburger]

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

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


Index: Issues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Issues.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** Issues.pm   14 Aug 2002 18:12:52 -0000      1.2
--- Issues.pm   4 Oct 2002 02:27:50 -0000       1.2.2.1
***************
*** 25,29 ****
  require Exporter;
  use DBI;
! use C4::Database;
  use C4::Accounts;
  use C4::InterfaceCDK;
--- 25,29 ----
  require Exporter;
  use DBI;
! use C4::Context;
  use C4::Accounts;
  use C4::InterfaceCDK;
***************
*** 80,84 ****
  sub Issue  {
     my ($env) = @_;
!    my $dbh=&C4Connect;
     #clear help
     helptext('');
--- 80,84 ----
  sub Issue  {
     my ($env) = @_;
!    my $dbh = C4::Context->dbh;
     #clear help
     helptext('');
***************
*** 114,119 ****
       }
     }   
!    $dbh->disconnect;
!     Cdk::refreshCdkScreen();
     return ($done);
  }    
--- 114,118 ----
       }
     }   
!    Cdk::refreshCdkScreen();
     return ($done);
  }    
***************
*** 123,127 ****
    #process a users items
     my 
($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet,$odues)address@hidden;
!    my $dbh=&C4Connect;  
     $env->{'newborrower'} = "";
     my ($itemnum,$reason) = 
--- 122,126 ----
    #process a users items
     my 
($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet,$odues)address@hidden;
!    my $dbh = C4::Context->dbh;
     $env->{'newborrower'} = "";
     my ($itemnum,$reason) = 
***************
*** 142,146 ****
       }
     }   
-    $dbh->disconnect;
     #check to see if more books to process for this user
     my @done;
--- 141,144 ----
***************
*** 167,171 ****
     }
     #debug_msg($env, "return from issues $done[0]"); 
-    $dbh->disconnect;
     return @done;
  }
--- 165,168 ----