% myheader("Presentations - preliminary list") %>
The presentations are listed in random order.
<% my %h = read_presentations(); my $html=''; my $index=''; foreach my $id (sort {$a <=> $b} keys %h) { $h{$id}{description} = '' if 'HASH' eq ref $h{$id}{description}; $h{$id}{bio} = '' if 'HASH' eq ref $h{$id}{bio}; $index .= qq(
HTML } $html =~ s/\n\n+/
/g;
$html =~ s/\n/
\n/g;
$html =~ s@(http://[^\s#<]*)@$1@g; # make links
print "