Index: openacs-4/packages/dotlrn-fs/dotlrn-fs.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/dotlrn-fs.info,v
diff -u -r1.18 -r1.18.2.1
--- openacs-4/packages/dotlrn-fs/dotlrn-fs.info	31 Jul 2002 21:18:33 -0000	1.18
+++ openacs-4/packages/dotlrn-fs/dotlrn-fs.info	20 Mar 2003 22:24:41 -0000	1.18.2.1
@@ -16,7 +16,7 @@
 
         <provides url="dotlrn-fs" version="0.1a"/>
         <requires url="dotlrn" version="1.0"/>
-        <requires url="file-storage" version="4.1"/>
+        <requires url="file-storage" version="4.6.2"/>
         <requires url="fs-portlet" version="0.1a"/>
 
         <files>
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.77.2.3 -r1.77.2.4
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	14 Mar 2003 19:07:23 -0000	1.77.2.3
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	20 Mar 2003 22:24:41 -0000	1.77.2.4
@@ -622,12 +622,9 @@
         Currently either simple, folder or file.
         Optionall set up a node mapping on folders too.
     } {
-        if {[fs::simple_p -object_id $object_id]} {
 
-            fs::url_copy \
-                -url_id $object_id \
-                -target_folder_id $target_folder_id
-
+        if {[content_extlink::extlink_p -item_id $object_id]} {
+            item::copy -item_id $object_id -target_folder_id $target_folder_id
         } elseif {[fs::folder_p -object_id $object_id]} {
             
             set name [fs_get_folder_name $object_id]
@@ -654,7 +651,7 @@
             foreach item_id $folder_contents {
 
                 copy_fs_object  \
-                    -object_id $item_id] \
+                    -object_id $item_id \
                     -target_folder_id $new_folder_id \
                     -user_id $user_id \
                     -node_id $node_id