From 6d6c60e6a2298d27f3b69c019eb0b7061e4aa0b8 Mon Sep 17 00:00:00 2001
From: mar <mar>
Date: Wed, 13 Jun 1990 12:46:57 +0000
Subject: [PATCH] missing {}'s caused middle initials to go away; only do xuser
 if it doesn't already exist

---
 regtape/students.dc | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/regtape/students.dc b/regtape/students.dc
index 37d29ff5..9dd9a510 100644
--- a/regtape/students.dc
+++ b/regtape/students.dc
@@ -185,9 +185,10 @@ FILE *in;
 	    *p = 0;
 	    e.first = strtrim(e.first);
 	    e.middle = strtrim(p + 1);
-	} else
-	  e.first = strtrim(e.first);
-	  e.middle = "";
+	} else {
+	    e.first = strtrim(e.first);
+	    e.middle = "";
+	}
     } else {
 	e.first = "";
 	e.middle = "";
@@ -381,9 +382,14 @@ struct entry *e;
 	    strcat(haddr, e->state);
 	}
 	
+	status = 1;
+##	repeat retrieve (status = any (xuser.users_id
+##			 where xuser.users_id = @id))
+	if (!status) {
 ##	append xuser (users_id = id, #id = sid, #name = name, #dept = dept,
 ##		      #title = title, address = haddr, #phone1 = hphone,
 ##		      #phone2 = ophone, modtime = "now")
+	}
     }
 ##}
 
-- 
2.45.2