| … | |
… | |
| 64 | CGI::th($statusHeader), |
64 | CGI::th($statusHeader), |
| 65 | #CGI::th("Hardcopy"), |
65 | #CGI::th("Hardcopy"), |
| 66 | ); |
66 | ); |
| 67 | |
67 | |
| 68 | my @sets; |
68 | my @sets; |
| 69 | push @sets, $db->getGlobalUserSet($effectiveUser, $_) |
|
|
| 70 | foreach ($db->listUserSets($effectiveUser)); |
69 | foreach my $setID ($db->listUserSets($effectiveUser)) { |
|
|
70 | push @sets, $db->getMergedSet($effectiveUser, $setID); |
|
|
71 | } |
| 71 | @sets = sort byname @sets if $sort eq "name"; |
72 | @sets = sort byname @sets if $sort eq "name"; |
| 72 | @sets = sort byduedate @sets if $sort eq "status"; |
73 | @sets = sort byduedate @sets if $sort eq "status"; |
| 73 | foreach my $set (@sets) { |
74 | foreach my $set (@sets) { |
| 74 | print $self->setListRow($set, ($permissionLevel > 0), |
75 | print $self->setListRow($set, ($permissionLevel > 0), |
| 75 | ($permissionLevel > 0)); |
76 | ($permissionLevel > 0)); |