| … | |
… | |
| 115 | ); |
115 | ); |
| 116 | |
116 | |
| 117 | foreach my $currentUser (@users) { |
117 | foreach my $currentUser (@users) { |
| 118 | my $userRecord = $db->getUser($currentUser); |
118 | my $userRecord = $db->getUser($currentUser); |
| 119 | my $permissionLevel = $db->getPermissionLevel($currentUser); |
119 | my $permissionLevel = $db->getPermissionLevel($currentUser); |
|
|
120 | die "No permission level record for user $currentUser" unless defined $permissionLevel; |
| 120 | |
121 | |
| 121 | # A concise way of printing a row containing a cell for each field, editable unless it's a key |
122 | # A concise way of printing a row containing a cell for each field, editable unless it's a key |
| 122 | print CGI::Tr({}, |
123 | print CGI::Tr({}, |
| 123 | CGI::td({}, [ |
124 | CGI::td({}, [ |
| 124 | (map {$userRecord->$_} $userRecord->KEYFIELDS), |
125 | (map {$userRecord->$_} $userRecord->KEYFIELDS), |