X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=data1%2Fd1_marc.c;h=8b7b94c016134e056cec86622dbcf187a19995a3;hb=f280b4adca76b5b447dae9d6a01ff1f9067c08b9;hp=5bd1e2c54df9bc977ba962c77805556742003565;hpb=519fefb91135ad52134b9fc4e82b3874f5525a2b;p=idzebra-moved-to-github.git diff --git a/data1/d1_marc.c b/data1/d1_marc.c index 5bd1e2c..8b7b94c 100644 --- a/data1/d1_marc.c +++ b/data1/d1_marc.c @@ -1,11 +1,26 @@ -/* - * Copyright (c) 1995-2002, Index Data. - * See the file LICENSE for details. - * Sebastian Hammer, Adam Dickmeiss - * - * $Id: d1_marc.c,v 1.1 2002-10-22 12:53:33 adam Exp $ - */ +/* $Id: d1_marc.c,v 1.3 2003-02-28 12:33:38 oleg Exp $ + Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 + Index Data Aps + +This file is part of the Zebra server. + +Zebra is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free +Software Foundation; either version 2, or (at your option) any later +version. + +Zebra is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with Zebra; see the file LICENSE.zebra. If not, write to the +Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. +*/ +/* converts data1 tree to ISO2709/MARC record */ #include #include @@ -231,6 +246,9 @@ static int nodetomarc(data1_handle dh, } if (selected && !field->u.tag.node_selected) continue; + + if (!yaz_matchstr(field->u.tag.tag, "mc?")) + continue; subf = field->child; if (!subf) @@ -249,7 +267,7 @@ static int nodetomarc(data1_handle dh, is00X = 1; } - + if (!is00X) len += p->indicator_length; /* we'll allow no indicator if length is not 2 */ @@ -295,6 +313,9 @@ static int nodetomarc(data1_handle dh, if (selected && !field->u.tag.node_selected) continue; + if (!yaz_matchstr(field->u.tag.tag, "mc?")) + continue; + subf = field->child; if (!subf) continue;