[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,