Index: openacs-4/packages/cronjob/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/www/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/cronjob/www/index.adp 4 Sep 2002 09:06:09 -0000 1.1 @@ -0,0 +1,10 @@ + + @title@ + @context@ + +

This package has no user pages.

+ + [ Administer ] + + + \ No newline at end of file Index: openacs-4/packages/cronjob/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/www/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/cronjob/www/index.tcl 4 Sep 2002 09:06:09 -0000 1.1 @@ -0,0 +1,38 @@ +ad_page_contract { + + A place holder for access to the admin pages. + + @author Bart Teeuwisse + @creation-date April 2002 + +} { +} -properties { + title:onevalue + context:onevalue +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +# Get the name of the package + +if {[db_0or1row get_package_name " + select p.instance_name + from apm_packages p, apm_package_versions v + where p.package_id = :package_id + and p.package_key = v.package_key + and v.enabled_p = 't'"]} { + set title "$instance_name" +} else { + set title "Authorize.net Gateway" +} + +# Set the context bar. + +set context [list] Index: openacs-4/packages/cronjob/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/www/admin/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/cronjob/www/admin/index.tcl 4 Sep 2002 09:06:10 -0000 1.1 @@ -0,0 +1,2 @@ +# $Id: index.tcl,v 1.1 2002/09/04 09:06:10 jeffd Exp $ +ad_returnredirect "cronjobs"