Index: openacs-4/contrib/packages/general-comments/www/url-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/general-comments/www/Attic/url-add-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/general-comments/www/url-add-edit.tcl	3 Jul 2003 02:49:45 -0000	1.1
+++ openacs-4/contrib/packages/general-comments/www/url-add-edit.tcl	3 Jul 2003 18:47:35 -0000	1.2
@@ -61,17 +61,31 @@
 } -edit_data {
     # update existing extlink
 
+    db_dml edit_url {}
+
+    if {[empty_string_p $return_url]} {
+        set return_url "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+    }
+
     ad_returnredirect $return_url
     ad_script_abort
     
 } -new_data {
+
     #insert new extlink
-    if {![exists_and_not_null package_id]} {
-	#find the closest general comments up to the nearest acs-subsite
-    }
 
+# insert the url into database 
+
+    set creation_ip [ad_conn peeraddr]
+
+    set name "extlink_$attach_id"
+
+    db_exec_plsql insert_extlink {}
+
+    if {[empty_string_p $return_url]} {
+        set return_url "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+    }
     
-    
     ad_returnredirect $return_url
     ad_script_abort