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.20 -r1.21
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	30 Jan 2007 11:46:55 -0000	1.20
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	31 Jan 2007 12:29:57 -0000	1.21
@@ -13,7 +13,7 @@
   #
 
   Class create Link -parameter {
-    type name lang stripped_name label page
+    type name lang stripped_name label page 
     folder_id package_id
   }
   Link instproc init {} {
@@ -81,7 +81,9 @@
   # language links
   #
 
-  Class create ::xowiki::Link::language -superclass ::xowiki::Link
+  Class create ::xowiki::Link::language -superclass ::xowiki::Link -parameter {
+    return_only
+  }
   ::xowiki::Link::language instproc render {} {
     set page [my page]
     my instvar lang name package_id
@@ -95,11 +97,11 @@
       set object_type  [[$page info class] set object_type]
       set link [$package_id make_link $package_id \
                     edit-new object_type name last_page_id]
-
-      #set link [export_vars -base [$package_id package_url] \
-      #              {{edit-new 1} object_type name last_page_id}]
     }
-    my log "--lang_link=$link"
+    # my log "--lang_link=$link"
+    if {[my exists return_only] && [my return_only] ne $css_class} {
+      set link ""
+    }
     if {$link ne ""} {
       $page lappend lang_links($css_class) \
           "<a href='$link'><img class='$css_class' \