X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz.tcl;h=48b403830be1013077a09e8465c90cabbda4f0e7;hb=7282236bf8f7f5ed9890f04c2b658397fd333e8b;hp=065d00022eea061dd1546c3cfeef3e67cc9ef976;hpb=161ec45b40a3ab08e08946c9654ab6fea4604760;p=yaz-moved-to-github.git

diff --git a/z39.50/z.tcl b/z39.50/z.tcl
index 065d000..48b4038 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.1 1999-06-08 10:10:16 adam Exp $
+# $Id: z.tcl,v 1.3 2000-03-14 09:22:15 ian Exp $
 # ----------------------------------------------------------
 # Prefix Specifications
 #  
@@ -320,22 +320,18 @@ set unionmap($m,DateFlags,era) {}
 # ----
 set m ResourceReport-Format-Universe-1 
 set filename($m) z-univ
+# ----
+set m ESFormat-Admin
+set filename($m) zes-admin
+set map($m,EsRequest) ESAdminRequest
+set map($m,TaskPackage) ESAdminTaskPackage
+set map($m,OriginPartToKeep) ESAdminOriginPartToKeep
+set map($m,OriginPartNotToKeep) ESAdminOriginPartNotToKeep
+set map($m,TargetPart) ESAdminTargetPart
 
 # ----------------------------------------------------------
 # "Constructed" types defined by means of C-types are declared here.
 # Each function returns the C-handler and the C-type.
-proc asnBasicGeneralString {} {
-    return {odr_generalstring char}
-}
-
-proc asnBasicVisibleString {} {
-    return {odr_visiblestring char}
-}
-
-proc asnBasicGeneralizedTime {} {
-    return {odr_generalizedtime char}
-}
-
 proc asnBasicEXTERNAL {} {
     return {z_External Z_External}
 }