Index: openacs-4/packages/lors/tcl/lors-cr-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/Attic/lors-cr-procs-oracle.xql,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lors/tcl/lors-cr-procs-oracle.xql	29 Aug 2006 11:36:09 -0000	1.1.2.1
+++ openacs-4/packages/lors/tcl/lors-cr-procs-oracle.xql	22 Nov 2006 11:51:52 -0000	1.1.2.2
@@ -2,15 +2,15 @@
 <queryset>
 <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="views::record_view.record_view">      
+<fullquery name="lors::cr::add_folder.folder_create">      
 	<querytext>
 	begin
 	        :1 := lors.new_folder (
-			name => :name,
-			folder_name => :folder_name,
-			parent_id => :parent_id,
-			user_id => :user_id,
-			creation_ip => :creation_ip
+			p_name => :name,
+			p_folder_name => :folder_name,
+			p_parent_id => :parent_id,
+			p_creation_user => :user_id,
+			p_creation_ip => :creation_ip
 		);
 	end;
 	</querytext>
@@ -20,12 +20,21 @@
 	<querytext>
 	begin
 		:1:= content_item.get_id (
-			name => :name,
+			item_path => :name,
 			root_folder_id => :folder_id,
 			resolve_index => 'f'
 		);			
 	end;
 	</querytext>
 </fullquery>
 
+<fullquery name="lors::cr::add_files.set_file_content">      
+	<querytext>
+      update cr_revisions
+      set filename = :cr_file,
+      content_length = :file_size
+      where revision_id = :version_id
+	</querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/lors/tcl/lors-cr-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/Attic/lors-cr-procs-postgresql.xql,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lors/tcl/lors-cr-procs-postgresql.xql	29 Aug 2006 11:36:09 -0000	1.1.2.1
+++ openacs-4/packages/lors/tcl/lors-cr-procs-postgresql.xql	22 Nov 2006 11:51:53 -0000	1.1.2.2
@@ -14,4 +14,10 @@
 	</querytext>
 </fullquery>
 
+<fullquery name="lors::cr::add_files.set_file_content">      
+	<querytext>
+	update cr_revisions set content = '$cr_file', content_length = $file_size where revision_id = $version_id
+	</querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/lors/tcl/lors-cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-cr-procs.tcl,v
diff -u -N -r1.4.2.2.2.1 -r1.4.2.2.2.2
--- openacs-4/packages/lors/tcl/lors-cr-procs.tcl	29 Aug 2006 11:36:09 -0000	1.4.2.2.2.1
+++ openacs-4/packages/lors/tcl/lors-cr-procs.tcl	22 Nov 2006 11:51:53 -0000	1.4.2.2.2.2
@@ -163,16 +163,12 @@
 	    set version_id [content::revision::new -title $title -description $description -mime_type $mime_type \
 				-creation_user $user_id -creation_ip $creation_ip -item_id $file_id -is_live "t"]
 
-	    # move the actual file into the CR
-	    set cr_file [cr_create_content_file $file_id $version_id $fle]
-	    # get the size
-	    set file_size [cr_file_size $cr_file]
-		
-	    # update the file path in the CR and the size on cr_revisions
-	db_dml update_revi {}
 
+		set cr_file [cr_create_content_file $file_id $version_id $fle]
+		# get the size
+		set file_size [cr_file_size $cr_file]
+                db_dml set_file_content ""
 #    }
-
         lappend retlist [list $fle $mime_type $parent_id $file_id $version_id $cr_file $file_size]
     }
     return $retlist