version 1.22, 2021/03/06 19:09:03
|
version 1.23, 2021/03/07 02:34:25
|
Line 268 sub showact {
|
Line 268 sub showact {
|
print("<h3>$ltref->{$cat}</h3>\n"); |
print("<h3>$ltref->{$cat}</h3>\n"); |
|
|
print("<table border='1'><tr><th> </th><th>"); |
print("<table border='1'><tr><th> </th><th>"); |
print(join("</th><th>",(map {$ltref->{$_}; {'Any',@actl))); |
print(join("</th><th>",map {$ltref->{$_};} ('Any',@actl))); |
print("</th></tr>"); |
print("</th></tr>"); |
foreach my $type (sort(keys(%{$usercount{$cat}}))) { |
foreach my $type (sort(keys(%{$usercount{$cat}}))) { |
print("<tr><td>$type</td>"); |
print("<tr><td>$type</td>"); |