Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 22 Dec 2017 14:14:20 -0000 1.2
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 17 Jan 2018 22:11:38 -0000 1.3
@@ -742,7 +742,237 @@
return filter_ok
}
+ad_proc -deprecated ad_present_user {
+ user_id
+ name
+} {
+ This function is an alias to acs_community_member_link
+ and receives identical parameters, but the former finds out the name
+ of the user if a blank is passed. That's why it's marked as deprecated.
+ @return the HTML link of the community member page of a particular user
+
+ @author Unknown
+ @author Roberto Mello
+
+ @see acs_community_member_link
+} {
+ return [acs_community_member_link -user_id $user_id -label $name]
+}
+
+ad_proc -deprecated ad_admin_present_user {
+ user_id
+ name
+} {
+ This function is an alias to acs_community_member_admin_link
+ and receives identical parameters, but the former finds out the name
+ of the user if a blank is passed. That's why it's marked as deprecated.
+
+ @return the HTML link of the community member page of a particular admin user.
+
+ @author Unknown
+ @author Roberto Mello
+
+ @see acs_community_member_admin_link
+} {
+ return [acs_community_member_admin_link -user_id $user_id -label $name]
+}
+
+ad_proc -deprecated ad_header {
+ {-focus ""}
+ page_title
+ {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
+} {
+ return [ad_header_with_extra_stuff -focus $focus $page_title $extra_stuff_for_document_head]
+}
+
+ad_proc -deprecated ad_header_with_extra_stuff {
+ {-focus ""}
+ page_title
+ {extra_stuff_for_document_head ""}
+ {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 "
+
+$extra_stuff_for_document_head
+$page_title
+
+"
+ array set attrs [list]
+ set attrs(bgcolor) [parameter::get -package_id [ad_acs_kernel_id] -parameter bgcolor -default "white"]
+ set attrs(text) [parameter::get -package_id [ad_acs_kernel_id] -parameter textcolor -default "black"]
+
+ if { $focus ne "" } {
+ template::add_body_script -script [subst {
+ window.addEventListener('load', function () {document.${focus}.focus()}, false);
+ }]
+ }
+ foreach attr [array names attrs] {
+ lappend attr_list "$attr=\"$attrs($attr)\""
+ }
+ append html "\n"
+
+ append html $pre_content_html
+ return $html
+}
+
+ad_proc -deprecated ad_footer {
+ {signatory ""}
+ {suppress_curriculum_bar_p 0}
+} {
+ 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 { $signatory eq "" } {
+ set signatory [ad_system_owner]
+ }
+ if { [info exists sidegraphic_displayed_p] && $sidegraphic_displayed_p } {
+ # we put in a BR CLEAR=RIGHT so that the signature will clear any side graphic
+ # from the ad-sidegraphic.tcl package
+ set extra_br "
"
+ } else {
+ set extra_br ""
+ }
+ if { [parameter::get -package_id [ad_acs_kernel_id] -parameter EnabledP -default 0] && [parameter::get -package_id [ad_acs_kernel_id] -parameter StickInFooterP -default 0] && !$suppress_curriculum_bar_p} {
+ set curriculum_bar "[curriculum_bar]"
+ } else {
+ set curriculum_bar ""
+ }
+ if { [info commands ds_link] ne "" } {
+ set ds_link [ds_link]
+ } else {
+ set ds_link ""
+ }
+ return "
+$extra_br
+$curriculum_bar
+
+$ds_link
+$signatory
+
+"
+}
+
+# need special headers and footers for admin pages
+# notably, we want pages signed by someone different
+# (the user-visible pages are probably signed by
+# webmaster@yourdomain.com; the admin pages are probably
+# used by this person or persons. If they don't like
+# the way a page works, they should see a link to the
+# email address of the programmer who can fix the page).
+
+ad_proc -public -deprecated ad_admin_owner {} {
+ @return E-mail address of the Administrator of this site.
+} {
+ return [parameter::get -package_id [ad_acs_kernel_id] -parameter AdminOwner]
+}
+
+ad_proc -deprecated ad_admin_header {
+ {-focus ""}
+ page_title
+} {
+
+ @see Documentation on the site master template for the proper way to standardize page headers
+} {
+ return [ad_header_with_extra_stuff -focus $focus $page_title]
+}
+
+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 { [info commands ds_link] ne "" } {
+ set ds_link [ds_link]
+ } else {
+ set ds_link ""
+ }
+ return "
+$ds_link
+[ad_admin_owner]
+