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.68 -r1.69
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 22 Dec 2017 14:14:20 -0000 1.68
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 17 Jan 2018 22:11:38 -0000 1.69
@@ -159,24 +159,6 @@
return [subst {$label}]
}
-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 -public acs_community_member_admin_url {
{-user_id:required}
} {
@@ -202,155 +184,7 @@
return [subst {$label}]
}
-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]
-
-