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 -r1.1 -r1.2
--- openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	10 Jun 2004 01:13:57 -0000	1.1
+++ openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	13 Jun 2004 18:44:22 -0000	1.2
@@ -24,10 +24,10 @@
     @param creation_ip
 } {
     return [package_exec_plsql -var_list [list \
-        extlink_id $extlink_id \
-        target_folder_id $target_folder_id \
-        creation_user $creation_user \
-        creation_ip $creation_ip \
+        [list extlink_id $extlink_id ] \
+        [list target_folder_id $target_folder_id ] \
+        [list creation_user $creation_user ] \
+        [list creation_ip $creation_ip ] \
     ] content_extlink copy]
 }
 
@@ -38,7 +38,7 @@
     @param extlink_id item_id of extlink to delete
 } {
     return [package_exec_plsql -var_list [list \
-        extlink_id $extlink_id \
+        [list extlink_id $extlink_id ] \
     ] content_extlink del]
 }
 
@@ -51,6 +51,6 @@
     @return 1 if extlink, otherwise 0
 } {
     return [package_exec_plsql -var_list [list \
-        item_id $item_id \
+        [list item_id $item_id ] \
     ] content_extlink is_extlink]
 }