1 files changed, 4 insertions, 5 deletions
diff --git a/lib/VNDB/Util/FormHTML.pm b/lib/VNDB/Util/FormHTML.pm
index 473f8e7d..7e3b6f67 100644
--- a/lib/VNDB/Util/FormHTML.pm
+++ b/lib/VNDB/Util/FormHTML.pm
@@ -246,9 +246,8 @@ sub htmlForm {
   if(@subs > 2) {
     ul class => 'maintabs notfirst', id => 'jt_select';
      for (0..$#subs/2) {
-       (my $short = lc $subs[$_*2]) =~ s/[^\w\d]+/_/g;
        li class => 'left';
-        a href => "#$short", id => "jt_sel_$short", $subs[$_*2];
+        a href => "#$subs[$_*2]", id => "jt_sel_$subs[$_*2]", $subs[$_*2+1][0];
        end;
      }
      li class => 'left';
@@ -258,9 +257,9 @@ sub htmlForm {
   }
 
   # form subs
-  while(my($name, $parts) = (shift(@subs), shift(@subs))) {
-    last if !$name || !$parts;
-    (my $short = lc $name) =~ s/[^\w\d]+/_/g;
+  while(my($short, $parts) = (shift(@subs), shift(@subs))) {
+    last if !$short || !$parts;
+    my $name = shift @$parts;
     div class => 'mainbox', id => 'jt_box_'.$short;
      h1 $name;
      fieldset;