/*
$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");