From c07b6257f696d0f3a2b2d835401b2380c173b385 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 30 Jun 2012 15:32:30 -0400
Subject: [PATCH] Login/user searches now allow user number instead of only
 names

---
 mystic/HISTORY.txt  | 7 +++++++
 mystic/bbs_user.pas | 7 +++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/mystic/HISTORY.txt b/mystic/HISTORY.txt
index 07456d4..6dc00ba 100644
--- a/mystic/HISTORY.txt
+++ b/mystic/HISTORY.txt
@@ -4191,3 +4191,10 @@
 
  + The Full screen editor now does a full redraw of the editor screen and
    text after uploading a .txt file into the editor.
+
+ + New MPL procedure "hangup" does exactly what you think it does to the
+   caller! :)
+
+ + Mystic now allows users to login by the permanent index number as well as
+   their user name.  Private e-mails and other areas of the BBS also allow
+   for usage of the permanent index now as well.
diff --git a/mystic/bbs_user.pas b/mystic/bbs_user.pas
index 414523c..76f6dc2 100644
--- a/mystic/bbs_user.pas
+++ b/mystic/bbs_user.pas
@@ -308,19 +308,22 @@ Begin
 End;
 
 Function TBBSUser.FindUser (Str: String; Adjust: Boolean) : Boolean;
+Var
+  RecNum : LongInt;
 Begin
   FindUser := False;
 
   If Str = '' Then Exit;
 
-  Str := strUpper(Str);
+  Str    := strUpper(Str);
+  RecNum := strS2I(Str);
 
   Reset (UserFile);
 
   While Not Eof(UserFile) Do Begin
     Read (UserFile, TempUser);
 
-    If ((strUpper(TempUser.RealName) = Str) or (strUpper(TempUser.Handle) = Str)) and (TempUser.Flags And UserDeleted = 0) Then Begin
+    If ((TempUser.PermIdx = RecNum) or (strUpper(TempUser.RealName) = Str) or (strUpper(TempUser.Handle) = Str)) and (TempUser.Flags And UserDeleted = 0) Then Begin
       If Adjust Then UserNum := FilePos(UserFile);
 
       FindUser := True;