From: Barry Jaspan <bjaspan@mit.edu>
Date: Fri, 1 Nov 1996 18:26:30 +0000 (+0000)
Subject: 	* tcl_kadm5.c (unparse_err): update for new tl_data semantics
X-Git-Tag: krb5-1.0-freeze1~148
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=cfb3cdaf26edcf91bedafdf1663ccb8602005a1a;p=krb5.git

	* tcl_kadm5.c (unparse_err): update for new tl_data semantics
 	[krb5-admin/140]

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9274 dc483132-0cff-0310-8789-dd5450dbe970
---

diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog
index 50414d6dc..1682ef750 100644
--- a/src/kadmin/testing/util/ChangeLog
+++ b/src/kadmin/testing/util/ChangeLog
@@ -1,3 +1,8 @@
+Fri Nov  1 13:16:43 1996  Barry Jaspan  <bjaspan@mit.edu>
+
+	* tcl_kadm5.c (unparse_err): update for new tl_data semantics
+ 	[krb5-admin/140]
+
 Mon Oct 21 16:31:35 1996  Barry Jaspan  <bjaspan@mit.edu>
 
 	* tcl_kadm5.c: add unparse ability for V2 principal fields
diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c
index cad3a93ad..533b3b7fb 100644
--- a/src/kadmin/testing/util/tcl_kadm5.c
+++ b/src/kadmin/testing/util/tcl_kadm5.c
@@ -345,6 +345,7 @@ static Tcl_DString *unparse_err(kadm5_ret_t code)
      case KADM5_AUTH_CHANGEPW:
 	  code_string = "KADM5_AUTH_CHANGEPW"; break;
      case KADM5_GSS_ERROR: code_string = "KADM5_GSS_ERROR"; break;
+     case KADM5_BAD_TL_TYPE: code_string = "KADM5_BAD_TL_TYPE"; break; 
      case OSA_ADB_DUP: code_string = "OSA_ADB_DUP"; break;
      case OSA_ADB_NOENT: code_string = "ENOENT"; break;
      case OSA_ADB_DBINIT: code_string = "OSA_ADB_DBINIT"; break;
@@ -475,6 +476,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data)
      }
 
      Tcl_DStringInit(str);
+     Tcl_DStringStartSublist(str);
      for (; tl_data; tl_data = tl_data->tl_data_next) {
 	  Tcl_DStringStartSublist(str);
 	  sprintf(buf, "%d", tl_data->tl_data_type);
@@ -484,6 +486,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data)
 	  Tcl_DStringAppendElement(str, tl_data->tl_data_contents);
 	  Tcl_DStringEndSublist(str);
      }
+     Tcl_DStringEndSublist(str);
      
      return str;
 }