Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/new-portal/tcl/portal-procs.tcl 5 Oct 2001 02:00:35 -0000 1.18 +++ openacs-4/packages/new-portal/tcl/portal-procs.tcl 5 Oct 2001 19:56:59 -0000 1.19 @@ -258,7 +258,7 @@ ns_return 200 $mime_type "$header_preamble $output" } - return +# return $output } @@ -586,20 +586,7 @@ return $portal_region_immutable_p($region) } -ad_proc -public full_portal_path { } { - The path to the portal package. - @return path to portal package - @creation-date Spetember 2001 -} { return "/web/arjun/openacs-4/packages/new-portal" } - -ad_proc -public portal_path { } { - The path to the portal package from acs root. - - @return path to portal package - @creation-date Spetember 2001 -} { return "/packages/new-portal" } - ad_proc -public exists_p { portal_id } { Check if a portal by that id exists. @@ -628,16 +615,10 @@ } } -ad_proc -public portal_path { } { - The path to the portal package from acs root. - - @return path to portal package - @creation-date Spetember 2001 -} { - return "/packages/new-portal" -} - -ad_proc -public layout_elements { element_list {var_stub "element_ids"} } { +ad_proc -public layout_elements { + element_list + {var_stub "element_ids"} +} { Split a list up into a bunch of variables for inserting into a layout template. This seems pretty kludgy (probably because it is), but a template::multirow isn't really well suited to data of this shape. @@ -659,9 +640,26 @@ } else { set group {} } - } + } + } + +ad_proc -public full_portal_path {} { + Stuff +} { + return "/web/arjun/openacs-4/packages/new-portal" } +ad_proc -public portal_path {} { + Other Stuff +} { + return "/packages/new-portal" +} +ad_proc -public dummy {} { + There's really something wrong with ad_proc +} { + return 1 +} + } # namespace