Index: openacs-4/packages/static-portlet/www/element-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/Attic/element-new.tcl,v
diff -u -N
--- openacs-4/packages/static-portlet/www/element-new.tcl	29 May 2003 18:05:59 -0000	1.13
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,121 +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_page_contract {
-    create a new static content item
-
-    @author arjun@openforce.net
-    @creation-date 2001-12-03
-    @version $Id: element-new.tcl,v 1.13 2003/05/29 18:05:59 peterm Exp $
-} -query {
-    referer:notnull
-    portal_id:integer,notnull
-    package_id:integer,notnull
-} -properties {
-    title:onevalue
-}
-
-set element_pretty_name [ad_parameter -localize static_admin_portlet_element_pretty_name static-portlet]
-
-set title "[_ static-portlet.New] $element_pretty_name"
-
-#these are set for display and instructions.
-set community_id $package_id
-
-set portal_name [portal::get_name $portal_id]
-
-if {![info exists control_panel_text]} {
-    set control_panel_text "[_ static-portlet.Control_Panel]"
-}
-
-#these are set for display and instructions.
-set community_id $package_id
-
-set portal_name [portal::get_name $portal_id]
-
-if {![info exists control_panel_text]} {
-    set control_panel_text "[_ static-portlet.Control_Panel]"
-}
-
-#these are set for display and instructions.
-set community_id $package_id
-
-set portal_name [portal::get_name $portal_id]
-
-form create new_static_element
-
-element create new_static_element pretty_name \
-    -label "[_ static-portlet.Name]" \
-    -datatype text \
-    -widget text \
-    -html {size 60}
-
-element create new_static_element content \
-    -label "[_ static-portlet.Content]" \
-    -datatype text \
-    -widget textarea \
-    -html {rows 15 cols 80 wrap soft}
-
-element create new_static_element portal_id \
-    -label "portal_id" \
-    -datatype integer \
-    -widget hidden \
-    -value $portal_id
-
-element create new_static_element referer \
-    -label "referer" \
-    -datatype text \
-    -widget hidden \
-    -value $referer
-
-element create new_static_element package_id \
-    -label "package_id" \
-    -datatype text \
-    -widget hidden \
-    -value $package_id
-
-if {[form is_valid new_static_element]} {
-    form get_values new_static_element \
-        pretty_name content portal_id referer package_id
-
-    db_transaction {
-        set item_id [static_portal_content::new \
-                         -package_id $package_id  \
-                         -content $content \
-                         -pretty_name $pretty_name
-        ]
-
-        static_portal_content::add_to_portal \
-            -portal_id $portal_id \
-            -package_id $package_id \
-            -content_id $item_id
-    }
-        
-    # redirect and abort
-    ad_returnredirect $referer
-    ad_script_abort
-}
-
-
-
-
-
-
-
-
-
-
-