Index: openacs-4/packages/ecommerce/ecommerce.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/ecommerce.info,v diff -u -r1.37.2.4 -r1.37.2.5 --- openacs-4/packages/ecommerce/ecommerce.info 19 Feb 2005 09:23:43 -0000 1.37.2.4 +++ openacs-4/packages/ecommerce/ecommerce.info 20 Feb 2005 09:33:29 -0000 1.37.2.5 @@ -7,17 +7,17 @@ f t - + Janine Sisk Bart Teeuwisse Alfred Werner The ACS 3.x based e-commerce solution ported to OpenACS. - 2004-03-10 + 2005-02-10 furfly.net, LLC This module implements all that IT needs for a standard business-to-consumer Web service. You can find a feature summary in the documentaion. - - + + @@ -69,6 +69,7 @@ + Index: openacs-4/packages/ecommerce/www/admin/products/add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/add-2.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/ecommerce/www/admin/products/add-2.tcl 9 Mar 2004 00:59:51 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/products/add-2.tcl 20 Feb 2005 09:33:29 -0000 1.5.2.1 @@ -182,16 +182,22 @@ # thumbnails are all jpg files # set thumbnail dimensions - if [catch {set thumbnail_width [ad_parameter -package_id [ec_id] ThumbnailWidth ecommerce]} ] { - if [catch {set thumbnail_height [ad_parameter -package_id [ec_id] ThumbnailHeight ecommerce]} ] { - set convert_dimensions "100x10000" - } else { - set convert_dimensions "10000x$thumbnail_height" - } + set use_both_param_dimensions [parameter::get -parameter ThumbnailSizeOuterlimits] + set thumbnail_width_is_blank [catch {set thumbnail_width [parameter::get -parameter ThumbnailWidth]} ] + set thumbnail_height_is_blank [catch {set thumbnail_height [parameter::get -parameter ThumbnailHeight]} ] + if { $use_both_param_dimensions } { + set convert_dimensions "${thumbnail_width}x${thumbnail_height}>" } else { - set convert_dimensions "${thumbnail_width}x10000" + if { $thumbnail_width_is_blank } { + if { $thumbnail_height_is_blank } { + set convert_dimensions "100x10000" + } else { + set convert_dimensions "10000x${thumbnail_height}" + } + } else { + set convert_dimensions "${thumbnail_width}x10000" + } } - set perm_thumbnail_filename "$full_dirname/product-thumbnail.jpg" set convert [ec_convert_path] Index: openacs-4/packages/ecommerce/www/admin/products/edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/edit-2.tcl,v diff -u -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/ecommerce/www/admin/products/edit-2.tcl 31 Oct 2004 10:12:59 -0000 1.6.2.1 +++ openacs-4/packages/ecommerce/www/admin/products/edit-2.tcl 20 Feb 2005 09:33:29 -0000 1.6.2.2 @@ -170,14 +170,21 @@ # thumbnails are all jpg files # set thumbnail dimensions - if [catch {set thumbnail_width [ad_parameter -package_id [ec_id] ThumbnailWidth ecommerce]} ] { - if [catch {set thumbnail_height [ad_parameter -package_id [ec_id] ThumbnailHeight ecommerce]} ] { - set convert_dimensions "100x10000" - } else { - set convert_dimensions "10000x$thumbnail_height" - } + set use_both_param_dimensions [parameter::get -parameter ThumbnailSizeOuterlimits] + set thumbnail_width_is_blank [catch {set thumbnail_width [parameter::get -parameter ThumbnailWidth]} ] + set thumbnail_height_is_blank [catch {set thumbnail_height [parameter::get -parameter ThumbnailHeight]} ] + if { $use_both_param_dimensions } { + set convert_dimensions "${thumbnail_width}x${thumbnail_height}>" } else { - set convert_dimensions "${thumbnail_width}x10000" + if { $thumbnail_width_is_blank } { + if { $thumbnail_height_is_blank } { + set convert_dimensions "100x10000" + } else { + set convert_dimensions "10000x${thumbnail_height}" + } + } else { + set convert_dimensions "${thumbnail_width}x10000" + } } set perm_thumbnail_filename "$full_dirname/product-thumbnail.jpg"