renamed personel to employee; punted regtape program

[moira.git] / regtape / employee.dc

diff --git a/regtape/employee.dc b/regtape/employee.dc
index 6a83b7fec854d8030e34b399f20e1962882ab01f..5d3c98eec62e3d6e4dfda7f9c207712b1fa43d8e 100644 (file)
--- a/regtape/employee.dc
+++ b/regtape/employee.dc
@@ -213,7 +213,11 @@ struct entry *e;
 ##  int id;
 
     first = e->first;
+    if (strlen(first) > 16)
+      first[16] = 0;
     last = e->last;
+    if (strlen(last) > 16)
+      last[16] = 0;
     eid = e->eid;
     id = 0;
 ##  repeat retrieve (id = u.users_id, class = u.mit_year, oaddr = u.office_addr,