Index: openacs-4/contrib/packages/portal/lib/layouts/simple.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/lib/layouts/simple.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/portal/lib/layouts/simple.adp 22 Mar 2004 17:33:33 -0000 1.1 @@ -0,0 +1,36 @@ +<% + + # + # Copyright (C) 2001, 2002 MIT + # + # This file is part of dotLRN. + # + # dotLRN is free software; you can redistribute it and/or modify it under the + # terms of the GNU General Public License as published by the Free Software + # Foundation; either version 2 of the License, or (at your option) any later + # version. + # + # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY + # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS + # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more + # details. + # + +%> + + + + + + + + +
+ + +
+ + +
Index: openacs-4/contrib/packages/portal/lib/layouts/simple.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/lib/layouts/simple.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/portal/lib/layouts/simple.tcl 22 Mar 2004 17:33:33 -0000 1.1 @@ -0,0 +1,50 @@ +# +# Copyright (C) 2001, 2002 MIT +# +# This file is part of dotLRN. +# +# dotLRN is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. +# + +ad_page_contract { + + This template handles all even-width decorated column layouts. + + @version $Id: simple.tcl,v 1.1 2004/03/22 17:33:33 donb Exp $ + +} -properties { + element_list:onevalue + element_src:onevalue +} + +set region_count [portal::layout::get_region_count -layout_id $page(layout_id)] +set region_width [expr { 100 / $region_count }]% + +template::multirow create elements region element_id_list + +# The page(element_list) array only contains data for elements actually placed on +# the page. We must pad with empty regions to the left and right of the actual elements +# if each one doesn't have at least on element placed within it. + +set element_region_count 0 +foreach {region element_id_list} $page(element_list) { + incr element_region_count + for { set i $element_region_count } { $i < $region } { incr i } { + template::multirow append elements $i {} + } + template::multirow append elements $region $element_id_list +} + +for {set i $element_region_count} { $i < $region_count} { incr i } { + template::multirow append elements $i {} +} + +ad_return_template Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple1.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple1.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple2.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple2.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple3.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/contrib/packages/portal/lib/layouts/simple3.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/contrib/packages/portal/lib/themes/standard-theme.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/lib/themes/standard-theme.adp,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/portal/lib/themes/standard-theme.adp 14 Mar 2004 01:16:31 -0000 1.1 +++ openacs-4/contrib/packages/portal/lib/themes/standard-theme.adp 22 Mar 2004 17:33:40 -0000 1.2 @@ -19,7 +19,8 @@ %> - +
+

@name@

@@ -52,3 +53,4 @@
+ Index: openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl 21 Mar 2004 02:39:57 -0000 1.9 +++ openacs-4/contrib/packages/portal/tcl/apm-callback-procs.tcl 22 Mar 2004 17:33:41 -0000 1.10 @@ -28,7 +28,7 @@ set var_list { {name 1_column} {description "One column"} - {filename /packages/portal/lib/layouts/simple1} + {filename /packages/portal/lib/layouts/simple} } set layout_id [package_instantiate_object -var_list $var_list portal_layout] @@ -40,7 +40,7 @@ set var_list { {name 2_column} {description "Two columns"} - {filename /packages/portal/lib/layouts/simple2} + {filename /packages/portal/lib/layouts/simple} } set layout_id [package_instantiate_object -var_list $var_list portal_layout] @@ -57,7 +57,7 @@ set var_list { {name 3_column} {description "Three columns"} - {filename /packages/portal/lib/layouts/simple3} + {filename /packages/portal/lib/layouts/simple} } set layout_id [package_instantiate_object -var_list $var_list portal_layout]