Index: openacs-4/packages/acs-content-repository/sql/oracle/content-symlink.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-symlink.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-content-repository/sql/oracle/content-symlink.sql	4 Mar 2004 14:52:35 -0000	1.7
+++ openacs-4/packages/acs-content-repository/sql/oracle/content-symlink.sql	12 Mar 2004 18:48:46 -0000	1.8
@@ -21,9 +21,11 @@
   symlink_id	in cr_symlinks.symlink_id%TYPE default null,
   creation_date	in acs_objects.creation_date%TYPE default sysdate,
   creation_user	in acs_objects.creation_user%TYPE default null,
-  creation_ip	in acs_objects.creation_ip%TYPE default null
+  creation_ip	in acs_objects.creation_ip%TYPE default null,
+  package_id    in acs_objects.package_id%TYPE
 ) return cr_symlinks.symlink_id%TYPE is
   v_symlink_id		cr_symlinks.symlink_id%TYPE;
+  v_package_id		acs_objects.package_id%TYPE;
   v_name		cr_items.name%TYPE;
   v_label		cr_symlinks.label%TYPE;
 begin
@@ -85,9 +87,16 @@
     v_label := content_symlink.new.label;
   end if;
 
+  if package_id is null then
+    v_package_id := acs_object.package_id(new.parent_id);
+  else
+    v_package_id := package_id;
+  end if;
+
   v_symlink_id := content_item.new(
       item_id       => content_symlink.new.symlink_id,
-      name          => v_name, 
+      name          => v_name,
+      package_id    => v_package_id,
       content_type  => 'content_symlink', 
       creation_date => content_symlink.new.creation_date, 
       creation_user => content_symlink.new.creation_user, 
@@ -100,6 +109,10 @@
   values
     (v_symlink_id, content_symlink.new.target_id, v_label);
 
+  update acs_objects
+  set title = v_label
+  where object_id = v_symlink_id;
+
   return v_symlink_id;
 
 end new;
