Index: openacs-4/packages/acs-content-repository/tcl/image-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/image-procs.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/acs-content-repository/tcl/image-procs.tcl 27 Apr 2015 15:28:16 -0000 1.11 +++ openacs-4/packages/acs-content-repository/tcl/image-procs.tcl 7 Aug 2017 23:47:47 -0000 1.12 @@ -358,7 +358,7 @@ if {[catch {exec [image::convert_binary] -resize $sizes($size_name) $original_filename $tmp_filename} errmsg]} { # maybe imagemagick isn't installed? - file delete $tmp_filename + file delete -- $tmp_filename return "" } if {[set resize_item_id \ @@ -378,7 +378,7 @@ -item_id $resize_item_id \ -tmp_filename $tmp_filename } - file delete $tmp_filename + file delete -- $tmp_filename return $resize_item_id } @@ -423,11 +423,20 @@ } { foreach {size_name dimensions} [image::get_convert_to_sizes] { - foreach item_id [db_list get_items "select item_id from cr_items where \content_type='image' and latest_revision is not null"] { + foreach item_id [db_list get_items { + select item_id from cr_items + where content_type='image' and latest_revision is not null + }] { image::resize \ -item_id $item_id \ -size_name $size_name } } } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: