Index: openacs-4/contrib/packages/research-portlet/tcl/research-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/research-portlet/tcl/Attic/research-portlet-procs.tcl,v diff -u -N --- openacs-4/contrib/packages/research-portlet/tcl/research-portlet-procs.tcl 14 Nov 2003 20:57:08 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,78 +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 research portlet - - @author yon (yon@openforce.net) - @creation-date 2002-07-20 - @version $Id: research-portlet-procs.tcl,v 1.1 2003/11/14 20:57:08 janines Exp $ - -} - -namespace eval research_portlet { - - ad_proc -private get_my_name { - } { - return research_portlet - } - - ad_proc -public get_pretty_name { - } { - return "Research Papers" - } - - ad_proc -private my_package_key { - } { - return "research-portlet" - } - - ad_proc -public link { - } { - return "" - } - - ad_proc -public add_self_to_page { - {-portal_id:required} - } { - return [portal::add_element_parameters \ - -portal_id $portal_id \ - -portlet_name [get_my_name] \ - -pretty_name [get_pretty_name] \ - -key fake_key \ - -value fake_value \ - ] - } - - ad_proc -public remove_self_from_page { - {-portal_id:required} - } { - portal::remove_element \ - -portal_id $portal_id \ - -portlet_name [get_my_name] - } - - ad_proc -public show { - cf - } { - portal::show_proc_helper \ - -package_key [my_package_key] \ - -config_list $cf \ - -template_src "research-portlet" - } - -}