Index: openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	31 Oct 2003 10:29:19 -0000	1.12
+++ openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	12 Jul 2004 14:49:34 -0000	1.13
@@ -110,7 +110,12 @@
                     acs_sc::impl::delete -contract_name "auth_sync_process" -impl_name "IMS_Enterprise_v_1p1_old"
                 }
             }
-        }
+            5.1.1 5.1.2 {
+                db_transaction {
+		    auth::authentication::quick_sc_update
+		}
+	    }
+	}
 }
 
 #####
@@ -140,6 +145,7 @@
                     username:string
                     password:string
                     parameters:string,multiple
+		    authority_id:integer
                 }
                 output {
                     auth_status:string
@@ -203,6 +209,7 @@
                     old_password:string
                     new_password:string
                     parameters:string,multiple
+		    authority_id:integer
                 }
                 output {
                     password_status:string
@@ -261,6 +268,7 @@
                 input {
                     username:string
                     parameters:string,multiple
+		    authority_id:integer
                 }
                 output {
                     password_status:string
@@ -538,4 +546,29 @@
 }
 
 
+ad_proc -private auth::authentication::quick_sc_update {} {
+    SC update related to add authority_id new input
+} {
 
+    # this is a direct update to the SC tables, we should expect a new
+    # API for handling updates on SC, but since there's no one yet,
+    # we'll do this way now .... (roc)
+
+    set sc_change [list {auth_authentication.Authenticate.InputType} {auth_password.ChangePassword.InputType} {auth_password.ResetPassword.InputType}]
+    set element_msg_type_name integer
+
+    foreach msg_type_name $sc_change {
+	set msg_type_id [db_string get_msg_type_id { select msg_type_id from acs_sc_msg_types where msg_type_name = :msg_type_name }]
+	set element_pos [db_string get_pos { select max(element_pos) from acs_sc_msg_type_elements where msg_type_id = :msg_type_id }]
+	incr element_pos
+
+	acs_sc::msg_type::element::new \
+	    -msg_type_name $msg_type_name \
+	    -element_name authority_id \
+	    -element_msg_type_name $element_msg_type_name \
+	    -element_msg_type_isset_p f \
+	    -element_pos $element_pos
+	
+    }
+
+}
\ No newline at end of file