Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl 14 Oct 2013 18:14:22 -0000 1.4 +++ openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl 21 Nov 2019 18:57:29 -0000 1.5 @@ -1,9 +1,9 @@ # packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl ad_library { - + callback implementations for bug-tracker - + @author Deds Castillo (deds@i-manila.com.ph) @creation-date 2007-07-09 } @@ -31,7 +31,7 @@ set package_key bug-tracker set package_id_list [db_list get_package_ids {}] - + if {[llength $package_id_list] > 1} { ns_log Error "acs_mail_lite::incoming_email -impl bug-tracker found two bug tracker instances that has EmailPostID ${email_post_id}. These are ${package_id_list}. Bug entry creation failed." return "" @@ -40,7 +40,7 @@ return "" } else { set package_id [lindex $package_id_list 0] - + set user_id [party::get_by_email -email $email(from)] if {$user_id eq ""} { # spam control @@ -51,7 +51,7 @@ } template::util::list_of_lists_to_array $email(bodies) email_body - + if {[exists_and_not_null email_body(text/html)]} { set body [ad_html_to_text -- $email_body(text/html)] } else { @@ -95,7 +95,7 @@ -assign_to $assign_to \ -user_id $user_id } - + } @@ -108,7 +108,7 @@ if {[bug_tracker::user_bugs_only_p]} { workflow::case::get -case_id $case_id -array case set bug_id $case(object_id) - bug_tracker::grant_direct_read_permission -bug_id $bug_id -party_id $party_id + bug_tracker::grant_direct_read_permission -bug_id $bug_id -party_id $party_id } } @@ -122,6 +122,6 @@ if {[bug_tracker::user_bugs_only_p]} { workflow::case::get -case_id $case_id -array case set bug_id $case(object_id) - bug_tracker::inherit -bug_id $bug_id -party_id $party_id + bug_tracker::inherit -bug_id $bug_id -party_id $party_id } -} \ No newline at end of file +} Index: openacs-4/packages/bug-tracker/www/admin/formwizard.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/formwizard.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/bug-tracker/www/admin/formwizard.tcl 17 May 2018 08:35:50 -0000 1.7 +++ openacs-4/packages/bug-tracker/www/admin/formwizard.tcl 21 Nov 2019 18:57:29 -0000 1.8 @@ -3,7 +3,7 @@ @creation-date 2002-03-06 Code generator to give you a head start with using ATS forms. - Generates template::form::element commands for each of the + Generates template::form::element commands for each of the attributes in a table. PostgreSQL only. } { @@ -23,7 +23,7 @@ # maps PG datatype to ATS widget array set widget_map { bool select date date timestamp date time date} -# maps PG datatype to ATS date format +# maps PG datatype to ATS date format # (can be more extensively customized; see ATS date-procs.tcl) array set date_format_map { date "MONTH DD, YYYY" timestamp "MONTH DD, YYYY HH24:MI" time "HH24:MI" } @@ -87,7 +87,7 @@ if {[info exists widget_map($typname)]} { set widget $widget_map($typname) } - + # See if the datatype implies another form-validation datatype if {[info exists datatype_map($typname)]} { set datatype $datatype_map($typname) @@ -96,9 +96,9 @@ # If the not null constraint does not exist, make it optional if {$attnotnull == "f"} { set optional "-optional" - } + } - # If we're using the ATS date widget, look up the format + # If we're using the ATS date widget, look up the format if {$widget eq "date"} { set format "-format \"$date_format_map($typname)\"" } @@ -112,15 +112,15 @@ set widget hidden } - # If the column has a check constraint with a set of + # If the column has a check constraint with a set of # allowable values, make a select widget if {[info exists options_map($attname)]} { set widget select set options "-options {$options_map($attname)}" } # If it's a boolean, add "Yes" and "No" options - # Note: this is not necessarily the best UI choice. + # Note: this is not necessarily the best UI choice. # Checkbox and radio elements are also available. if {$typname eq "bool"} { set options "-options {{Yes t} {No f}}" @@ -141,7 +141,7 @@ if {$widget eq "date"} { append get_values " if {\$$element_name\ ne \"\"} { set $element_name \[template::util::date::get_property sql_date \$$element_name\] - } else { + } else { set $element_name NULL } " @@ -197,7 +197,7 @@ set package_key \[ad_conn package_key\] # TODO: check that the handling of the primary key is okay. If there is -# no primary key and you're only inserting, you can just ignore it. +# no primary key and you're only inserting, you can just ignore it. # Add handling for any other incoming URL variables that should become part of the form. template::form create $form_name @@ -211,7 +211,7 @@ if {\$$primary_key\ eq \"\"} { set insert_or_update insert template::element set_properties $form_name insert_or_update -value insert - # TODO: If the form contains hidden elements that represent + # TODO: If the form contains hidden elements that represent # primary keys or foreign keys that were passed to this # page as URL parameters, set them here as follows: set $primary_key \[db_string get_seq {select nextval('${table_name}_${primary_key}_seq')}\] @@ -220,7 +220,7 @@ set insert_or_update update template::element set_properties $form_name insert_or_update -value update # Since we're editing a row, get the current values - # TODO: make sure none of the columns being selected are + # TODO: make sure none of the columns being selected are # clobbering URL variables you added to ad_page_contract!! db_1row get_current_values \" select $select_columns @@ -290,7 +290,7 @@