Index: openacs-4/packages/project-manager/www/admin/logger-primary.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/logger-primary.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/project-manager/www/admin/logger-primary.tcl 26 May 2005 09:34:30 -0000 1.3 +++ openacs-4/packages/project-manager/www/admin/logger-primary.tcl 1 Jun 2005 08:09:28 -0000 1.4 @@ -1,29 +1,30 @@ # /project-manager/www/admin/logger-primary.tcl ad_page_contract { - Sets up which instances of logger to integrate with project-manager - + @author Jade Rubick (jader@bread.com) @creation-date 2004-05-21 @arch-tag: bac17115-5b9e-4b63-adac-8deb6fef3015 @cvs-id $Id$ } { - } -properties { } -validate { } -errors { } # set up context bar and title + set context [list "Logger integration"] set title "Administration: setting up primary logger instance" set package_id [ad_conn package_id] -set possible_URLs [parameter::get -parameter "LoggerURLsToKeepUpToDate" -default ""] +set possible_URLs [parameter::get \ + -parameter "LoggerURLsToKeepUpToDate" -default ""] -set logger_primary [parameter::get -parameter "LoggerPrimaryURL" -default ""] +set logger_primary [parameter::get \ + -parameter "LoggerPrimaryURL" -default ""] ad_form -name logger \ -form { @@ -37,29 +38,26 @@ lappend logger_options [list $url $url] } -set logger_definition " +set logger_definition { {package_url:text(select) - {label \"[_ project-manager.lt_Primary_logger_instan]"} - {options {$logger_options}} - {value $logger_primary} + {label "[_ project-manager.lt_Primary_logger_instan]"} + {options {$logger_options}} + {value $logger_primary} } -" +} - ad_form -extend -name logger \ -form $logger_definition - ad_form -extend -name logger \ -on_submit { - parameter::set_value \ + parameter::set_value \ -package_id $package_id \ -parameter LoggerPrimaryURL \ -value "$package_url" - ad_returnredirect -message "[_ project-manager.lt_Primary_logger_instan_1]" . - + ad_returnredirect -message "[_ project-manager.lt_Primary_logger_instan_1]" . } \ -new_data { } \