Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Sep 2007 20:33:04 -0000	1.24
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Nov 2007 12:23:51 -0000	1.25
@@ -707,8 +707,17 @@
     if {![info exists ::need_js($name)]} {lappend ::js_order $name}
     set ::need_js($name)  1
   }
+  Page proc requireLink {-rel -type -title -href} {
+    regsub -all ' $title "'" title
+    regsub -all ' $href "'" href
+    set key "rel='$rel' type='$type' title='$title' href='$href'"
+    set ::need_link($key) 1
+  }
   Page proc header_stuff {} {
     set result ""
+    foreach link [array names ::need_link] {
+      append result "<link $link>\n"
+    }
     foreach file [array names ::need_css] {
       append result "<link type='text/css' rel='stylesheet' href='$file' media='all' >\n"
     }