From 879835d3c8649aa8e54f2bb8b495a9b6988b59e9 Mon Sep 17 00:00:00 2001 From: Sebastian Hammer Date: Thu, 11 Jan 1996 09:31:05 +0000 Subject: [PATCH] Small. --- formats/medium.tcl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/formats/medium.tcl b/formats/medium.tcl index 6904a26..b9a42a6 100644 --- a/formats/medium.tcl +++ b/formats/medium.tcl @@ -4,7 +4,10 @@ # Sebastian Hammer, Adam Dickmeiss # # $Log: medium.tcl,v $ -# Revision 1.9 1995-10-17 14:18:10 adam +# Revision 1.10 1996-01-11 09:31:05 quinn +# Small. +# +# Revision 1.9 1995/10/17 14:18:10 adam # Minor changes in presentation formats. # # Revision 1.8 1995/10/17 10:58:09 adam @@ -180,4 +183,12 @@ proc display-medium {sno no w hflag} { } $w insert end "\n" } + set i [z39.$sno getMarc $no field 710 * a] + if {"x$i" != "x"} { + insertWithTags $w "Corporate name " marc-pref + foreach x $i { + insertWithTags $w $x marc-text + } + $w insert end "\n" + } } -- 1.7.10.4