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.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	7 Dec 2004 08:07:29 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/content-extlink-procs.tcl	27 Feb 2005 20:05:58 -0000	1.5
@@ -79,3 +79,13 @@
         [list item_id $item_id ] \
     ] content_extlink is_extlink]
 }
+
+ad_proc -public content::extlink::name {
+    -item_id:required
+} {
+    Returns the name of an extlink
+
+    @item_id  The object id of the item to check.
+} {
+    return [db_string get {}]
+}