test.tcl

Test page for general-comments

Location:

/packages/general-comments/www/test.tcl

Authors:

Phong Nguyen <phong@arsdigita.com>

Pascal Scheffers <pascal@scheffers.net>

Created:

2000-10-12

CVS ID:

$Id: test.tcl,v 1.6 2017/08/07 23:48:12 gustafn Exp $

Related Files

• packages/general-comments/www/test.tcl
• packages/general-comments/www/test.adp

[ hide source ] | [ make this the default ]

File Contents

# /packages/general-comments/www/test.tcl
 
ad_page_contract {
    Test page for general-comments

    @author Phong Nguyen (phong@arsdigita.com)
    @author Pascal Scheffers (pascal@scheffers.net)
    @creation-date 2000-10-12
    @cvs-id $Id: test.tcl,v 1.6 2017/08/07 23:48:12 gustafn Exp $
} { 
} -properties {
    page_title:onevalue
    context:onevalue
    package_id:onevalue
    gc_package_id:onevalue
    package_url:onevalue
    gc_package_url:onevalue
    auto_approve_comments_p:onevalue
    allow_file_attachments_p:onevalue
    allow_link_attachments_p:onevalue
    max_file_size:onevalue
    comments:onevalue
    full_comments:onevalue
    link:onevalue
}    

set page_title "[_ general-comments.lt_Test_page_for_General]"
set context "\"[_ general-comments.test]\""

if { ![db_0or1row get_gc_package_id {
    select package_id
      from apm_packages
    where package_key = 'general-comments'
}] } {
    set package_id ""
}
set package_url [general_comments_package_url]

set auto_approve_comments_p [parameter::get -package_id $package_id -parameter AutoApproveCommentsP -default ""]
set allow_file_attachments_p [parameter::get -package_id $package_id -parameter AllowFileAttachmentsP -default ""]
set allow_link_attachments_p [parameter::get -package_id $package_id -parameter AllowLinkAttachmentsP -default ""]
set max_file_size [parameter::get -package_id $package_id -parameter MaxFileSize -default ""]

set comments [general_comments_get_comments $package_id "${package_url}test"]
set full_comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $package_id "${package_url}test"]
set link [general_comments_create_link $package_id "${package_url}test" ]

set return_url [ad_conn url]
set params_url [export_vars -base /shared/parameters {package_id return_url}]

ad_return_template

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: