Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/acs-templating/tcl/head-procs.tcl 19 Sep 2010 10:23:50 -0000 1.18 +++ openacs-4/packages/acs-templating/tcl/head-procs.tcl 23 Sep 2010 19:37:34 -0000 1.19 @@ -161,47 +161,6 @@ ] } -ad_proc -public template::head::defaults_meta { - {-http_equiv ""} - {-name ""} - {-scheme ""} - {-content ""} - {-lang ""} -} { - Add a meta tag to the head section of the document to be returned to the - users client if the meta tag does not yet exist. - Either name or http_equiv must be supplied. - - @param http_equiv the http-equiv attribute of the meta tag, ie. the - HTTP header which this metadata is equivalent to - eg. 'content-type' - @param name the name attribute of the meta tag, ie. the metadata - identifier - @param scheme the scheme attribute of the meta tag defining which - metadata scheme should be used to interpret the metadata, - eg. 'DC' for Dublin Core (http://dublincore.org/) - @param content the content attribute of the meta tag, ie the metadata - value - @param lang the lang attribute of the meta tag specifying the language - of its attributes if they differ from the document language -} { - variable ::template::head::metas - - if {$http_equiv eq "" && $name eq ""} { - error "You must supply either -http_equiv or -name." - } - if { ![info exists metas($http_equiv,$name) ] } { - set metas($http_equiv,$name) [list \ - $http_equiv \ - $name \ - $scheme \ - $content \ - $lang \ - ] - } -} - - ad_proc -public template::head::add_style { {-style:required} {-title ""}