Changeset 12861

Timestamp:

2006-09-27T15:02:28+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now produces anchors without spaces in the names, for HTML compliance.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (1 diff)

trunk/cic-hcap/perllib/plugins/CICPlug.pm

@@ -1255 +1255 @@
     my $id_to_extra_mapping = shift(@_);
 
-    print BROWSER_MACROFILE "<tr><td width=\"50%\"><br /><a name=\"$chunk_title\"/><span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>";
+    my $chunk_title_sans_spaces = $chunk_title;
+    $chunk_title_sans_spaces =~ s/ //g;
+    print BROWSER_MACROFILE "<tr><td width=\"50%\"><br /><a name=\"$chunk_title_sans_spaces\"/><span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>";
 
     my %full_name_to_id_mapping;