css-make-live.tcl

make a css revision the live one

Location:

/packages/acs-developer-support/www/css-make-live.tcl

Author:

Malte Sussdorff <malte.sussdorff@cognovis.de>

Created:

2007-09-30

CVS ID:

$Id: css-make-live.tcl,v 1.5 2018/01/05 22:59:57 gustafn Exp $

Related Files

• packages/acs-developer-support/www/css-make-live.tcl

[ hide source ] | [ make this the default ]

File Contents

# 

ad_page_contract {
    
    make a css revision the live one
    
    @author Malte Sussdorff (malte.sussdorff@cognovis.de)
    @creation-date 2007-09-30
    @cvs-id $Id: css-make-live.tcl,v 1.5 2018/01/05 22:59:57 gustafn Exp $
} {
    {revision_id:naturalnum,notnull}
    {file_location }
    {return_url_2 "/"}
} -properties {
} -validate {
} -errors {
}

ds_require_permission [ad_conn package_id] "admin"

content::item::set_live_revision -revision_id $revision_id

set item_id [content::revision::item_id -revision_id $revision_id]
#set target [content::item::get_name -item_id $item_id]
set target $file_location
set source [content::revision::get_cr_file_path -revision_id $revision_id]

#todo check if files are stored in db
file copy -force -- $source $target

ad_returnredirect $return_url_2
ad_script_abort

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