Commit 95570aca authored by bbaetz%acm.org's avatar bbaetz%acm.org

Bug 179513, take N. Fix the bracketing so that it actually works...

r=myk, justdave a=justdave
parent 46ce6219
...@@ -250,8 +250,8 @@ sub GenerateVersionTable { ...@@ -250,8 +250,8 @@ sub GenerateVersionTable {
print $fh "#\n"; print $fh "#\n";
require Data::Dumper; require Data::Dumper;
print($fh,Data::Dumper->Dump([\@::log_columns, \%::versions], print $fh (Data::Dumper->Dump([\@::log_columns, \%::versions],
['*::log_columns', '*::versions'])); ['*::log_columns', '*::versions']));
foreach my $i (@list) { foreach my $i (@list) {
if (!defined $::components{$i}) { if (!defined $::components{$i}) {
...@@ -259,23 +259,23 @@ sub GenerateVersionTable { ...@@ -259,23 +259,23 @@ sub GenerateVersionTable {
} }
} }
@::legal_versions = sort {uc($a) cmp uc($b)} keys(%varray); @::legal_versions = sort {uc($a) cmp uc($b)} keys(%varray);
print($fh,Data::Dumper->Dump([\@::legal_versions, \%::components], print $fh (Data::Dumper->Dump([\@::legal_versions, \%::components],
['*::legal_versions', '*::components'])); ['*::legal_versions', '*::components']));
@::legal_components = sort {uc($a) cmp uc($b)} keys(%carray); @::legal_components = sort {uc($a) cmp uc($b)} keys(%carray);
print($fh,Data::Dumper->Dump([\@::legal_components, \@::legal_product, print $fh (Data::Dumper->Dump([\@::legal_components, \@::legal_product,
\@::legal_priority, \@::legal_severity, \@::legal_priority, \@::legal_severity,
\@::legal_platform, \@::legal_opsys, \@::legal_platform, \@::legal_opsys,
\@::legal_bug_status, \@::legal_resolution], \@::legal_bug_status, \@::legal_resolution],
['*::legal_components', '*::legal_product', ['*::legal_components', '*::legal_product',
'*::legal_priority', '*::legal_severity', '*::legal_priority', '*::legal_severity',
'*::legal_platform', '*::legal_opsys', '*::legal_platform', '*::legal_opsys',
'*::legal_bug_status', '*::legal_resolution'])); '*::legal_bug_status', '*::legal_resolution']));
print($fh,Data::Dumper->Dump([\@::settable_resolution, \%::proddesc, print $fh (Data::Dumper->Dump([\@::settable_resolution, \%::proddesc,
\@::enterable_products, \%::prodmaxvotes], \@::enterable_products, \%::prodmaxvotes],
['*::settable_resolution', '*::proddesc', ['*::settable_resolution', '*::proddesc',
'*::enterable_products', '*::prodmaxvotes'])); '*::enterable_products', '*::prodmaxvotes']));
if ($dotargetmilestone) { if ($dotargetmilestone) {
# reading target milestones in from the database - matthew@zeroknowledge.com # reading target milestones in from the database - matthew@zeroknowledge.com
...@@ -298,12 +298,12 @@ sub GenerateVersionTable { ...@@ -298,12 +298,12 @@ sub GenerateVersionTable {
} }
} }
print($fh,Data::Dumper->Dump([\%::target_milestone, print $fh (Data::Dumper->Dump([\%::target_milestone,
\@::legal_target_milestone, \@::legal_target_milestone,
\%::milestoneurl], \%::milestoneurl],
['*::target_milestone', ['*::target_milestone',
'*::legal_target_milestone', '*::legal_target_milestone',
'*::milestoneurl'])); '*::milestoneurl']));
} }
SendSQL("SELECT id, name FROM keyworddefs ORDER BY name"); SendSQL("SELECT id, name FROM keyworddefs ORDER BY name");
...@@ -314,8 +314,8 @@ sub GenerateVersionTable { ...@@ -314,8 +314,8 @@ sub GenerateVersionTable {
$::keywordsbyname{$name} = $id; $::keywordsbyname{$name} = $id;
} }
print($fh,Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname], print $fh (Data::Dumper->Dump([\@::legal_keywords, \%::keywordsbyname],
['*::legal_keywords', '*::keywordsbyname'])); ['*::legal_keywords', '*::keywordsbyname']));
print $fh "1;\n"; print $fh "1;\n";
close $fh; close $fh;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment