# YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.9 2002-12-05 12:07:00 adam Exp $
+# $Id: z.tcl,v 1.12 2003-07-18 19:53:28 mike Exp $
# ----------------------------------------------------------
# Prefix Specifications
#
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
set body($m,c) {
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);
+ return odr_implicit_tag(o, odr_octetstring, p, ODR_UNIVERSAL,
+ ODR_GENERALSTRING, opt, name);
}
}
set m ResourceReport-Format-Universe-1
set filename($m) z-univ
# ----
+set m UserInfoFormat-oclcUserInformation
+set filename($m) z-oclcui
+# ----
set m ESFormat-Admin
set filename($m) zes-admin
set map($m,EsRequest) ESAdminRequest