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.60 -r1.61 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 13 May 2002 06:00:06 -0000 1.60 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 13 May 2002 21:31:21 -0000 1.61 @@ -56,24 +56,6 @@ return "dotLRN File Storage Applet" } - ad_proc -public get_user_default_page {} { - return the user default page to add the portlet to - } { - return "My Files" - } - - ad_proc -public get_community_default_page {} { - return the user default page to add the portlet to - } { - return "File Storage" - } - - ad_proc -public get_subcomm_default_page {} { - return the user default page to add the portlet to - } { - return "Files" - } - ad_proc -public add_applet { } { Used for one-time init - must be repeatable! @@ -113,8 +95,6 @@ } ad_proc -public remove_applet { - community_id - package_id } { remove the applet from dotlrn } { @@ -464,6 +444,28 @@ ad_return_complaint 1 "Please notifiy the administrator of this error: ** Error in [get_pretty_name]: 'clone' not implemented!" } + # + # misc helper procs + # + + ad_proc -public get_user_default_page {} { + return the user default page to add the portlet to + } { + return "My Files" + } + + ad_proc -public get_community_default_page {} { + return the user default page to add the portlet to + } { + return "File Storage" + } + + ad_proc -public get_subcomm_default_page {} { + return the user default page to add the portlet to + } { + return "Files" + } + ad_proc -public get_package_id { } { returns the package_id of the dotlrn-fs package