Index: openacs-4/packages/news/tcl/news-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-oracle.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/news/tcl/news-procs-oracle.xql	5 Apr 2005 15:21:25 -0000	1.6
+++ openacs-4/packages/news/tcl/news-procs-oracle.xql	30 Dec 2009 23:13:36 -0000	1.7
@@ -74,15 +74,4 @@
         </querytext>
 </fullquery>
  
-<fullquery name="news_revision_set_image_id.set_image_rel">
-        <querytext>
-        begin
-            :1 := acs_rel.new(rel_type => 'relationship',
-                        object_id_one => :revision_id,
-                        object_id_two => :image_id,
-                        creation_user => :creation_user,
-                        creation_ip => :peeraddr);
-        end;
-        </querytext>
-</fullquery>
-</queryset>
\ No newline at end of file
+</queryset>
Index: openacs-4/packages/news/tcl/news-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-postgresql.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/news/tcl/news-procs-postgresql.xql	5 Apr 2005 15:21:25 -0000	1.5
+++ openacs-4/packages/news/tcl/news-procs-postgresql.xql	30 Dec 2009 23:13:36 -0000	1.6
@@ -67,9 +67,4 @@
         </querytext>
 </fullquery>
  
-<fullquery name="news_revision_set_image_id.set_image_rel">
-        <querytext>
-select acs_rel__new(null, 'relationship', :revision_id, :image_id, null, :creation_user, :peeraddr)
-        </querytext>
-</fullquery>
 </queryset>
Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/news/tcl/news-procs.tcl	22 Dec 2009 22:24:02 -0000	1.31
+++ openacs-4/packages/news/tcl/news-procs.tcl	30 Dec 2009 23:13:36 -0000	1.32
@@ -82,63 +82,6 @@
 
 }
 
-ad_proc test_file_type {
-    imgsrc
-} {
-    Used in form validation to check that the uploaded file type really is
-    what it's meant to be (invokes 'identify' on the file).
-
-    @author Tom Ayles (tom@beatniq.net)
-} {
-    set mime_types [split \
-                        [parameter::get -parameter ImageUploadTypes] \
-                        {,}]
-    if {[catch \
-             {array set img_props [ImageMagick::identify $imgsrc]} \
-             errmsg]} {
-        return 0
-    }
-    set mime_type "image/[string tolower $img_props(format)]"
-    if {[lsearch $mime_types $mime_type] < 0} {
-        return 0
-    }
-    return 1
-}
-
-ad_proc news_revision_set_image_id {
-    revision_id
-    image_id
-} {
-    Associates an image with a revision of a news item.
-    
-    @author simon@simonbuckle.com
-} {
-    set creation_user [ad_conn user_id]
-    set peeraddr [ad_conn peeraddr]
-
-    db_exec_plsql set_image_rel {}
-}
-
-ad_proc news_revision_get_image_id {
-    revision_id
-} {
-    Returns the image id if there is one associated with this image, empty string otherwise
-    
-    @author simon@simonbuckle.com
-} {
-    return [relation::get_object_two -object_id_one $revision_id -rel_type "relationship"]
-}
-
-ad_proc news_get_image_id {
-    item_id
-} {
-    Retrieves the image associated with the given news item.
-
-    @author Tom Ayles (tom@beatniq.net)
-} {
-    return [db_string img {} -default {}]
-}
-
 ad_proc news__datasource {
     object_id
 } {
Index: openacs-4/packages/news/tcl/news-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.xql,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/news/tcl/news-procs.xql	8 Aug 2006 21:27:04 -0000	1.11
+++ openacs-4/packages/news/tcl/news-procs.xql	30 Dec 2009 23:13:36 -0000	1.12
@@ -20,12 +20,4 @@
         </querytext>
 </fullquery>
 
-<fullquery name="news_get_image_id.img">
-      <querytext>
-        SELECT live_revision AS image_id
-        FROM cr_items
-        WHERE content_type = 'image' AND parent_id = :item_id
-      </querytext>
-</fullquery>
-
 </queryset>
Index: openacs-4/packages/news/www/item-create-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create-3.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/news/www/item-create-3.tcl	26 Dec 2009 23:50:53 -0000	1.13
+++ openacs-4/packages/news/www/item-create-3.tcl	30 Dec 2009 23:13:36 -0000	1.14
@@ -16,14 +16,6 @@
     {publish_date_ansi:trim "[db_null]"}
     {archive_date_ansi:trim "[db_null]"}
     permanent_p:notnull
-    imgfile:optional
-} -validate {
-     imgfile_valid {
-         if { [exists_and_not_null imgfile]
-              && ![ImageMagick::validate_tmp_file $imgfile] } {
-             ad_complain
-         }
-     }
 } -errors {
      imgfile_valid {Image file invalid}
 }  -properties {
@@ -85,19 +77,8 @@
     db_dml content_add {} -blobs  [list $publish_body]
 }
 
-# if an image is specified, we add it here.
-if {[exists_and_not_null imgfile]} {
-    # ImageMagick package will check its tmp directory for the file, so no
-    # need to expand the path.
-    db_1row item {
-        select item_id from cr_revisions where revision_id = :news_id
-    }
-    ImageMagick::util::create_image_item -file $imgfile -parent_id $item_id
-    ImageMagick::delete_tmp_file $imgfile
-}
+#update RSS if it is enabled
 
-    #update RSS if it is enabled
-
 if { !$news_admin_p } {
     
     if { ![string equal "open" [ad_parameter ApprovalPolicy "news" "wait"]] } {
Index: openacs-4/packages/news/www/item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/news/www/item-create.tcl	26 Dec 2009 23:50:53 -0000	1.10
+++ openacs-4/packages/news/www/item-create.tcl	30 Dec 2009 23:13:36 -0000	1.11
@@ -61,8 +61,6 @@
         {label "[_ news.Body]"}
         {html {cols 60 rows 20}}
         {value "[list $publish_body ${publish_body.format}]"}}
-    {text_file:text(file),optional
-        {label "[_ news.or_upload_text_file]"}}
 }
 
 if { $immediate_approve_p } {
Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/news/www/item.tcl	22 Dec 2009 22:24:02 -0000	1.17
+++ openacs-4/packages/news/www/item.tcl	30 Dec 2009 23:13:36 -0000	1.18
@@ -19,7 +19,6 @@
     publish_date:onevalue
     publish_body:onevalue
     publish_format:onevalue
-    publish_image:onevalue
     creator_link:onevalue
     comments:onevalue
     comment_link:onevalue
@@ -68,13 +67,6 @@
     set context [list $title]
     set publish_title {}
 
-    set image_id [news_get_image_id $item_id]
-    set publish_image ""
-    if { $image_id ne "" } {
-         set image_url "image/$image_id"
-         set publish_image $image_url
-         ns_log Debug "$image_url"
-    }
 } else {
     set title [_ news.Error]
     set contect [list $title]
Index: openacs-4/packages/news/www/news.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/news.adp,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/news/www/news.adp	9 Nov 2008 23:29:28 -0000	1.8
+++ openacs-4/packages/news/www/news.adp	30 Dec 2009 23:13:36 -0000	1.9
@@ -1,6 +1,5 @@
 <comment>This is the default template to render news items in admin/. Comments are not shown here</comment>
 <if @publish_title@ not nil><h1>@publish_title@</h1></if>
-<if @publish_image@ not nil><img class="newsImage" src="@publish_image@" alt="News image"></if>
 <if @publish_lead@ not nil><p class="newsLead">@publish_lead@</p></if>
 <div class="newsBody">@publish_body;noquote@</div>
 <p class="newsCredit">#news.Contributed_by# @creator_link;noquote@</p>
Index: openacs-4/packages/news/www/preview.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.adp,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/news/www/preview.adp	22 Dec 2009 22:24:02 -0000	1.14
+++ openacs-4/packages/news/www/preview.adp	30 Dec 2009 23:13:36 -0000	1.15
@@ -28,7 +28,6 @@
    <include src=news publish_body = "@publish_body;noquote@"
                      publish_format = "@publish_format;noquote@"
                      publish_lead = "@publish_lead@"
-                     publish_image = "@publish_image@"
                      publish_title = "@publish_title;noquote@"
                      creator_link = "@creator_link;noquote@">
 </div>
Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/news/www/preview.tcl	26 Dec 2009 23:50:53 -0000	1.24
+++ openacs-4/packages/news/www/preview.tcl	30 Dec 2009 23:13:36 -0000	1.25
@@ -96,33 +96,6 @@
 }
 set context [list $title]
 
-# set up image path
-if {[exists_and_not_null item_id]} {
-    set image_id [news_get_image_id $item_id]
-    if { ![empty_string_p $image_id] } {
-        set publish_image "image/$image_id"
-    } else {
-        set publish_image {}
-    }
-    set img_file {}
-} elseif {[info exists imgfile]} { 
-    set publish_image "image-view-tmpfile/$imgfile"
-} else {
-    set publish_image {}
-    set imgfile {}
-}
-
-# if we've come back from the image page, set up dates again
-if {[info exists publish_date_ansi] && [info exists archive_date_ansi]} {
-    set exp {([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})}
-    if { ![regexp $exp $publish_date_ansi match \
-               publish_date(year) publish_date(month) publish_date(day)]
-         || ![regexp $exp $archive_date_ansi match \
-                  archive_date(year) archive_date(month) archive_date(day)] } {
-        ad_return_complaint 1 "[_ news.Publish_archive_dates_incorrect]"
-    }
-}
-
 # deal with Dates, granularity is 'day'
 
 # with news_admin privilege fill in publish and archive dates
Index: openacs-4/packages/news/www/admin/revision-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/news/www/admin/revision-add.tcl	26 Dec 2009 23:27:56 -0000	1.9
+++ openacs-4/packages/news/www/admin/revision-add.tcl	30 Dec 2009 23:13:36 -0000	1.10
@@ -41,13 +41,6 @@
 
 set action "[_ news.Revision]"
 
-set image_id [news_get_image_id $item_id]
-set image_html ""
-if { $image_id ne "" } { 
-    set image_url "../image/$image_id" 
-    set image_html [subst {<br><img src="$image_url">}]
-}
-
 ad_form -name "news_revision" -export {item_id action} -html {enctype "multipart/form-data"} -action "../preview" -form {
     {publish_title:text(text)
         {label "[_ news.Title]"}