Index: openacs-4/packages/attachments/www/simple-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add-2.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/attachments/www/simple-add-2.tcl	2 Jul 2002 04:18:54 -0000	1.1
+++ openacs-4/packages/attachments/www/simple-add-2.tcl	20 Mar 2003 22:12:18 -0000	1.1.2.1
@@ -24,11 +24,11 @@
 ad_require_permission $folder_id write
 
 db_transaction {
-    # Create the URL (for now)
-    set url_id [fs::url_new -url $url -name $title -description $description -folder_id $folder_id]
     
-    # Attach the URL
-    attachments::attach -object_id $object_id -attachment_id $url_id
+    # Create and attach the URL
+    attachments::attach -object_id $object_id \
+        -attachment_id [content_simple::new -url $url -label $title -description $description -parent_id $folder_id]
+
 }
 
 ad_returnredirect "$return_url"