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