Index: openacs-4/packages/ecommerce/www/admin/products/supporting-file-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/supporting-file-delete.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/products/supporting-file-delete.tcl 16 Aug 2008 05:51:19 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/products/supporting-file-delete.tcl 27 Sep 2008 12:23:49 -0000 1.5 @@ -17,7 +17,7 @@ set title "Delete Supporting File for $product_name" set context [list [list index Products] $title] set comments "" -if { [string match "product-*.jpg" $file } { - set comments "Note: this file is the thumbnail picture of the product. If you delete it, the customer will not be able to see what the product looks like." +if { [string match "product*.jpg" $file] || [string match "product.gif" $file] } { + set comments "Note: this file is a picture of the product. If you delete it, the customer will not be able to see what the product looks like." } set export_form_vars_html [export_form_vars file product_id] Index: openacs-4/packages/ecommerce/www/admin/products/supporting-files-upload.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/supporting-files-upload.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/products/supporting-files-upload.tcl 16 Aug 2008 05:51:19 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/products/supporting-files-upload.tcl 27 Sep 2008 12:23:49 -0000 1.6 @@ -35,7 +35,9 @@ set file [lindex [file split $file_name] end] if { [string match {product.[jg][pi][gf]} $file] } { # do not show it + append file_list_html "
  • $file \[delete]
  • \n" } elseif { [string match {product-thumbnail.jpg} $file] } { + append file_list_html "
  • $file \[delete]
  • \n" # do not show it } else { append file_list_html "
  • $file \[delete]
  • \n"