version 1.21, 2018/07/05 15:23:59
|
version 1.22, 2021/03/06 19:09:03
|
Line 114 sub main {
|
Line 114 sub main {
|
Course => 'Course', |
Course => 'Course', |
Browser => 'Browser', |
Browser => 'Browser', |
OS => 'OS', |
OS => 'OS', |
|
Any => 'Any', |
Active => 'Active', |
Active => 'Active', |
'Moderately Active' => 'Moderately Active', |
'Moderately Active' => 'Moderately Active', |
Inactive => 'Inactive', |
Inactive => 'Inactive', |
Line 267 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>",('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>"); |