| … | |
… | |
| 1095 | unshift @userLinks,$line; |
1095 | unshift @userLinks,$line; |
| 1096 | } |
1096 | } |
| 1097 | @userLinks = sort @userLinks; |
1097 | @userLinks = sort @userLinks; |
| 1098 | |
1098 | |
| 1099 | print CGI::table({border=>2,cellpadding=>10}, |
1099 | print CGI::table({border=>2,cellpadding=>10}, |
| 1100 | CGI::Tr( |
1100 | CGI::Tr({}, |
| 1101 | CGI::td([ |
1101 | CGI::td([ |
| 1102 | "Editing problem set ".CGI::strong($setID)." data for these individual students:".CGI::br(). |
1102 | "Editing problem set ".CGI::strong($setID)." data for these individual students:".CGI::br(). |
| 1103 | CGI::strong(join CGI::br(), @userLinks), |
1103 | CGI::strong(join CGI::br(), @userLinks), |
| 1104 | CGI::a({href=>$self->systemLink($setDetailPage) },"Edit set ".CGI::strong($setID)." data for ALL students assigned to this set."), |
1104 | CGI::a({href=>$self->systemLink($setDetailPage) },"Edit set ".CGI::strong($setID)." data for ALL students assigned to this set."), |
| 1105 | |
1105 | |
| 1106 | ]) |
1106 | ]) |
| 1107 | ) |
1107 | ) |
| 1108 | ); |
1108 | ); |
| 1109 | } else { |
1109 | } else { |
| 1110 | print CGI::table({border=>2,cellpadding=>10}, |
1110 | print CGI::table({border=>2,cellpadding=>10}, |
| 1111 | CGI::Tr( |
1111 | CGI::Tr({}, |
| 1112 | CGI::td([ |
1112 | CGI::td([ |
| 1113 | "This set ".CGI::strong($setID)." is assigned to ".$self->userCountMessage($setUserCount, $userCount).'.' , |
1113 | "This set ".CGI::strong($setID)." is assigned to ".$self->userCountMessage($setUserCount, $userCount).'.' , |
| 1114 | 'Edit '.CGI::a({href=>$editUsersAssignedToSetURL},'individual versions '). "of set $setID.", |
1114 | 'Edit '.CGI::a({href=>$editUsersAssignedToSetURL},'individual versions '). "of set $setID.", |
| 1115 | |
1115 | |
| 1116 | ]) |
1116 | ]) |