Index: openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl	21 Aug 2001 22:45:26 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl	21 Aug 2001 22:53:08 -0000	1.4
@@ -21,8 +21,6 @@
 
 set file_extension [string tolower [file extension $upload_file]]
 
-set file_size [file size $tmp_filename]
-
 # remove the first . from the file extension
 regsub "\." $file_extension "" file_extension
 
@@ -58,7 +56,7 @@
 	set image = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
 	where card_image_id = :image_id
     } -blob_files [list $tmp_filename]
-} on_error {}
+} on_error {} # hopefully its a double click...
 
 ad_returnredirect "."
 
Index: openacs-4/packages/postcard/www/add-picture-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/postcard/www/add-picture-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/postcard/www/add-picture-2.tcl	21 Aug 2001 22:45:26 -0000	1.3
+++ openacs-4/packages/postcard/www/add-picture-2.tcl	21 Aug 2001 22:53:08 -0000	1.4
@@ -21,8 +21,6 @@
 
 set file_extension [string tolower [file extension $upload_file]]
 
-set file_size [file size $tmp_filename]
-
 # remove the first . from the file extension
 regsub "\." $file_extension "" file_extension
 
@@ -58,7 +56,7 @@
 	set image = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
 	where card_image_id = :image_id
     } -blob_files [list $tmp_filename]
-} on_error {}
+} on_error {} # hopefully its a double click...
 
 ad_returnredirect "."