index.tcl

Main Calendar Page totally redone by Ben

Location:

/packages/calendar/www/index.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

June 2, 2002

CVS ID:

$Id: index.tcl,v 1.20 2018/01/19 14:27:15 gustafn Exp $

Related Files

• packages/calendar/www/index.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    
    Main Calendar Page
    totally redone by Ben
    
    @author Ben Adida (ben@openforce.net)
    @creation-date June 2, 2002
    @cvs-id $Id: index.tcl,v 1.20 2018/01/19 14:27:15 gustafn Exp $
} {
}

set package_id [ad_conn package_id]
set user_id [ad_conn user_id]

if { ![calendar::have_private_p -party_id $user_id] } {
    set calendar_id [calendar::new \
                        -owner_id $user_id \
                        -private_p "t" \
                        -calendar_name "Personal" \
                        -package_id $package_id]
} 

ad_returnredirect "view"    
ad_script_abort

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