projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: cfd53e6)
Added feedback button.
authorAdam Dickmeiss <adam@indexdata.dk>
Fri, 24 May 1996 11:16:00 +0000 (11:16 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Fri, 24 May 1996 11:16:00 +0000 (11:16 +0000)
www/gif/button-user-feedback.gif [new file with mode: 0644] patch | blob
www/mtargets.egw patch | blob | history
www/query.egw patch | blob | history
www/targets.egw patch | blob | history
www/z39util.tcl patch | blob | history

diff --git a/www/gif/button-user-feedback.gif b/www/gif/button-user-feedback.gif
new file mode 100644 (file)
index 0000000..04a7f08
Binary files /dev/null and b/www/gif/button-user-feedback.gif differ
diff --git a/www/mtargets.egw b/www/mtargets.egw
index f10238f..a41168f 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: mtargets.egw,v 1.21 1996/04/25 10:22:20 adam Exp $
+# $Id: mtargets.egw,v 1.22 1996/05/24 11:16:00 adam Exp $
     set setNo 1
     source ztargets.conf
     if {![info exists debug]} {
@@ -36,6 +36,7 @@
 
     set useIcons 1
     button-main
+    button-feedback
     button-define-target
 
     html "<h2>Choose one or more targets</h2>\n"
@@ -83,6 +84,7 @@
     html "<p>\n"
     set useIcons 0
     button-main
+    button-feedback
     button-define-target
 }
 
diff --git a/www/query.egw b/www/query.egw
index 74ad296..b421710 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: query.egw,v 1.39 1996/03/14 11:50:47 adam Exp $
+# $Id: query.egw,v 1.40 1996/05/24 11:16:01 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -98,6 +98,7 @@ proc ok-response {} {
 
     set useIcons 1
     button-main
+    button-feedback
     button-new-target
     if {[lsearch [z390 options] scan] >= 0} {
         button-scan-window $setNo
@@ -208,6 +209,7 @@ proc ok-response {} {
 
     set useIcons 0
     button-main
+    button-feedback
     button-new-target
     if {[lsearch [z390 options] scan] >= 0} {
         button-scan-window $setNo
diff --git a/www/targets.egw b/www/targets.egw
index 4ca8c0a..4f1ccb3 100644 (file)
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: targets.egw,v 1.25 1996/04/25 10:22:21 adam Exp $
+# $Id: targets.egw,v 1.26 1996/05/24 11:16:02 adam Exp $
     source ztargets.conf
     if {![info exists debug]} {
         if {[lindex $sessionParms 1] == "1"} {
@@ -36,6 +36,7 @@
     set useIcons 1
 
     button-main
+    button-feedback
     if {[info exists nextSetNo]} {
         button-view-history
     }
@@ -79,6 +80,7 @@
     html "</dl><br>\n"
     set useIcons 0
     button-main 
+    button-feedback
     if {[info exists nextSetNo]} {
         button-view-history
     }
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
Europgate