[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.4,1.5 updatedb2marc.pl,1.1,1.2

[Paul POULAIN]

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

Modified Files:
	fill_usmarc.pl updatedb2marc.pl 
Log Message:
small fixes

Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** fill_usmarc.pl	10 Sep 2002 14:02:42 -0000	1.4
--- fill_usmarc.pl	3 Oct 2002 11:25:39 -0000	1.5
***************
*** 34,37 ****
--- 34,39 ----
  my $description;
  foreach $tag (sort keys %$fields) {
+ 	$fields->{$tag}->{"name"}  =~ s/\(R\)//g;
+ 	$fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
  	$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
  	foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {

Index: updatedb2marc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/updatedb2marc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** updatedb2marc.pl	10 Sep 2002 14:02:42 -0000	1.1
--- updatedb2marc.pl	3 Oct 2002 11:25:40 -0000	1.2
***************
*** 23,34 ****
  use strict;
  require Exporter;
! use C4::Database;
  use C4::Catalogue;
  use C4::Biblio;
  use MARC::Record;
  use MARC::File::USMARC;
  
  #die;
! my $dbh=&C4Connect;
  $dbh->do("delete from marc_biblio");
  $dbh->do("delete from marc_blob_subfield");
--- 23,36 ----
  use strict;
  require Exporter;
! #use C4::Database;
  use C4::Catalogue;
  use C4::Biblio;
  use MARC::Record;
  use MARC::File::USMARC;
+ use C4::Context;
  
  #die;
! #my $dbh=&C4Connect;
! my $dbh=C4::Context->dbh;
  $dbh->do("delete from marc_biblio");
  $dbh->do("delete from marc_blob_subfield");