expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-03-23 02:31:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r5791] Serves me right for not reading the spec

Browse Source
This commit is contained in:
sb476 2004-04-22 13:20:31 +02:00
parent 057227d738
commit 1c06f9271e
1 changed files with 3 additions and 3 deletions

6
noinfo/make-indxal4.pl

@ -117,13 +117,13 @@ sub do_this_line {
$other_number = $_[3]; $other_number = $_[3];
} }
# Generate $linkid which will be kataster no., or other no. if no kataster no. present # Generate $linkid which will be kataster no., or other no. if no kataster no. present. Per HTML4 (and XHTML etc.) ID and NAME tokens must begin with alpha characters - hence "id" prepend
my $linkid = $kat_num; my $linkid = "id$kat_num";
my $other_number_no_brackets = $other_number; my $other_number_no_brackets = $other_number;
if ($kat_num and $other_number) { if ($kat_num and $other_number) {
$other_number = "($other_number)"; # wrap it in brackets, so it doesn't appear to be official $other_number = "($other_number)"; # wrap it in brackets, so it doesn't appear to be official
} elsif ($other_number and ! $kat_num) { } elsif ($other_number and ! $kat_num) {
$linkid = $other_number; $linkid = "id$other_number";
} }
# Under XHTML 1.0, link ids must not have '(', '?', ' ', or '/' # Under XHTML 1.0, link ids must not have '(', '?', ' ', or '/'
$linkid =~ s/\//-/g; $linkid =~ s/\//-/g;