Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v diff -u -r1.50 -r1.51 --- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 14 Jul 2006 18:03:20 -0000 1.50 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 14 Jul 2006 18:22:17 -0000 1.51 @@ -224,6 +224,9 @@ {extra_stuff_for_document_head ""} } { writes HEAD, TITLE, and BODY tags to start off pages in a consistent fashion + + + @see Documentation on the site master template for the proper way to standardize page headers } { # if {[ad_parameter MenuOnUserPagesP pdm] == 1} { @@ -241,6 +244,8 @@ {pre_content_html ""} } { This is the version of the ad_header that accepts extra stuff for the document head and pre-page content html + + @see Documentation on the site master template for the proper way to standardize page headers } { set html " @@ -274,6 +279,9 @@ Writes a horizontal rule, a mailto address box (ad_system_owner if not specified as an argument), and then closes the BODY and HTML tags + + + @see Documentation on the site master template for the proper way to standardize page footers } { global sidegraphic_displayed_p if { [empty_string_p $signatory] } { @@ -323,8 +331,11 @@ ad_proc -deprecated ad_admin_header { {-focus ""} page_title -} "" { +} { + @see Documentation on the site master template for the proper way to standardize page headers +} { + # if {[ad_parameter -package_id [ad_acs_kernel_id] MenuOnAdminPagesP pdm] == 1} { # return [ad_header_with_extra_stuff -focus $focus $page_title [ad_pdm "admin" 5 5] [ad_pdm_spacer "admin"]] @@ -337,6 +348,9 @@ ad_proc -deprecated ad_admin_footer {} { Signs pages with ad_admin_owner (usually a programmer who can fix bugs) rather than the signatory of the user pages + + + @see Documentation on the site master template for the proper way to standardize page footers } { if { [llength [info procs ds_link]] == 1 } { set ds_link [ds_link] Index: openacs-4/packages/acs-tcl/tcl/deprecated-utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/deprecated-utilities-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/deprecated-utilities-procs.tcl 26 Feb 2005 17:52:20 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/deprecated-utilities-procs.tcl 14 Jul 2006 18:22:17 -0000 1.7 @@ -41,6 +41,9 @@ ad_proc -deprecated -warn set_variables_after_query {} { to be removed. + + + @see packages/acs-tcl/tcl/00-database-procs.tcl } { uplevel { set set_variables_after_query_i 0 @@ -56,6 +59,9 @@ ad_proc -deprecated -warn set_variables_after_subquery {} { to be removed. + + + @see packages/acs-tcl/tcl/00-database-procs.tcl } { uplevel { set set_variables_after_query_i 0 @@ -73,6 +79,9 @@ ad_proc -deprecated -warn set_variables_after_query_not_selection {selection_variable {name_prefix ""}} { to be removed. + + + @see packages/acs-tcl/tcl/00-database-procs.tcl } { set set_variables_after_query_i 0 set set_variables_after_query_limit [ns_set size $selection_variable] Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -r1.38 -r1.39 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 1 Mar 2005 00:01:25 -0000 1.38 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 14 Jul 2006 18:22:17 -0000 1.39 @@ -1285,6 +1285,8 @@ database is less than or equal to what ad_privacy_threshold returns. Now deprecated. + + @see ad_conn } { set session_user_id [ad_get_user_id] if {$session_user_id == 0} { Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.90 -r1.91 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 6 Jul 2006 11:37:55 -0000 1.90 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 14 Jul 2006 18:22:17 -0000 1.91 @@ -2062,7 +2062,12 @@ } } -ad_proc -deprecated util_ReturnMetaRefresh { url { seconds_delay 0 }} { +ad_proc util_ReturnMetaRefresh { url { seconds_delay 0 } } { + Ugly workaround to deal with IE5.0 bug handling + multipart/form-data using + Meta Refresh page instead of a redirect. + +} { ReturnHeaders ns_write "