Index: openacs-4/packages/layout-manager/tcl/pageset-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/pageset-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/layout-manager/tcl/pageset-procs.tcl	3 Dec 2008 09:22:00 -0000	1.3
+++ openacs-4/packages/layout-manager/tcl/pageset-procs.tcl	5 Dec 2008 13:46:39 -0000	1.4
@@ -18,7 +18,6 @@
     {-owner_privileges {read write admin}}
     {-theme default}
     {-package_id ""}
-    {-template_id ""}
 } {
     Create a new page set for the passed in owner_id. create pages passed in
     the page_list.
@@ -51,8 +50,7 @@
             {p_context_id $context_id}
             {p_owner_id $owner_id}
             {p_theme $theme}
-            {p_package_id $package_id}
-            {p_template_id $template_id}}]
+            {p_package_id $package_id}}]
 
         set pageset_id [package_instantiate_object -var_list $var_list layout_pageset]
 
@@ -240,7 +238,6 @@
     @return The pageset_id of the master page set template.
 
 } {
-
     if { ![info exists package_id] } {
         set package_id [ad_conn package_id]
     }
@@ -252,7 +249,20 @@
     }
 }
 
+ad_proc layout::pageset::is_master_template_p {
+    -pageset_id:required
+    -package_id
+} {
+    @return True if the given pageset_id is the master template for the given package_id.
+} {
+   if { ![info exists package_id] } {
+       set package_id [ad_conn package_id]
+    }
 
+    return [expr { $pageset_id ==
+                   [layout::pageset::get_master_template_id -package_id $package_id] }]
+}
+
 ad_proc -public layout::pageset::get_page_count {
     -pageset_id:required
 } {