File: cgi.patch

package info (click to toggle)
gnugo 2.4-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,816 kB
  • ctags: 1,828
  • sloc: ansic: 22,091; tcl: 401; sh: 376; makefile: 202
file content (26 lines) | stat: -rw-r--r-- 655 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
--- /home/httpd/Winehq/cgi.tcl	Fri Sep 25 11:06:28 1998
+++ cgi.tcl	Sat Jul 17 08:48:59 1999
@@ -1764,13 +1764,21 @@
     cgi_puts ">"
 }
 
-proc cgi_image_button {nameval} {
+proc cgi_image_button {nameval args} {
     regexp "(\[^=]*)=(.*)" $nameval dummy name value
     cgi_put "<input type=image"
     if {0!=[string compare "" $name]} {
 	cgi_put " name=\"$name\""
     }
-    cgi_puts " src=\"$value\">"
+    cgi_put " src=\"$value\""
+    foreach a $args {
+	if {[regexp "^onClick=(.*)" $a dummy str]} {
+	    cgi_put " onClick=\"$str\""
+	} else {
+	    cgi_put " $a"
+	}
+    }
+    cgi_put ">"
 }
 
 # map/area implement client-side image maps