Index: openacs-4/packages/dotlrn-photo-album/dotlrn-photo-album.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-photo-album/dotlrn-photo-album.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-photo-album/dotlrn-photo-album.info 15 Oct 2003 08:26:27 -0000 1.1 @@ -0,0 +1,27 @@ + + + + + dotLRN Photo Album Applet + dotLRN Photo Album Applets + f + t + + + Jeff Davis + Xarg + + + + + + + + + + + + + + + Index: openacs-4/packages/dotlrn-photo-album/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-photo-album/tcl/apm-callback-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-photo-album/tcl/apm-callback-procs.tcl 15 Oct 2003 08:26:27 -0000 1.1 @@ -0,0 +1,55 @@ +ad_library { + Procedures for registering implementations for the + dotlrn photo album package. + + @author Jeff Davis (davis@xarg.net) +} + +namespace eval dotlrn_photo_album {} + +ad_proc -private dotlrn_photo_album::install {} { + dotLRN Photo_Album package install proc +} { + register_portal_datasource_impl +} + +ad_proc -private dotlrn_photo_album::uninstall {} { + dotLRN Photo_Album package uninstall proc +} { + unregister_portal_datasource_impl +} + +ad_proc -private dotlrn_photo_album::register_portal_datasource_impl {} { + Register the service contract implementation for the dotlrn_applet service contract +} { + set spec { + name "dotlrn_photo_album" + contract_name "dotlrn_applet" + owner "dotlrn-photo-album" + aliases { + GetPrettyName dotlrn_photo_album::get_pretty_name + AddApplet dotlrn_photo_album::add_applet + RemoveApplet dotlrn_photo_album::remove_applet + AddAppletToCommunity dotlrn_photo_album::add_applet_to_community + RemoveAppletFromCommunity dotlrn_photo_album::remove_applet_from_community + AddUser dotlrn_photo_album::add_user + RemoveUser dotlrn_photo_album::remove_user + AddUserToCommunity dotlrn_photo_album::add_user_to_community + RemoveUserFromCommunity dotlrn_photo_album::remove_user_from_community + AddPortlet dotlrn_photo_album::add_portlet + RemovePortlet dotlrn_photo_album::remove_portlet + Clone dotlrn_photo_album::clone + ChangeEventHandler dotlrn_photo_album::change_event_handler + } + } + + acs_sc::impl::new_from_spec -spec $spec +} + +ad_proc -private dotlrn_photo_album::unregister_portal_datasource_impl {} { + Unregister service contract implementations +} { + acs_sc::impl::delete \ + -contract_name "dotlrn_applet" \ + -impl_name "dotlrn_photo_album" +} Index: openacs-4/packages/dotlrn-photo-album/tcl/dotlrn-photo-album-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-photo-album/tcl/dotlrn-photo-album-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-photo-album/tcl/dotlrn-photo-album-procs.tcl 15 Oct 2003 08:26:28 -0000 1.1 @@ -0,0 +1,200 @@ +ad_library { + + Procs to set up the dotLRN photo_album applet + + @author simon@collaboraid.biz +} + +namespace eval dotlrn_photo_album {} + +ad_proc -public dotlrn_photo_album::applet_key {} { + What's my applet key? +} { + return dotlrn_photo_album +} + +ad_proc -public dotlrn_photo_album::package_key {} { + What package do I deal with? +} { + return "photo-album" +} + +ad_proc -public dotlrn_photo_album::my_package_key {} { + What package do I deal with? +} { + return "dotlrn-photo-album" +} + +ad_proc -public dotlrn_photo_album::get_pretty_name {} { + returns the pretty name +} { + return "Photo Album" +} + +ad_proc -public dotlrn_photo_album::add_applet {} { + One time init - must be repeatable! +} { + ns_log Notice "JCD: adding applet dlrn-pa" + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key] +} + +ad_proc -public dotlrn_photo_album::remove_applet {} { + One time destroy. +} { + dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] +} + +ad_proc -public dotlrn_photo_album::add_applet_to_community { + community_id +} { + Add the photo_album applet to a specifc dotlrn community +} { + set portal_id [dotlrn_community::get_portal_id -community_id $community_id] + + # create the photo_album package instance (all in one, I've mounted it) + set package_id [dotlrn::instantiate_and_mount $community_id [package_key]] + + # set up the admin portal + set admin_portal_id [dotlrn_community::get_admin_portal_id \ + -community_id $community_id + ] + + photo_album_admin_portlet::add_self_to_page \ + -portal_id $admin_portal_id \ + -package_id $package_id + + set args [ns_set create] + ns_set put $args package_id $package_id + add_portlet_helper $portal_id $args + + # LARS + add_portlet_helper [dotlrn_community::get_non_member_portal_id -community_id $community_id] $args + + return $package_id +} + +ad_proc -public dotlrn_photo_album::remove_applet_from_community { + community_id +} { + remove the applet from the community +} { + ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!" +} + +ad_proc -public dotlrn_photo_album::add_user { + user_id +} { + one time user-specifuc init +} { + # noop +} + +ad_proc -public dotlrn_photo_album::remove_user { + user_id +} { +} { + ad_return_complaint 1 "[applet_key] remove_user not implimented!" +} + +ad_proc -public dotlrn_photo_album::add_user_to_community { + community_id + user_id +} { + Add a user to a specifc dotlrn community +} { + set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]] + set portal_id [dotlrn::get_portal_id -user_id $user_id] + + # use "append" here since we want to aggregate + set args [ns_set create] + ns_set put $args package_id $package_id + ns_set put $args param_action append + add_portlet_helper $portal_id $args +} + +ad_proc -public dotlrn_photo_album::remove_user_from_community { + community_id + user_id +} { + Remove a user from a community +} { + set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]] + set portal_id [dotlrn::get_portal_id -user_id $user_id] + + set args [ns_set create] + ns_set put $args package_id $package_id + + remove_portlet $portal_id $args +} + +ad_proc -public dotlrn_photo_album::add_portlet { + portal_id +} { + A helper proc to add the underlying portlet to the given portal. + + @param portal_id +} { + # simple, no type specific stuff, just set some dummy values + + set args [ns_set create] + ns_set put $args package_id 0 + ns_set put $args param_action overwrite + add_portlet_helper $portal_id $args +} + +ad_proc -public dotlrn_photo_album::add_portlet_helper { + portal_id + args +} { + A helper proc to add the underlying portlet to the given portal. + + @param portal_id + @param args an ns_set +} { + photo_album_portlet::add_self_to_page \ + -portal_id $portal_id \ + -package_id [ns_set get $args package_id] \ + -param_action [ns_set get $args param_action] +} + +ad_proc -public dotlrn_photo_album::remove_portlet { + portal_id + args +} { + A helper proc to remove the underlying portlet from the given portal. + + @param portal_id + @param args A list of key-value pairs (possibly user_id, community_id, and more) +} { + photo_album_portlet::remove_self_from_page \ + -portal_id $portal_id \ + -package_id [ns_set get $args package_id] +} + +ad_proc -public dotlrn_photo_album::clone { + old_community_id + new_community_id +} { + Clone this applet's content from the old community to the new one +} { + ns_log notice "Cloning: [applet_key]" + set new_package_id [add_applet_to_community $new_community_id] + set old_package_id [dotlrn_community::get_applet_package_id \ + -community_id $old_community_id \ + -applet_key [applet_key] + ] + + db_exec_plsql call_photo_album_clone {} + return $new_package_id +} + +ad_proc -public dotlrn_photo_album::change_event_handler { + community_id + event + old_value + new_value +} { + listens for the following events: +} { +} +