[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.4.2.1,1.4.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
	fill_usmarc.pl 
Log Message:
Merged with head.


Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** fill_usmarc.pl	4 Oct 2002 02:40:03 -0000	1.4.2.1
--- fill_usmarc.pl	5 Oct 2002 08:39:09 -0000	1.4.2.2
***************
*** 35,38 ****
--- 35,40 ----
  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"}}) {