[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.6,1.7

[Paul POULAIN]

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

Modified Files:
	fill_usmarc.pl 
Log Message:
small fixes

Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** fill_usmarc.pl	5 Oct 2002 10:10:42 -0000	1.6
--- fill_usmarc.pl	7 Oct 2002 14:08:26 -0000	1.7
***************
*** 37,40 ****
--- 37,41 ----
  	$fields->{$tag}->{"name"}  =~ s/\(R\)//g;
  	$fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
+ 	$fields->{$tag}->{"name"}  =~ s/\<a h.*\<\/a>//g;
  	$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
  	foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {
***************
*** 44,47 ****
--- 45,49 ----
  		$description=$fields->{$tag}->{"subfields"}->{$subfield}->{"name"};
  	    }
+ 		$description  =~ s/\<a href.*\<\/a\>//g;
  	    $reqsubfield->execute(
  				  $tag,