device manager for admin view

19737eac · Michael Brachmann · f4e97894 · 19737eac
Commit 19737eac authored Aug 31, 2026 by Michael Brachmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 5 deletions

Auth.ServiceImpl.pas emiMobileServer/Source/Auth.ServiceImpl.pas +1 -5

No files found.
--- a/emiMobileServer/Source/Auth.ServiceImpl.pas
+++ b/emiMobileServer/Source/Auth.ServiceImpl.pas
@@ -791,11 +791,7 @@ begin
          userId          := authDB.uqAuth.FieldByName('userid').AsString;
          userPersonnelId := authDB.uqAuth.FieldByName('personnelid').AsString;

-          try
-            userIsAdmin := authDB.uqAuth.FieldByName('admin').AsString = 'T';
-          except
-            userIsAdmin := False;
-          end;
+          userIsAdmin := SameText(Trim(User), 'admin');

          userStr := '?username=' + userName;
          userStr := userStr + '&fullname=' + userFullName;