Work on GRS-1 presentation.

diff --git a/client.tcl b/client.tcl
index cd3674a..d1f7065 100644 (file)
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.91  1996-03-27 17:00:53  adam
+# Revision 1.92  1996-03-29 16:04:30  adam
+# Work on GRS-1 presentation.
+#
+# Revision 1.91  1996/03/27  17:00:53  adam
 # Fix: main defined when using Tk3.6; it shouldn't be.
 #
 # Revision 1.90  1996/03/20  13:54:02  adam
@@ -422,7 +425,6 @@ set setMax 0
 # Procedure tkerror {err}
 #   err   error message
 # Override the Tk error handler function.
-if {0} {
 proc tkerror err {
     set w .tkerrorw
 
@@ -442,15 +444,17 @@ proc tkerror err {
 
     bottom-buttons $w [list {Close} [list destroy $w]] 1
 }
+
+# Read tag set file (if present)
+if {[file readable "${libdir}/tagsets.tcl"]} {
+    source "${libdir}/tagsets.tcl"
 }
 
 # Read the global configuration file.
 if {[file readable "clientrc.tcl"]} {
     source "clientrc.tcl"
-} else {
-    if {[file readable "${libdir}/clientrc.tcl"]} {
-        source "${libdir}/clientrc.tcl"
-    }
+} elseif {[file readable "${libdir}/clientrc.tcl"]} {
+    source "${libdir}/clientrc.tcl"
 }
 
 # Read the user configuration file.

diff --git a/tagsets.tcl b/tagsets.tcl
new file mode 100644 (file)
index 0000000..6189d1a
--- /dev/null
+++ b/tagsets.tcl
@@ -0,0 +1,47 @@
+# TagSet definition file
+# $Id: tagsets.tcl,v 1.1 1996-03-29 16:04:32 adam Exp $
+#
+
+# TagSet-M
+set tagSet(1,1) scemaIdentifier
+set tagSet(1,2) elementsOrdered
+set tagSet(1,3) elementOrdering
+set tagSet(1,4) defaultTagType
+set tagSet(1,5) defaultVariantSetId
+set tagSet(1,6) defaultVariantSpec
+set tagSet(1,7) processingInstructions
+set tagSet(1,8) recordUsage
+set tagSet(1,9) restriction
+set tagSet(1,10) rank
+set tagSet(1,11) userMessage
+set tagSet(1,12) url
+set tagSet(1,13) record
+set tagSet(1,14) local-control-number
+set tagSet(1,15        creation-date
+set tagSet(1,16) dateOfLastModification/lastModified
+set tagSet(1,17) dateOfLastReview
+set tagSet(1,18) score
+set tagSet(1,19) wellKnown
+set tagSet(1,20) recordWrapper
+set tagSet(1,21) defaultTagSetId
+
+# TagSet-G
+set tagSet(2,1) title
+set tagSet(2,2) author
+set tagSet(2,3) publicationPlace
+set tagSet(2,4) publicationDate
+set tagSet(2,5) documentId
+set tagSet(2,6) abstract
+set tagSet(2,7) name
+set tagSet(2,8) date           
+set tagSet(2,9) bodyOfDisplay
+set tagSet(2,10) organization
+set tagSet(2,11) postalAddress
+set tagSet(2,12) networkAddress
+set tagSet(2,13) eMailAddress
+set tagSet(2,14) phoneNumber/telephone
+set tagSet(2,15) faxNumber
+set tagSet(2,16) country
+set tagSet(2,17) description
+set tagSet(2,18) time
+set tagSet(2,19) documentcontent