Minor changes.

[egate.git] / www / z39util.tcl

diff --git a/www/z39util.tcl b/www/z39util.tcl
index 7ee6cf2..bd6a7b5 100644 (file)
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.44 1996/05/15 18:43:38 adam Exp $
+# $Id: z39util.tcl,v 1.45 1996/05/24 11:16:02 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -1689,6 +1689,18 @@ proc button-main {} {
     }
 }
 
+proc button-feedback {} {
+    global useIcons
+
+    html {<a href="http://europagate.dtv.dk/wwwquest.html">}
+    if {$useIcons} {
+        html {<img src="/egwgif/button-user-feedback.gif" alt="User Feedback"
+        border=0></a>}
+    } else {
+        html {User Feedback</a>}
+    }    
+}
+
 proc button-define-target {} {
     global useIcons
     global env