have set_krb_mapping return code indicating any Ingres errors

[moira.git] / server / qrtn.qc

diff --git a/server/qrtn.qc b/server/qrtn.qc
index b0c99e0ff8854e08316d5423dfbdf2ac7a2b3247..2044c43c169d62abb51a72c74caaad0c1971e07d 100644 (file)
--- a/server/qrtn.qc
+++ b/server/qrtn.qc
@@ -798,7 +798,7 @@ set_next_object_id(object, table)
  * owns.  Sets the kerberos ID and user ID.
  */
 
-set_krb_mapping(name, login, ok, kid, uid)
+int set_krb_mapping(name, login, ok, kid, uid)
 char *name;
 char *login;
 int ok;
@@ -815,6 +815,7 @@ int *uid;
 ##  repeat retrieve (u_id = krbmap.#users_id, k_id = krbmap.#string_id)
 ##     where krbmap.string_id = strings.string_id and strings.string = @krbname
 ##  inquire_equel (rowcount = "rowcount")
+    if (ingres_errno) return(mr_errcode);
     
     if (rowcount == 1) {
        *kid = -k_id;
@@ -835,6 +836,8 @@ int *uid;
 
     if (*kid == 0)
       *kid = *uid;
+    if (ingres_errno) return(mr_errcode);
+    return(MR_SUCCESS);
 ##}