X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=AlephTR.pm;h=be3e11085c9971b0371b89789e763c1ba42f2392;hb=a0d3a60cd95afff5241f8e2d3a2955ecdffd1395;hp=134c669d2bb97e0ed24be68322430a9afe61e7e0;hpb=0bba87180282519f469d7696c3efed63a38e955c;p=Biblio-Z3950.git diff --git a/AlephTR.pm b/AlephTR.pm index 134c669..be3e110 100644 --- a/AlephTR.pm +++ b/AlephTR.pm @@ -148,7 +148,7 @@ warn "## $f\t[$v]\n"; } if ( $v !~ s/^\|// ) { # no subfields - $marc->add_fields( $f, $v ); + $marc->add_fields( $f, $v ) unless $f >= 900; warn "## ++ ", dump( $f, $v ); return; }