Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/lib/dashboard-master.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/lib/dashboard-master.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/lib/dashboard-overview.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/lib/dashboard-overview.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/dotkul/lib/generic-page.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotkul/lib/Attic/generic-page.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotkul/lib/generic-page.tcl 17 Mar 2004 15:35:30 -0000 1.1.2.1 +++ openacs-4/packages/dotkul/lib/generic-page.tcl 22 Mar 2004 16:03:37 -0000 1.1.2.2 @@ -1,4 +1,3 @@ - set place [parameter::get -parameter PlaceReference] set master [dotkul::get_metadata [string range $place 0 end-1].master] @@ -7,6 +6,9 @@ set url [ad_conn extra_url] if { [empty_string_p $url] } { + # User has specified the place in the URL but not which page-folder in the + # place. We redirect to the default page-folder. For now we just take the + # first one. After redirect we'll come back here. ad_returnredirect [lindex [dotkul::get_metadata $place] 0]/ return } @@ -19,4 +21,3 @@ set page $place$url set title [dotkul::get_metadata $page.title] - Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/www/resources/cnet.css'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul/www/resources/cnet.js'. Fisheye: No comparison available. Pass `N' to diff?