Index: openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-delete.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -36,5 +36,5 @@
         where category_id = :category_id
 }
 
-set context_bar [list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
                       {"Delete Category"}]
Index: openacs-4/contrib/obsolete-packages/bboard/www/category-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/category-edit.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-edit.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -37,8 +37,7 @@
         and f.forum_id = c.forum_id
 }
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar	[ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
 	      "Edit a Category"]
 
 ad_return_template category-entry
Index: openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -30,9 +30,8 @@
       where forum_id = :forum_id
 }
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
-              "Create a Category"]
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
+             "Create a Category"]
 
 set category_id [db_nextval acs_object_id_seq]
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/forum-by-category.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum-by-category.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/forum-by-category.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/forum-by-category.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -71,7 +71,7 @@
     set subscribed_p 0
 }
 
-set context_bar [list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
 		      $category_name]
 set title "$forum_name: $category_name"
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/forum-delete.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -14,7 +14,7 @@
 
 set package_id [ad_conn package_id]
 
-set context_bar {}
+set context_bar [ad_context_bar "Delete a forum"]
 set user_id [ad_verify_and_get_user_id]
 
 ad_require_permission $forum_id admin
Index: openacs-4/contrib/obsolete-packages/bboard/www/forum-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/forum-edit.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/forum-edit.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -26,7 +26,7 @@
       where forum_id = :forum_id
 }
 
-set context_bar {"Edit a Forum"}
+set context_bar [ad_context_bar "Edit a Forum"]
 set title "Edit a Forum"
 set action "forum-edit-2"
 set submit_label "Save Changes"
Index: openacs-4/contrib/obsolete-packages/bboard/www/forum-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/forum-new.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/forum-new.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -18,7 +18,7 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-set context_bar {"Create a Forum"}
+set context_bar [ad_context_bar "Create a Forum"]
 set title "Create a Forum"
 set action "forum-new-2"
 set submit_label "Create Forum"
Index: openacs-4/contrib/obsolete-packages/bboard/www/forum.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/forum.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/forum.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/forum.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -59,7 +59,7 @@
     }
 }
 
-set context_bar [list $forum_name]
+set context_bar [ad_context_bar $forum_name]
 set title $forum_name
 
 set package_id [ad_conn package_id]
Index: openacs-4/contrib/obsolete-packages/bboard/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/index.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/index.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -15,7 +15,7 @@
 
 set package_id [ad_conn package_id]
 
-set context_bar {}
+set context_bar [ad_context_bar]
 
 set user_id [ad_verify_and_get_user_id]
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/Attic/master.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/master.adp	12 May 2002 20:57:02 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/master.adp	3 Sep 2002 13:40:41 -0000	1.3
@@ -1,10 +1,12 @@
 <master>
 <property name="title">@title@</property>
+<property name="context_bar">@context_bar@</property>
 <if @focus@ not nil>
   <property name="focus">@focus@</property>
 </if>
 
 <h2>@title@</h2>
-<%= [eval ad_context_bar $context_bar] %>
+@context_bar@
 <hr>
+
 <slave>
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-attach.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-attach.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-attach.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -20,7 +20,7 @@
 ad_require_permission $message_id bboard_write_message
 
 set title "Upload message attachment"
-set context_bar ""
+set context_bar [ad_context_bar "Upload an attachment"]
 
 set file_id [db_nextval acs_object_id_seq]
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-delete.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -44,7 +44,7 @@
       where forum_id = :forum_id
 }
 
-set context_bar [list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
 		      {"Delete Message"}]
 
 ad_return_template
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/message-edit-2.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-edit-2.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -61,8 +61,7 @@
 
 set page_title "Confirm Message Changes in $forum_name"
 
-set context_bar [list \
-        [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
         "Confirm Message Edit"]
 
 set content_for_display [acs_messaging_format_as_html $mime_type $content]
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -57,9 +57,8 @@
 set target "message-edit-2"
 set submit_label "Confirm Changes"
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
-              "Edit a Message"]
+set context_bar	[ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
+             "Edit a Message"]
 
 set user_id [ad_verify_and_get_user_id]
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-mail.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-mail.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-mail.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -38,9 +38,7 @@
 
 set new_message_id [db_nextval acs_object_id_seq]
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
-              "Post"]
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] "Mail message"]
 
 db_0or1row message_info {
     select reply_to, title, sent_date,
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-new-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-new-2.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-new-2.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -57,8 +57,7 @@
 
 set page_title "Confirm Message for Posting in $forum_name"
 
-set context_bar [list \
-	[list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
 	"Post"]
 
 set content_for_display [acs_messaging_format_as_html $mime_type $content]
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/message-new.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-new.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -46,8 +46,7 @@
 set title ""
 set content ""
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
               "Post"]
 
 set user_id [ad_verify_and_get_user_id]
Index: openacs-4/contrib/obsolete-packages/bboard/www/message-threaded.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-threaded.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/bboard/www/message-threaded.tcl	15 Aug 2001 17:09:33 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-threaded.tcl	3 Sep 2002 13:40:41 -0000	1.4
@@ -9,12 +9,12 @@
     message_id:integer,notnull,acs_message_id
     forum_id:integer,notnull,bboard_forum_id
 } -properties {
+    title:onevalue
     context_bar:onevalue
     forum_name:onevalue
     forum_id:onevalue
     message:onerow
     replies:multirow
-    title:onevalue
     subscribed_p:onevalue
 }
 
@@ -43,8 +43,7 @@
       where message_id = :message_id
 }
 
-set context_bar [list [list "forum?[export_url_vars forum_id]" $forum_name] \
-		      "One Message"]
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] "One Message"]
                    
 db_multirow messages messages_and_replies {
   select m.message_id, m.reply_to, m.title, m.sent_date, m.mime_type,
Index: openacs-4/contrib/obsolete-packages/bboard/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/message.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/message.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -49,7 +49,7 @@
       and person_id = sender
 } -column_array message
 
-set context_bar [list [list "forum?[export_url_vars forum_id]" $forum_name] \
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
 		      "One Message"]
                    
 db_multirow replies message_replies {
Index: openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.adp	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.adp	3 Sep 2002 13:40:41 -0000	1.2
@@ -1,8 +1,7 @@
 <master src="master">
-<property name="context_bar">@context_bar@</property>
 <property name="title">@title@</property>
+<property name="context_bar">@context_bar@</property>
 
-
 <if @messages:rowcount@ eq 0>
   <i>There are no messages for this user this forum.</i><p>
 </if>
@@ -13,9 +12,11 @@
 
 <p>
 
+<if @alt_forums:rowcount@ gt 0> 
 Posting History in Other Forums:
 <ul>
  <multiple name="alt_forums">
-  <li><a href="messages-by-user?forum_id=@alt_forums.forum_id@&user_id=@user_id@">@alt_forums.short_name@</a>
+  <li><a href="messages-by-user?forum_id=@alt_forums.forum_id@&user_id=@user_id@">@alt_forums.short_name@</a></li>
  </multiple>
-</ul>
\ No newline at end of file
+</ul>
+</if>
\ No newline at end of file
Index: openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/messages-by-user.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -74,6 +74,6 @@
 
 set title "Posting History for $full_name in $forum_name"
 
-set context_bar [list $forum_name]
+set context_bar [ad_context_bar $forum_name]
  
 ad_return_template
Index: openacs-4/contrib/obsolete-packages/bboard/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/search.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/bboard/www/search.tcl	29 Jun 2001 20:37:18 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/bboard/www/search.tcl	3 Sep 2002 13:40:41 -0000	1.3
@@ -12,14 +12,14 @@
     query:onevalue
     results:multirow
     forum_id:onevalue
-    context_bard:onevalue
+    context_bar:onevalue
     title:onevalue
 }
 
 set user_id [ad_verify_and_get_user_id]
 
 set title "Search Results for \"$query\""
-set context_bar [list "Search"]
+set context_bar [ad_context_bar  "Search"]
 
 set package_id [ad_conn package_id] 
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.adp	29 Jun 2001 20:37:18 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.adp	3 Sep 2002 13:40:41 -0000	1.2
@@ -1,6 +1,6 @@
 <master src="master">
-<property name="context_bar">Subscriptions</property>
-<property name="title">Manage Subscriptions</property>
+<property name="title">@title@</property>
+<property name="context_bar">@context_bar@</property>
 
 You have the follow subscriptions:<br>
 
Index: openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.tcl	29 Jun 2001 20:37:18 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/subscriptions.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -6,6 +6,8 @@
     @cvs-id $Id$
 } {
 } -properties {
+    title:onevalue
+    context_bar:onevalue
     forum_subs:multirow
     category_subs:multirow
     thread_subs:multirow
@@ -15,6 +17,9 @@
 
 set user_id [ad_verify_and_get_user_id]
 
+set title "Manage Subscriptions"
+set context_bar [ad_context_bar $title]
+
 # three sorts of subscriptions:
 #  forums