mount-2.tcl

Location:

/packages/acs-subsite/www/admin/site-map/mount-2.tcl

Author:

rhs@mit.edu

Created:

2000-09-12

CVS ID:

$Id: mount-2.tcl,v 1.6.2.1 2024/08/05 14:12:41 gustafn Exp $

Related Files

• packages/acs-subsite/www/admin/site-map/mount-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

  @author rhs@mit.edu
  @creation-date 2000-09-12
  @cvs-id $Id: mount-2.tcl,v 1.6.2.1 2024/08/05 14:12:41 gustafn Exp $
} {
  node_id:naturalnum,notnull
  package_id:naturalnum,notnull
  {expand:integer,multiple {}}
  root_id:naturalnum,optional
}

permission::require_permission -object_id $package_id -privilege read

site_node::mount -node_id $node_id -object_id $package_id

ad_returnredirect [export_vars -base . {expand:multiple root_id}]
ad_script_abort

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