diff options
author | Yorhel <git@yorhel.nl> | 2008-12-14 11:44:09 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-12-14 11:44:09 +0100 |
commit | d85da4dfaa971c5244bc26d52ca517d6190f0fdb (patch) | |
tree | 45fcba1e07ee0707e366f0cf502dcfbac84a9c4c /lib/VNDB/Util/FormHTML.pm | |
parent | 930d2d4dd61bd93b47315eb8992bc745d0fa633a (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.pm | 4 |
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; |