Index: openacs-4/packages/acs-core-docs/www/xml/developers-guide/i18n.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/developers-guide/i18n.xml,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-core-docs/www/xml/developers-guide/i18n.xml	22 Mar 2004 10:50:45 -0000	1.14
+++ openacs-4/packages/acs-core-docs/www/xml/developers-guide/i18n.xml	22 Mar 2004 12:04:12 -0000	1.15
@@ -557,48 +557,22 @@
           <title>Replace human-readable text in TCL files with temporary tags</title>
           <para>Examine all of the tcl files in the packages for human-readable text and replace it with temporary tags.  The temporary tags in TCL are slightly different from those in ADP.  If the first character in the temporary tag is an underscore (<computeroutput>_</computeroutput>), then the message keys will be auto-generated from the original message text.  Here is an unmodified tcl file:</para>
         </formalpara>
-        <programlisting>ad_page_contract {
-    List of messages for a case
-} {
-    case_id:integer
-    role_id:integer
-}
-
-set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]
-set simulation_name [simulation::template::get_element -workflow_id $workflow_id -element pretty_name]
-workflow::role::get -role_id $role_id -array role_array
-simulation::case::get -case_id $case_id -array case_array
-
-set title "Messages for $role_array(pretty_name) in $case_array(label)"
-set context [list [list . "SimPlay"] [list [export_vars -base case-admin { case_id }] 
-             "Administer $case_array(label)"] "Messages for $role_array(pretty_name)"]
-
-set user_id [ad_conn user_id]</programlisting>
+<programlisting>
+set title "Messages for $a(name) in $b(label)"
+set context [list [list . "SimPlay"] \
+                  [list [export_vars -base case-admin { case_id }] \ 
+                    "Administer $a(name)"] \
+                  "Messages for $a(name)"]
+</programlisting>
 <para>... and here is the same file after temporary message tags have been manually added:</para>
 
-<programlisting>ad_page_contract {
-    List of messages for a case
-} {
-    case_id:integer
-    role_id:integer
-}
-
-set workflow_id [simulation::case::get_element -case_id $case_id -element
-workflow_id]
-set simulation_name [simulation::template::get_element -workflow_id
-$workflow_id -element pretty_name]
-workflow::role::get -role_id $role_id -array role_array
-simulation::case::get -case_id $case_id -array case_array
-
-# Variables used by I18N messages (array variables not currently
-supported)
-set role_pretty_name $role_array(pretty_name)
-set case_pretty_name $case_array(label)
-set title &lt;#case_admin_page_title Messages for %role_pretty_name% in
-%case_pretty_name%#&gt;
-set context [list [list . &lt;#_ SimPlay#&gt;] [list [export_vars -base
-case-admin { case_id }] &lt;#_ Administer %case_pretty_name%#&gt;] &lt;#_ Messages
-for %role_pretty_name%#&gt;]</programlisting>
+<programlisting>
+set title &lt;#admin_title Messages for %a.name% in %b.label%#&gt;
+set context [list [list . &lt;#_ SimPlay#&gt;] \
+                  [list [export_vars -base case-admin { case_id }] \
+                    &lt;#_ Administer %a.name%#&gt;] \
+                  &lt;#_ Messages for %a.name%#&gt;]
+</programlisting>
         <para>Note that the message key <computeroutput>case_admin_page_title</computeroutput> was manually selected, because an autogenerated key for this text, with its substitute variables, would have been very confusing
 </para>
       </listitem>
@@ -607,30 +581,13 @@
           <title>Replace the temporary message tags in TCL files</title>
           <para>Repeat step 2 for tcl files.  Here is the example TCL file after conversion:</para>
         </formalpara>
-        <programlisting>ad_page_contract {
-    List of messages for a case
-} {
-    case_id:integer
-    role_id:integer
-}
-
-set workflow_id [simulation::case::get_element -case_id $case_id -element
-workflow_id]
-set simulation_name [simulation::template::get_element -workflow_id
-$workflow_id -element pretty_name]
-workflow::role::get -role_id $role_id -array role_array
-simulation::case::get -case_id $case_id -array case_array
-
-# Variables used by I18N messages (array variables not currently
-supported)
-set role_pretty_name $role_array(pretty_name)
-set case_pretty_name $case_array(label)
-set title [_ simulation.case_admin_page_title]
-set context [list [list . [_ simulation.SimPlay]] [list [export_vars
--base case-admin { case_id }] [_ simulation.lt_Administer_case_prett]] [_
-simulation.lt_Messages_for_role_pre]]
-
-set user_id [ad_conn user_id]</programlisting>
+        <programlisting>
+set title [_ simulation.admin_title]
+set context [list [list . [_ simulation.SimPlay]] \
+                  [list [export_vars -base case-admin { case_id }] \
+                    [_ simulation.lt_Administer_name_gt]] \
+                  [_ simulation.lt_Messages_for_role_pre]]
+</programlisting>
       </listitem>
       <listitem>
         <formalpara>