| … | |
… | |
| 65 | #CGI::th("Hardcopy"), |
65 | #CGI::th("Hardcopy"), |
| 66 | ); |
66 | ); |
| 67 | |
67 | |
| 68 | my @setIDs = $db->listUserSets($effectiveUser); |
68 | my @setIDs = $db->listUserSets($effectiveUser); |
| 69 | |
69 | |
| 70 | |
70 | my @userSetIDs = map {[$effectiveUser, $_]} @setIDs; |
| 71 | $WeBWorK::timer->continue("Begin collecting merged sets") if defined($WeBWorK::timer); |
71 | $WeBWorK::timer->continue("Begin collecting merged sets") if defined($WeBWorK::timer); |
| 72 | my @sets = $db->getMergedSets( map {[$effectiveUser, $_]} @setIDs ); |
72 | my @sets = $db->getMergedSets( @userSetIDs ); |
| 73 | $WeBWorK::timer->continue("Begin sorting merged sets") if defined($WeBWorK::timer); |
73 | $WeBWorK::timer->continue("Begin sorting merged sets") if defined($WeBWorK::timer); |
| 74 | |
74 | |
| 75 | @sets = sortByName("set_id", @sets) if $sort eq "name"; |
75 | @sets = sortByName("set_id", @sets) if $sort eq "name"; |
| 76 | @sets = sort byduedate @sets if $sort eq "status"; |
76 | @sets = sort byduedate @sets if $sort eq "status"; |
| 77 | $WeBWorK::timer->continue("End preparing merged sets") if defined($WeBWorK::timer); |
77 | $WeBWorK::timer->continue("End preparing merged sets") if defined($WeBWorK::timer); |