1
#! /bin/sh /usr/share/dpatch/dpatch-run
2
## 60_select-and-input-mine.dpatch by Mario Holbe <Mario.Holbe@RZ.TU-Ilmenau.DE>
4
## All lines beginning with `## DP:' are a description of the patch.
5
## DP: Beautify the input+select style.
8
diff -ur cgiirc-0.5.4.orig/interfaces/default.pm cgiirc-0.5.4/interfaces/default.pm
9
--- cgiirc-0.5.4.orig/interfaces/default.pm 2004-06-19 18:46:05.000000000 +0200
10
+++ cgiirc-0.5.4/interfaces/default.pm 2004-06-19 18:43:22.000000000 +0200
12
($interface eq 'default' ? 'nonjs' : $interface) . "\">\n";
14
<table border="0" cellpadding="5" cellspacing="0">
15
-<tr><td colspan="2" align="center" bgcolor="#c0c0dd"><b>CGI:IRC Login</b></td></tr>
16
+<tr><td colspan="4" align="center" bgcolor="#c0c0dd"><b>CGI:IRC Login</b></td></tr>
20
my $item = $$items{$_};
21
next unless defined $item;
22
print "<tr><td align=\"right\" bgcolor=\"#f1f1f1\">$_</td><td align=\"left\" bgcolor=\"#f1f1f1\">";
24
$tmp = " disabled=\"1\"";
26
print "<input type=\"text\" name=\"$_\" value=\"\"$tmp/>";
27
- print "</td></tr>\n";
28
- print "<tr><td bgcolor=\"#f1f1f1\"></td><td align=\"left\" bgcolor=\"#f1f1f1\">";
30
+ print "<td bgcolor=\"#f1f1f1\">or</td><td align=\"left\" bgcolor=\"#f1f1f1\">";
32
$js = " onChange=\"$_.value = this.value\"";
37
print "<input type=\"text\" name=\"$_\" value=\"$item\"$tmp>";
39
+ unless($allColumns) {
40
+ print "<td colspan=\"2\" bgcolor=\"#f1f1f1\"></td>";
50
-</td><td align="right" bgcolor="#d9d9d9">
51
+</td><td colspan="3" align="right" bgcolor="#d9d9d9">
52
<input type="submit" value="Login" style="background-color: #d9d9d9">
53
</td></tr></table></form>