print <<'HERE';
<h1>Project List of <a href="mailto:web-www.jankratochvil.net@jankratochvil.net">Jan Kratochvil</a></h1>
-<p><form action="list.cgi.pl" method="GET">
+<form action="list.cgi.pl" method="get"><p>
<select name="description_opt" onchange="this.form.submit();">
HERE
print '<option value="0"'.(!$CGI->param("description_opt") ? ' selected="selected"' : '').'>only list</option>'."\n";
print <<'HERE';
</select>
<input type="submit" value="Update" />
-</form></p>
+</p></form>
HERE
my %dirs;
# $col{"name"}{""}="Project name";
# @col_order
-my @row_order;
+my @row_order=qw(-priority);
my @col_order=qw(name summary license maintenance language);
my %col;
print '</tr>'."\n";
my @rows_ordered=sort {
for my $order_by (@row_order,"name") {
+ my $order_by=$order_by;
+ my $minus=($order_by=~s/^(-)//)[0];
my $r=($item{$a}{$order_by} cmp $item{$b}{$order_by});
+ $r=-$r if $minus;
return $r if $r;
}
return 0;