X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz.tcl;h=47bb1c39b2a8dbf17f0f026436c4e1eae7d70e4e;hb=db585d7fcb8319fa86543eb062df7fdaf16858c6;hp=919fd745c7beb0d6e3eaa78ea7f252fcdd029f95;hpb=bd805d259bd25686f0e7d4a4bbe4b0f084cff805;p=yaz-moved-to-github.git

diff --git a/z39.50/z.tcl b/z39.50/z.tcl
index 919fd74..47bb1c3 100644
--- a/z39.50/z.tcl
+++ b/z39.50/z.tcl
@@ -1,5 +1,5 @@
 # YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.7 2002-02-12 21:11:49 adam Exp $
+# $Id: z.tcl,v 1.10 2003-02-17 21:23:31 adam Exp $
 # ----------------------------------------------------------
 # Prefix Specifications
 #  
@@ -134,6 +134,7 @@ set unionmap($m,OtherInformationUnit,information) {which information OtherInfo}
 set unionmap($m,OtherInformation) {num_elements list}
 set unionmap($m,Specification,elementSpec) {}
 set map($m,Specification_0) ElementSpec
+set unionmap($m,Specification,schema) {which schema Schema}
 
 # ----
 set m DiagnosticFormatDiag1
@@ -205,7 +206,7 @@ set m RecordSyntax-SUTRS
 set filename($m) z-sutrs
 #set map($m,SutrsRecord) SUTRS
 set body($m,c) {
-int z_SUTRS (ODR o, Odr_oct **p, int opt)
+int z_SUTRS (ODR o, Odr_oct **p, int opt, const char *name)
 {
     return odr_implicit(o, odr_octetstring, p, ODR_UNIVERSAL,
         ODR_GENERALSTRING, opt);
@@ -214,7 +215,7 @@ int z_SUTRS (ODR o, Odr_oct **p, int opt)
 
 set init($m,h) {
 typedef Odr_oct Z_SUTRS;
-YAZ_EXPORT int z_SUTRS (ODR o, Odr_oct **p, int opt);
+YAZ_EXPORT int z_SUTRS (ODR o, Odr_oct **p, int opt, const char *name);
 }
 # ----
 set m RecordSyntax-opac
@@ -321,6 +322,9 @@ set map($m,Z3950DateSeason) DateSeason
 set map($m,Date_0) DateFlags
 set unionmap($m,DateFlags,era) {}
 # ----
+set m UserInfoFormat-multipleSearchTerms-2
+set filename($m) z-mterm2
+# ----
 set m ResourceReport-Format-Universe-1 
 set filename($m) z-univ
 # ----