Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v diff -u -r1.35 -r1.36 --- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 26 Apr 2006 17:34:33 -0000 1.35 +++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 1 May 2006 01:47:58 -0000 1.36 @@ -539,6 +539,13 @@ #maybe there aren't 4 letters in the product name set dirname "$letters_in_product_name$product_id" } + + set subdirectory "[ec_data_directory][ec_product_directory][ec_product_file_directory $product_id]" + ec_assert_directory $subdirectory + + set full_dirname "$subdirectory/$dirname" + ec_assert_directory $full_dirname + set color_list "" set size_list "" set peeraddr [ad_conn peeraddr]