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"