Index: openacs-4/packages/press/www/admin/item-create-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/press/www/admin/item-create-3.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/press/www/admin/item-create-3.tcl 12 Feb 2019 18:00:04 -0000 1.5 +++ openacs-4/packages/press/www/admin/item-create-3.tcl 12 Feb 2019 18:45:14 -0000 1.6 @@ -9,7 +9,7 @@ @author stefan@arsdigita.com @creation-date 2000-11-14 @cvs-id $Id$ - + } { publication_name:notnull {publication_link: ""} @@ -36,13 +36,13 @@ set title "Confirm Sumbission" set context [list $title] -# with press_admin privileges, expect a release and archive date +# with press_admin privileges, expect a release and archive date set press_admin_p [ad_permission_p $package_id press_admin] if { $press_admin_p == 1 && $permanent_p == "t"} { set archive_date "" -} +} # Parent root folder where press_items live @@ -63,7 +63,7 @@ set creation_ip [ad_conn "peeraddr"] set creation_user [ad_conn "user_id"] -# get approval info only if the administrator +# get approval info only if the administrator # is creating and approving the press item in one step if { [ad_permission_p $package_id press_admin] } { @@ -87,7 +87,7 @@ } # reserve empty clob for future -# this will need to be filled in when the news module +# this will need to be filled in when the news module # extends this press module set txt "" @@ -105,11 +105,8 @@ } - - - - - - - - +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: