From: Adam Dickmeiss Date: Fri, 24 May 1996 11:16:00 +0000 (+0000) Subject: Added feedback button. X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=e2ba1ab3d7b2152c1fd81e84e542f18703f182b5;p=egate.git Added feedback button. --- diff --git a/www/gif/button-user-feedback.gif b/www/gif/button-user-feedback.gif new file mode 100644 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 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $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 "

Choose one or more targets

\n" @@ -83,6 +84,7 @@ html "

\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 --- a/www/query.egw +++ b/www/query.egw @@ -1,6 +1,6 @@ { -# $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 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,6 +1,6 @@ { -# $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 "
\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 --- 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 {} + if {$useIcons} { + html {User Feedback} + } else { + html {User Feedback} + } +} + proc button-define-target {} { global useIcons global env