X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=fml%2Fmarc.fml;h=2abf57c751408702f320751e3ea4a9ec21d0cfba;hb=3f6af0f3aa9f114cf562c28f2ed0b954e4c5d659;hp=524efe60fa74ae1f6c0d9a35bfd2e0916b147c0e;hpb=c0f53a7f743624e546beaef56b773df4d2012173;p=egate.git

diff --git a/fml/marc.fml b/fml/marc.fml
index 524efe6..2abf57c 100644
--- a/fml/marc.fml
+++ b/fml/marc.fml
@@ -1,5 +1,5 @@
 # Fml scripts to display MARC records
-# $Id: marc.fml,v 1.2 1995/02/10 16:52:08 adam Exp $
+# marc.fml,v 1.3 1995/02/10 18:15:53 adam Exp
 \func f0 rec {
 	\foreach line {\rec} {
 		\line \index 1 \ 
@@ -13,4 +13,23 @@
 		\n
 	}
 }
+\func mline prefix suffix lin tag subfield {
+	\if {{\strcmp {\line \index 1} \tag}\eq 0} {
+		\foreach field {\lin \index 3} {
+			\if {{\strcmp {\field \index 1} \subfield}\eq 0} {
+				\prefix
+				\field \index 2
+				\suffix
+			}
+		}
+	}
+}
+
+\func f1 rec {
+	\foreach line {\rec} {
+		\mline 'Title: ' '\n' \line 245 a
+		\mline 'Author: ' {} \line 100 a
+		\mline ', ' '\n' \line 100 h
+	}
+}