recent.tcl

Display files less than 5 days old Note: this include seems to not be referenced anywhere.

Location:

/packages/file-storage/lib/recent.tcl

Related Files

• packages/file-storage/lib/recent.tcl
• packages/file-storage/lib/recent.adp

[ hide source ] | [ make this the default ]

File Contents

ad_include_contract {
    Display files less than 5 days old

    Note: this include seems to not be referenced anywhere.
} {
    folder:notnull
    url:localurl,notnull
}

set fs_package [site_node::get_element -url $url -element package_id]
set fs_root [fs::get_root_folder -package_id $fs_package]
set fs_folder [fs::get_folder -parent_id $fs_root -name $folder]


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