Index: openacs-4/packages/evaluation/www/answer-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/answer-add-edit.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/evaluation/www/answer-add-edit.tcl	22 Dec 2004 22:06:40 -0000	1.14
+++ openacs-4/packages/evaluation/www/answer-add-edit.tcl	4 Apr 2005 18:22:36 -0000	1.15
@@ -80,7 +80,8 @@
 
 		set mime_type "text/plain"
 		set title ""
-		set storage_type text
+		# set storage_type to its default value according to a db constraint
+		set storage_type ""
 		if { ![empty_string_p $upload_file] } {
 			
 			# Get the filename part of the upload file
@@ -94,14 +95,10 @@
 
 			if { [parameter::get -parameter "StoreFilesInDatabaseP" -package_id [ad_conn package_id]] } {
 			    set storage_type file
-			} else {
-			    set storage_type lob
 			}
-
 		}  elseif { ![string eq $url "http://"] } {
 			set mime_type "text/plain"
 			set title "link"
-			set storage_type text
 		}
 		
 		set title [evaluation::safe_url_name -name $title]