Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-add-2-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-add-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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
     
Index: openacs-4/contrib/packages/general-comments/www/url-add-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/general-comments/www/Attic/url-add-edit.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/general-comments/www/url-add-edit.xql	3 Jul 2003 02:49:46 -0000	1.1
+++ openacs-4/contrib/packages/general-comments/www/url-add-edit.xql	3 Jul 2003 18:47:35 -0000	1.2
@@ -11,4 +11,17 @@
 		</querytext>
 	</fullquery>
 
+
+    <fullquery name="edit_url">      
+        <querytext>
+      
+    	update cr_extlinks
+       	    set label = :label,
+            url = :url
+         where extlink_id = :attach_id
+
+         </querytext>
+    </fullquery>
+
+
 </queryset>
\ No newline at end of file
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-add.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-ae.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-edit-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-edit-2.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/general-comments/www/url-edit.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?