Index: openacs-4/packages/dotlrn/www/admin/applet-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/applet-remove.tcl,v diff -u -N --- openacs-4/packages/dotlrn/www/admin/applet-remove.tcl 10 Nov 2001 02:33:38 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,22 +0,0 @@ - -ad_page_contract { - Add an applet to a community - - @author Ben Adida (ben@openforce.net) - @creation-date 2001-10-08 -} { - community_id - applet_key -} - -# Check access -if {![dotlrn_community::admin_access_p $community_id]} { - ns_returnredirect / - return -} - -# Add the applet -dotlrn_community::remove_applet $community_id $applet_key - -# Get back to where you once belonged -ns_returnredirect community-applets?community_id=$community_id