From: zacheiss <zacheiss>
Date: Wed, 17 Oct 2001 21:35:48 +0000 (+0000)
Subject: Set creation time and creator information for new users.
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/7ba40987a2e73ba44dcc6447c9b7158871977bbb

Set creation time and creator information for new users.
---

diff --git a/regtape/common.pc b/regtape/common.pc
index 8f89fd24..1c4588d9 100644
--- a/regtape/common.pc
+++ b/regtape/common.pc
@@ -277,7 +277,8 @@ void newuser(struct entry *e, int secure)
      middle, status, clearid, type, modtime, modby, modwith, fullname, 
      department, home_addr, home_phone, office_addr, office_phone, fmodtime,
      fmodby, fmodwith, potype, pmodtime, pmodby, pmodwith,
-     xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure)
+     xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure,
+     created, creator)
     VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', 'cmd',
 	    NVL(:last, CHR(0)), NVL(:first, CHR(0)), NVL(:middle, CHR(0)),
 	    :st, NVL(:id, CHR(0)), NVL(:type, CHR(0)), SYSDATE, :who, :prog,
@@ -287,7 +288,8 @@ void newuser(struct entry *e, int secure)
 	    'NONE', SYSDATE, :who, :prog, 
 	    NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), NVL(:dept, CHR(0)),
 	    NVL(:xtitle, CHR(0)), NVL(:xaddress, CHR(0)),
-	    NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure);
+	    NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure,
+	    SYSDATE, :who);
   if (sqlca.sqlcode)
     {
       dbmserr("adding user", sqlca.sqlcode);