[Koha-cvs] CVS: koha/C4 test.pl,1.4,1.5

[Andrew Arensburger]

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

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


Index: test.pl
===================================================================
RCS file: /cvsroot/koha/koha/C4/test.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** test.pl     14 Aug 2002 18:12:52 -0000      1.4
--- test.pl     5 Oct 2002 09:53:38 -0000       1.5
***************
*** 20,31 ****
  use strict;
  require Exporter;
! use C4::Database;
  use C4::Catalogue;
  
! our $dbh=&C4Connect;
  $dbh->do("delete from marc_subfield_table");
  $dbh->do("delete from marc_blob_subfield");
  &MARCaddSubfield(1,'001',1,'##','a',1,'1 - This is a value');
  &MARCaddSubfield(1,'001',1,'##','b',1,'2 - This is another value');
  &MARCaddSubfield(1,'001',1,'##','c',1,"3 - This is a value very very long. I 
try to make it longer than 255 char. I need to add something else. will it be 
long enough now... I'm not sure. That's why i continue to add a few word to 
this very important sentence. Now I hope it will be enough... Oh, not it need 
some more characters. So i add stupid strings : xxxxxxxxxxxxxxx 
dddddddddddddddddddd eeeeeeeeeeeeeeeeeeeeeee rrrrrrrrrrrrrrrrrrr 
ffffffffffffffffff");
  &MARCaddSubfield(1,'001',1,'##','d',1,"4 - This is another value very very 
long. I try to make it longer than 255 char. I need to add something else. will 
it be long enough now... I'm not sure. That's why i continue to add a few word 
to this very important sentence. Now I hope it will be enough... Oh, not it 
need some more characters. So i add stupid strings : xxxxxxxxxxxxxxx 
dddddddddddddddddddd eeeeeeeeeeeeeeeeeeeeeee rrrrrrrrrrrrrrrrrrr 
ffffffffffffffffff");
--- 20,32 ----
  use strict;
  require Exporter;
! use C4::Context;
  use C4::Catalogue;
  
! our $dbh = C4::Context->dbh;
  $dbh->do("delete from marc_subfield_table");
  $dbh->do("delete from marc_blob_subfield");
  &MARCaddSubfield(1,'001',1,'##','a',1,'1 - This is a value');
  &MARCaddSubfield(1,'001',1,'##','b',1,'2 - This is another value');
+ # FIXME - Just use "a"x1024 to generate very long strings.
  &MARCaddSubfield(1,'001',1,'##','c',1,"3 - This is a value very very long. I 
try to make it longer than 255 char. I need to add something else. will it be 
long enough now... I'm not sure. That's why i continue to add a few word to 
this very important sentence. Now I hope it will be enough... Oh, not it need 
some more characters. So i add stupid strings : xxxxxxxxxxxxxxx 
dddddddddddddddddddd eeeeeeeeeeeeeeeeeeeeeee rrrrrrrrrrrrrrrrrrr 
ffffffffffffffffff");
  &MARCaddSubfield(1,'001',1,'##','d',1,"4 - This is another value very very 
long. I try to make it longer than 255 char. I need to add something else. will 
it be long enough now... I'm not sure. That's why i continue to add a few word 
to this very important sentence. Now I hope it will be enough... Oh, not it 
need some more characters. So i add stupid strings : xxxxxxxxxxxxxxx 
dddddddddddddddddddd eeeeeeeeeeeeeeeeeeeeeee rrrrrrrrrrrrrrrrrrr 
ffffffffffffffffff");