[Koha-cvs] CVS: koha/marc test,1.2,1.3

[Andrew Arensburger]

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

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


Index: test
===================================================================
RCS file: /cvsroot/koha/koha/marc/test,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** test        20 Jun 2002 17:33:17 -0000      1.2
--- test        5 Oct 2002 10:10:56 -0000       1.3
***************
*** 1,7 ****
  #!/usr/bin/perl
! 
! 
! 
! use C4::Database;
  use C4::Catalogue;
  use CGI;
--- 1,4 ----
  #!/usr/bin/perl
! use C4::Context;
  use C4::Catalogue;
  use CGI;
***************
*** 14,18 ****
  
  
! my $dbh=C4Connect;
  
  my $newschool=$ARGV[0];
--- 11,15 ----
  
  
! my $dbh = C4::Context->dbh;
  
  my $newschool=$ARGV[0];
***************
*** 30,34 ****
  $item->{'homebranch'}=$newschool;
  print $item->{'homebranch'}."\n";
! updateItem($env, $item);
  $sth->finish;
- $dbh->disconnect;
--- 27,30 ----
  $item->{'homebranch'}=$newschool;
  print $item->{'homebranch'}."\n";
! updateItem($env, $item);      # FIXME - $env undefined
  $sth->finish;