# YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.10 2003-02-17 21:23:31 adam Exp $
+# $Id: z.tcl,v 1.12 2003-07-18 19:53:28 mike Exp $
# ----------------------------------------------------------
# Prefix Specifications
#
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