diff options
author | Yorhel <git@yorhel.nl> | 2008-12-02 14:39:10 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-12-02 14:39:10 +0100 |
commit | 28c19f26f5355ef12d89fa92e636d90cbb2a5fff (patch) | |
tree | 5715e864594a3ccb5df1e971aed4e7b38e3035a2 /lib/VNDB/Util/FormHTML.pm | |
parent | 6e239dedaee9aa745a740aa60a2ac79b3715626a (diff) |
Adding/editing releases
Using plain input boxes for the media, producers and VNs for debugging,
these will be replaced with proper JS-powered forms.
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 fbc9b9fa..309b7e12 100644 --- a/lib/VNDB/Util/FormHTML.pm +++ b/lib/VNDB/Util/FormHTML.pm @@ -202,7 +202,7 @@ sub htmlForm { if(@subs > 2) { ul class => 'maintabs notfirst', id => 'jt_select'; for (0..$#subs/2) { - (my $short = lc $subs[$_*2]) =~ s/ /_/; + (my $short = lc $subs[$_*2]) =~ s/[^\w\d]+/_/; li class => 'left'; a href => "#$short", id => "jt_sel_$short", $subs[$_*2]; end; @@ -213,7 +213,7 @@ sub htmlForm { # form subs while(my($name, $parts) = (shift(@subs), shift(@subs))) { last if !$name || !$parts; - (my $short = lc $name) =~ s/ /_/; + (my $short = lc $name) =~ s/[^\w\d]+/_/; div class => 'mainbox', id => 'jt_box_'.$short; h1 $name; fieldset; |