Index: openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	7 Dec 2004 07:53:57 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	7 Dec 2004 08:07:29 -0000	1.4
@@ -32,7 +32,30 @@
     ] content_extlink copy]
 }
 
+ad_proc -public content::extlink::new {
+    -extlink_id:required
+    -url:required
+    -parent_id:required
+    {-name ""}
+    {-label ""}
+    {-description ""}
+    {-package_id ""}
+} {
+    @param Create a new external link.
+    @return 0
+} {
+    return [package_exec_plsql -var_list [list \
+        [list extlink_id $extlink_id ] \
+        [list url $url ] \
+        [list parent_id $parent_id ] \
+        [list name $name ] \
+        [list label $label ] \
+        [list description $description ] \
+        [list package_id $package_id ] \
+    ] content_extlink new]
+}
 
+
 ad_proc -public content::extlink::delete {
     -extlink_id:required
 } {