/* $Log: do_add_user.html,v $ Revision 1.14 1996/08/21 17:53:49 kimberly rename index.html to index.html; break long lines; add comments Revision 1.13 1996/08/09 02:04:46 kimberly change version number Revision 1.12 1996/08/08 21:32:27 kimberly save db error in client Revision 1.11 1996/08/06 17:02:02 kimberly add code to deal with saving a change when someone else has already used that name Revision 1.10 1996/08/05 21:42:35 kimberly add parameter when redirecting to initial.html because of an error to prevent loading frames again Revision 1.9 1996/08/02 02:19:46 kimberly changes for flattened directory s structure Revision 1.8 1996/08/01 19:01:39 kimberly add status line info after add, edit, or delete Revision 1.7 1996/08/01 18:03:36 kimberly add checks to deal with database errors Revision 1.6 1996/07/31 22:01:16 kimberly prevent blank screen from user typing in URL when on correct prevPage Revision 1.5 1996/07/25 16:26:52 kimberly remove absolute paths Revision 1.4 1996/07/23 21:07:07 kimberly remove bill rate Revision 1.3 1996/07/23 18:54:57 kimberly Change hours_ims to tock_ims Revision 1.2 1996/07/23 18:52:59 kimberly Add Log tag */ after comments if (request.prevPage) client.prevPage = request.prevPage; checkPrevPage("do_add_user.html"); if (lookupAdminStatus(client.id) != "Y") redirect("initial.html?err=1"); fullname = request.firstname+" "+request.lastname; project.lock(); query = database.cursor("select login from user where login='"+escQuote(request.login)+"'"); if (query.next()) { query.close(); project.unlock(); redirect("add_user.html?msg=name_in_use"); } query.close(); database.execute("insert into user (login,password,firstname,lastname,"+ "fullname,title,phone,email,active,status,admin,def_project,"+ "def_category) values ('"+request.login+"','"+request.password+ "','"+escQuote(request.firstname)+"','"+escQuote(request.lastname)+ "','"+escQuote(fullname)+"','"+escQuote(request.title)+"','"+ request.phone+"','"+request.email+"','"+request.active+"','"+ request.status+"','"+request.admin+"',"+request.def_project+","+ request.def_category+")"); if (database.majorErrorCode() != 0) { client.db_err = database.majorErrorMessage(); redirect("db_down.html"); } cursor = database.cursor("select dbinfo(\"sqlca.sqlerrd1\") from "+ "systables where tabid=1"); if (cursor.next()) user_id = cursor[0]; else { client.db_err = database.majorErrorMessage(); redirect("db_down.html"); } cursor.close(); project.unlock(); if (request.group) { database.execute("insert into group_people (user_id,group_id) values ("+ user_id+","+request.group+")"); if (database.majorErrorCode() != 0) { client.db_err = database.majorErrorMessage(); redirect("db_down.html"); } } if (request.active_projects) { var numSelections = getOptionValueCount("active_projects"); for (var i = 0; i < numSelections; i++) database.execute("insert into user_projects (user_id,project_id)"+ " values ("+user_id+","+getOptionValue("active_projects",i)+")"); if (database.majorErrorCode() != 0) { client.db_err = database.majorErrorMessage(); redirect("db_down.html"); } } project.emp_list = null; loadEmployees(); client.status_msg = "User "+fullname+" added."; redirect("admin.html");