summaryrefslogtreecommitdiff
path: root/lib/VNDB/Util/FormHTML.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2008-12-14 11:44:09 +0100
committerYorhel <git@yorhel.nl>2008-12-14 11:44:09 +0100
commitd85da4dfaa971c5244bc26d52ca517d6190f0fdb (patch)
tree45fcba1e07ee0707e366f0cf502dcfbac84a9c4c /lib/VNDB/Util/FormHTML.pm
parent930d2d4dd61bd93b47315eb8992bc745d0fa633a (diff)
Fixed all XHTML validation bugs I could find
With two exceptions: - Empty browse tables (/u1/list, /u3/hist, ..) - Empty <tbody> on /v+/edit and /v/new I'm not purist enough to work around those bugs. (well, maybe I'll fix the empty browse table thing, as it's not really user friendly either)
Diffstat (limited to 'lib/VNDB/Util/FormHTML.pm')
-rw-r--r--lib/VNDB/Util/FormHTML.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/VNDB/Util/FormHTML.pm b/lib/VNDB/Util/FormHTML.pm
index b6b7f57b..80b8c4f3 100644
--- a/lib/VNDB/Util/FormHTML.pm
+++ b/lib/VNDB/Util/FormHTML.pm
@@ -211,7 +211,7 @@ sub htmlForm {
if(@subs > 2) {
ul class => 'maintabs notfirst', id => 'jt_select';
for (0..$#subs/2) {
- (my $short = lc $subs[$_*2]) =~ s/[^\w\d]+/_/;
+ (my $short = lc $subs[$_*2]) =~ s/[^\w\d]+/_/g;
li class => 'left';
a href => "#$short", id => "jt_sel_$short", $subs[$_*2];
end;
@@ -222,7 +222,7 @@ sub htmlForm {
# form subs
while(my($name, $parts) = (shift(@subs), shift(@subs))) {
last if !$name || !$parts;
- (my $short = lc $name) =~ s/[^\w\d]+/_/;
+ (my $short = lc $name) =~ s/[^\w\d]+/_/g;
div class => 'mainbox', id => 'jt_box_'.$short;
h1 $name;
fieldset;