Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	28 Jul 2007 13:01:57 -0000	1.30
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	9 Aug 2007 18:05:53 -0000	1.31
@@ -26,6 +26,7 @@
     type name lang stripped_name label page 
     folder_id package_id 
     title target
+    href
   }
   Link instproc atts {} {
     set atts ""
@@ -182,7 +183,12 @@
       return "<img class='$cls' src='$link' alt='$label' title='$label' $style>"
     }
   }
-  
+
+  Class create ::xowiki::Link::localimage -superclass ::xowiki::Link::image
+  ::xowiki::Link::localimage instproc render {} {
+    my render_found [my href] [my label]
+  }
+
   Class create ::xowiki::Link::file -superclass ::xowiki::Link::image  -parameter {
     width height align pluginspage pluginurl hidden href target
     autostart loop volume controls controller mastersound starttime endtime