Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	9 Nov 2008 23:29:22 -0000	1.15
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	13 Feb 2009 22:13:06 -0000	1.16
@@ -156,8 +156,8 @@
         set lst_with_urls [list]
 
         foreach item_id $lst {
-            if { [content_extlink::extlink_p -item_id $item_id] } {
-              set label [content_extlink::extlink_name -item_id $item_id]
+            if { [content::extlink::is_extlink -item_id $item_id] } {
+              set label [content::extlink::name -item_id $item_id]
             } else {
               set label [fs::get_object_prettyname -object_id $item_id]
             }
@@ -179,8 +179,8 @@
         set lst_with_urls [list]
 
         foreach item_id $lst {
-            if { [content_extlink::extlink_p -item_id $item_id] } {
-              set label [content_extlink::extlink_name -item_id $item_id]
+            if { [content::extlink::is_extlink -item_id $item_id] } {
+              set label [content::extlink::name -item_id $item_id]
             } else {
               set label [fs::get_object_name -object_id $item_id] 
             }