insert-ilink.tcl

Location:
/packages/acs-templating/www/scripts/xinha/insert-ilink.tcl
Authors:
Guenter Ernst guenter.ernst@wu-wien.ac.at,
Gustaf Neumann neumann@wu-wien.ac.at
Created:
13.07.2004
CVS ID:
$Id: insert-ilink.tcl,v 1.3 2017/08/07 23:48:03 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  @author Guenter Ernst guenter.ernst@wu-wien.ac.at, 
  @author Gustaf Neumann neumann@wu-wien.ac.at
  @creation-date 13.07.2004
  @cvs-id $Id: insert-ilink.tcl,v 1.3 2017/08/07 23:48:03 gustafn Exp $
} {
  {fs_package_id:naturalnum,optional}
  {folder_id:naturalnum,optional}
  {file_types *}
}
 
set selector_type "file"
set file_selector_link [export_vars -base file-selector \
                {fs_package_id folder_id selector_type file_types}]
set fs_found 1

ad_return_template

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