Index: openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl,v
diff -u -N
--- openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl	21 Oct 2003 14:40:32 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,102 +0,0 @@
-#
-#  Copyright (C) 2001, 2002 MIT
-#
-#  This file is part of dotLRN.
-#
-#  dotLRN is free software; you can redistribute it and/or modify it under the
-#  terms of the GNU General Public License as published by the Free Software
-#  Foundation; either version 2 of the License, or (at your option) any later
-#  version.
-#
-#  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
-#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
-#  details.
-#
-
-ad_library {
-
-    Procedures to support the "list" calendar portlet. This is the
-    "wide" calendar with the navigation widget and helpful links. Not
-    to be confused with the (regular, narrow) calendar portlet that is titled
-    "Day Summary" by default.
-
-    @creation-date Oct 26 2001
-    @author arjun@openforce.net
-    @cvs-id $Id: calendar-list-portlet-procs.tcl,v 1.5 2003/10/21 14:40:32 lars Exp $
-}
-
-namespace eval calendar_list_portlet {
-
-    ad_proc -private my_package_key {
-    } {
-        return "calendar-portlet"
-    }
-
-    ad_proc -private get_my_name {
-    } {
-        return "calendar_list_portlet"
-    }
-
-    ad_proc -public get_pretty_name {
-    } {
-        return "\#calendar-portlet.Schedule\#"
-    }
-
-    ad_proc -public link {
-    } {
-	return ""
-    }
-
-    ad_proc -public add_self_to_page {
-	{-portal_id:required}
-        {-page_name ""}
-	{-calendar_id:required}
-        {-scoped_p ""}
-    } {
-	Adds a "list" calendar PE to the given portal
-
-	@param portal_id The page to add self to
-	@param calendar_id The new calendar_id to add
-
-	@return element_id The new element's id
-    } {
-        if {[empty_string_p $scoped_p]} {
-            set scoped_p f
-        }
-
-        portal::add_element_parameters \
-            -portal_id $portal_id \
-            -page_name $page_name \
-            -portlet_name [get_my_name] \
-            -pretty_name [get_pretty_name] \
-            -value $calendar_id \
-            -key calendar_id \
-            -extra_params [list "scoped_p" $scoped_p]
-    }
-
-    ad_proc -public remove_self_from_page {
-	portal_id
-        calendar_id
-    } {
-        Removes a "list" calendar PE from the given page or
-        a calendar_id from its params
-    } {
-        portal::remove_element_parameters \
-            -portal_id $portal_id \
-            -portlet_name [get_my_name] \
-            -key calendar_id \
-            -value $calendar_id
-    }
-
-    ad_proc -public show {
-	 cf
-    } {
-    } {
-        portal::show_proc_helper \
-            -package_key [my_package_key] \
-            -config_list $cf \
-            -template_src "calendar-list-portlet"
-    }
-
-}