Index: openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl,v diff -u -r1.21 -r1.22 --- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl 1 Nov 2001 21:02:26 -0000 1.21 +++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl 1 Nov 2001 23:11:32 -0000 1.22 @@ -152,8 +152,21 @@ @creation-date Nov 2001 } { portal::make_datasource_available \ - $page_id [get_datasource_id [my_name]] + $page_id [portal::get_datasource_id [my_name]] } + + ad_proc -public make_self_unavailable { + page_id + } { + Wrapper for the portal:: proc + + @param page_id + @author arjun@openforce.net + @creation-date Nov 2001 + } { + portal::make_datasource_unavailable \ + $page_id [portal::get_datasource_id [my_name]] + } } Index: openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl 1 Nov 2001 21:04:20 -0000 1.6 +++ openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl 1 Nov 2001 23:11:51 -0000 1.7 @@ -232,8 +232,21 @@ @creation-date Nov 2001 } { portal::make_datasource_available \ - $page_id [get_datasource_id [my_name]] + $page_id [portal::get_datasource_id [my_name]] } + + ad_proc -public make_self_unavailable { + page_id + } { + Wrapper for the portal:: proc + + @param page_id + @author arjun@openforce.net + @creation-date Nov 2001 + } { + portal::make_datasource_unavailable \ + $page_id [portal::get_datasource_id [my_name]] + } } Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 9 Oct 2001 15:49:10 -0000 1.3 +++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 1 Nov 2001 23:12:46 -0000 1.4 @@ -89,6 +89,9 @@ # Allow user to see the bboard forums # nothing for now + # Make bboard DS available to this page + bboard_portlet::make_self_available $page_id + # Call the portal element to be added correctly bboard_portlet::add_self_to_page $page_id $package_id } @@ -108,6 +111,9 @@ # Remove the portal element bboard_portlet::remove_self_from_page $page_id $package_id + # Buh Bye. + bboard_portlet::make_self_unavailable $page_id + # remove user permissions to see bboards # nothing to do here } Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl 26 Oct 2001 17:26:52 -0000 1.2 +++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl 1 Nov 2001 23:12:53 -0000 1.3 @@ -102,6 +102,9 @@ # Allow user to see the public calendar XXX + # Make calenadar DS available to this page + calendar_portlet::make_self_available $page_id + # Call the portal element to be added correctly calendar_portlet::add_self_to_page $page_id $calendar_id } @@ -121,6 +124,9 @@ # Remove the portal element calendar_portlet::remove_self_from_page $page_id $package_id + # Buh Bye. + calendar_portlet::make_self_unavailable $page_id + # remove user permissions to see calendar folders # nothing to do here } Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 9 Oct 2001 03:39:40 -0000 1.2 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 1 Nov 2001 23:13:03 -0000 1.3 @@ -90,6 +90,9 @@ # Allow user to see the dotlrn forums # nothing for now + # Make dotlrn DS available to this page + dotlrn_portlet::make_self_available $page_id + # Call the portal element to be added correctly dotlrn_portlet::add_self_to_page $page_id $community_id } @@ -109,6 +112,9 @@ # Remove the portal element dotlrn_portlet::remove_self_from_page $page_id $community_id + # Buh Bye. + dotlrn_portlet::make_self_unavailable $page_id + # remove user permissions to see dotlrns # nothing to do here } Index: openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 17 Oct 2001 18:48:22 -0000 1.3 +++ openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 1 Nov 2001 23:13:30 -0000 1.4 @@ -86,6 +86,9 @@ # Allow user to see the faq forums # nothing for now + # Make faq DS available to this page + faq_portlet::make_self_available $page_id + # Call the portal element to be added correctly faq_portlet::add_self_to_page $page_id $package_id } @@ -105,6 +108,9 @@ # Remove the portal element faq_portlet::remove_self_from_page $page_id $package_id + # Buh Bye. + faq_portlet::make_self_unavailable $page_id + # remove user permissions to see faqs # nothing to do here } Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 17 Oct 2001 19:53:25 -0000 1.4 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 1 Nov 2001 23:13:37 -0000 1.5 @@ -96,6 +96,10 @@ # fs portlet needs folder_id too set folder_id [fs_get_root_folder -package_id $package_id] + + # Make fs DS available to this page + fs_portlet::make_self_available $page_id + fs_portlet::add_self_to_page $page_id $package_id $folder_id } @@ -114,6 +118,9 @@ # Remove the portal element fs_portlet::remove_self_from_page $page_id $package_id + # Buh Bye. + fs_portlet::make_self_unavailable $page_id + # remove user permissions to see fs folders # nothing to do here } Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl 1 Nov 2001 21:06:31 -0000 1.7 +++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl 1 Nov 2001 23:12:05 -0000 1.8 @@ -111,9 +111,21 @@ @creation-date Nov 2001 } { portal::make_datasource_available \ - $page_id [get_datasource_id [my_name]] + $page_id [portal::get_datasource_id [my_name]] } + ad_proc -public make_self_unavailable { + page_id + } { + Wrapper for the portal:: proc + + @param page_id + @author arjun@openforce.net + @creation-date Nov 2001 + } { + portal::make_datasource_unavailable \ + $page_id [portal::get_datasource_id [my_name]] + } } Index: openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl 1 Nov 2001 21:05:08 -0000 1.8 +++ openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl 1 Nov 2001 23:12:20 -0000 1.9 @@ -131,9 +131,25 @@ @creation-date Nov 2001 } { portal::make_datasource_available \ - $page_id [get_datasource_id [my_name]] + $page_id [portal::get_datasource_id [my_name]] } + + ad_proc -public make_self_unavailable { + page_id + } { + Wrapper for the portal:: proc + + @param page_id + @author arjun@openforce.net + @creation-date Nov 2001 + } { + portal::make_datasource_unavailable \ + $page_id [portal::get_datasource_id [my_name]] + } + } + + Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl 1 Nov 2001 21:05:47 -0000 1.9 +++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl 1 Nov 2001 23:12:31 -0000 1.10 @@ -167,8 +167,21 @@ @creation-date Nov 2001 } { portal::make_datasource_available \ - $page_id [get_datasource_id [my_name]] + $page_id [portal::get_datasource_id [my_name]] } + + ad_proc -public make_self_unavailable { + page_id + } { + Wrapper for the portal:: proc + + @param page_id + @author arjun@openforce.net + @creation-date Nov 2001 + } { + portal::make_datasource_unavailable \ + $page_id [portal::get_datasource_id [my_name]] + } }