Index: openacs-4/packages/news/www/image-choose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/Attic/image-choose.tcl,v
diff -u -N
--- openacs-4/packages/news/www/image-choose.tcl	15 May 2007 20:14:50 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,80 +0,0 @@
-ad_page_contract {
-    Allows the content creator to upload an image to be attached to the
-    news item. All parameters are passed in so that we can link back to
-    the preview page with all fields still in tact.
-
-    @author Tom Ayles (tom@beatniq.net)
-    @creation-date 2004-01-12
-    @cvs-id $Id: image-choose.tcl,v 1.2 2007/05/15 20:14:50 donb Exp $
-} {
-    action
-    publish_title
-    publish_lead
-    publish_body:allhtml
-    revision_log:optional
-    html_p
-    publish_date_ansi
-    archive_date_ansi
-    permanent_p
-    upload.tmpfile:optional,tmpfile
-    item_id:optional
-}
-
-# make sure only authorised users can upload images
-permission::require_permission \
-    -object_id [ad_conn package_id] -privilege news_create
-
-
-set vars {action publish_title publish_lead publish_body html_p
-    publish_date_ansi archive_date_ansi permanent_p}
-
-if {[info exists item_id]} { lappend vars item_id revision_log }
-
-set button [list [list [list [_ news.Upload] ok]]]
-
-form create img -html {enctype multipart/form-data} \
-    -edit_buttons $button
-
-foreach var $vars {
-    element create img $var -datatype string -widget hidden -optional
-}
-
-element create img upload \
-    -datatype file \
-    -widget file \
-    -label {#news.File#} \
-    -html [list accept [parameter::get -parameter ImageUploadTypes]] \
-    -validate [list img_type \
-                   {test_file_type [ns_queryget upload.tmpfile]} \
-                   "[_ news.Image_must_be_one_of_the_following_types] [parameter::get -parameter ImageUploadTypes]"]
-
-# clear the upload file value on every request, as it otherwise it displays
-# filename, tmppath, mime type which isn't at all useful
-element set_value img upload {}
-
-if { [form is_request img] } {
-    foreach var $vars { element set_value img $var [set $var] }
-    if { [info exists item_id] } {
-        set image_id [news_get_image_id $item_id]
-        if { ![empty_string_p $image_id] } { set image_url "image/$image_id" }
-    }
-}
-
-if { [form is_valid img] } {
-    form get_values img upload
-    set srcfile [ns_queryget upload.tmpfile]
-    set imgfile [ImageMagick::tmp_file]
-    ImageMagick::convert \
-        -geometry [parameter::get -parameter ImageGeometry] \
-        -output_format [parameter::get -parameter ImageFormat] \
-        $srcfile $imgfile
-    element set_value img upload {}
-    set imgfile [ImageMagick::shorten_tmp_file $imgfile]
-    set image_url "image-view-tmpfile/$imgfile"
-    set form_vars [eval "export_form_vars [join $vars] imgfile"]
-    set mode preview
-} else {
-    set mode form
-}
-
-ad_return_template