Index: openacs-4/contrib/packages/project-manager/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/admin/Attic/index.tcl,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/contrib/packages/project-manager/www/admin/index.tcl 26 Jan 2004 15:39:40 -0000 1.3 +++ openacs-4/contrib/packages/project-manager/www/admin/index.tcl 2 Jul 2004 23:13:49 -0000 1.3.2.1 @@ -26,29 +26,46 @@ task_term_lower:onevalue project_term:onevalue project_term_lower:onevalue + logger_link:onevalue + logger_primary_link:onevalue + logger_sync_link:onevalue } # --------------------------------------------------------------- # -# terminology -set task_term [parameter::get -parameter "TaskName" -default "Task"] -set task_term_lower [parameter::get -parameter "taskname" -default "task"] -set project_term [parameter::get -parameter "ProjectName" -default "Project"] -set project_term_lower [parameter::get -parameter "projectname" -default "project"] +set logger_URLs [parameter::get -parameter "LoggerURLsToKeepUpToDate" -default ""] +set logger_primary [parameter::get -parameter "LoggerPrimaryURL" -default ""] # set up context bar set context [list] +set title "Project Manager Administration" # the unique identifier for this package set package_id [ad_conn package_id] set user_id [ad_maybe_redirect_for_registration] -# set up link to categories +# set up links set categories_link "/categories/cadmin/one-object?object_id=$package_id" +set parameters_link "/shared/parameters?package_id=$package_id&return_url=[site_node::get_package_url -package_key project-manager]admin/" +set logger_link "logger" +set logger_primary_link "logger-primary" +set logger_sync_link "logger-sync" +set update_projects_link "update-projects" +if {[empty_string_p $logger_URLs]} { + set logger_warning "not set up" +} else { + set logger_warning "Currently integrated: " +} +if {[empty_string_p $logger_primary]} { + set logger_primary_warning "not set up" +} else { + set logger_primary_warning "Currently selected: " +} + # permissions -permission::require_permission -party_id $user_id -object_id $package_id -privilege read +permission::require_permission -party_id $user_id -object_id $package_id -privilege admin set write_p [permission::permission_p -object_id $package_id -privilege write] set create_p [permission::permission_p -object_id $package_id -privilege create]