object-goto.tcl
go to an object
- Location:
- /packages/notifications/www/object-goto.tcl
- Author:
- Tracy Adams <teadams@alum.mit.edu>
- Created:
- 22 July 2002
- CVS ID:
$Id: object-goto.tcl,v 1.4.2.1 2023/02/23 16:24:31 antoniop Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { go to an object @author Tracy Adams (teadams@alum.mit.edu) @creation-date 22 July 2002 @cvs-id $Id: object-goto.tcl,v 1.4.2.1 2023/02/23 16:24:31 antoniop Exp $ } { object_id:object_type(acs_object),notnull type_id:object_type(notification_type),notnull } # added type_id parameter to redirect to the correct page for an object # we need the implementation name which is not the same as the object_type # look in tcl/delivery-procs.tcl, there is a get_impl_key proc that # queries the acs_sc_impls table for the implementation name # but the query is delivery_type specific, so we can't use it here set sc_impl_name [db_string get_notif_type {}] set url [acs_sc::invoke -contract NotificationType -operation GetURL -call_args [list $object_id] -impl $sc_impl_name] ad_returnredirect $url # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: