# Fml scripts to display MARC records
-# $Id: marc.fml,v 1.1 1995/02/10 15:50:57 adam Exp $
-\func display rec {
- Record\n
- \foreach line {\rec} {
- \line \index 1 \
- \foreach field {\line \index 2} {
- \field \index 1
- \ $\field \index 2
- \field \index 3
- }
- \n
- }
-}
-
+# $Id: marc.fml,v 1.2 1995/02/10 16:52:08 adam Exp $
\func f0 rec {
\foreach line {\rec} {
\line \index 1 \
- \line \index 2 \index 1 \index 1
- \foreach field {\line \index 2} {
- \ $\field \index 2\
- \field \index 3
+ \line \index 2
+ \foreach field {\line \index 3} {
+ \if {\field \index 1} {
+ \ $\field \index 1\
+ }
+ \field \index 2
}
\n
}