Commit 530879b4 authored by jake%acutex.net's avatar jake%acutex.net

Fixing tinderbox bustage (removing <Tab>s and adding a "use vars" line)

parent 6123fc3f
...@@ -27,6 +27,7 @@ use strict; ...@@ -27,6 +27,7 @@ use strict;
use DBI; use DBI;
use RelationSet; use RelationSet;
use vars qw($unconfirmedstate $legal_keywords);
require "globals.pl"; require "globals.pl";
require "CGI.pl"; require "CGI.pl";
package Bug; package Bug;
...@@ -86,7 +87,7 @@ sub initBug { ...@@ -86,7 +87,7 @@ sub initBug {
} }
else { else {
if ($user_id =~ /^\@/) { if ($user_id =~ /^\@/) {
$user_id = &::DBname_to_id($user_id); $user_id = &::DBname_to_id($user_id);
} }
} }
...@@ -127,11 +128,11 @@ sub initBug { ...@@ -127,11 +128,11 @@ sub initBug {
"bug_file_loc", "short_desc", "target_milestone", "bug_file_loc", "short_desc", "target_milestone",
"qa_contact", "status_whiteboard", "creation_ts", "qa_contact", "status_whiteboard", "creation_ts",
"groupset", "delta_ts", "votes") { "groupset", "delta_ts", "votes") {
$fields{$field} = shift @row; $fields{$field} = shift @row;
if ($fields{$field}) { if ($fields{$field}) {
$self->{$field} = $fields{$field}; $self->{$field} = $fields{$field};
} }
$count++; $count++;
} }
} else { } else {
&::SendSQL("select groupset from bugs where bug_id = $bug_id"); &::SendSQL("select groupset from bugs where bug_id = $bug_id");
......
...@@ -27,6 +27,7 @@ use strict; ...@@ -27,6 +27,7 @@ use strict;
use DBI; use DBI;
use RelationSet; use RelationSet;
use vars qw($unconfirmedstate $legal_keywords);
require "globals.pl"; require "globals.pl";
require "CGI.pl"; require "CGI.pl";
package Bug; package Bug;
...@@ -86,7 +87,7 @@ sub initBug { ...@@ -86,7 +87,7 @@ sub initBug {
} }
else { else {
if ($user_id =~ /^\@/) { if ($user_id =~ /^\@/) {
$user_id = &::DBname_to_id($user_id); $user_id = &::DBname_to_id($user_id);
} }
} }
...@@ -127,11 +128,11 @@ sub initBug { ...@@ -127,11 +128,11 @@ sub initBug {
"bug_file_loc", "short_desc", "target_milestone", "bug_file_loc", "short_desc", "target_milestone",
"qa_contact", "status_whiteboard", "creation_ts", "qa_contact", "status_whiteboard", "creation_ts",
"groupset", "delta_ts", "votes") { "groupset", "delta_ts", "votes") {
$fields{$field} = shift @row; $fields{$field} = shift @row;
if ($fields{$field}) { if ($fields{$field}) {
$self->{$field} = $fields{$field}; $self->{$field} = $fields{$field};
} }
$count++; $count++;
} }
} else { } else {
&::SendSQL("select groupset from bugs where bug_id = $bug_id"); &::SendSQL("select groupset from bugs where bug_id = $bug_id");
......
...@@ -103,8 +103,8 @@ sub generateSqlDeltas { ...@@ -103,8 +103,8 @@ sub generateSqlDeltas {
if ( $#insertList > -1 ) { if ( $#insertList > -1 ) {
$sqlInsert = "INSERT INTO $table ($invariantName, $columnName) VALUES " . $sqlInsert = "INSERT INTO $table ($invariantName, $columnName) VALUES " .
join (",", join (",",
map ( "($invariantValue, $_)" , @insertList ) map ( "($invariantValue, $_)" , @insertList )
); );
} }
# construct the delete list by seeing which relations exist in the # construct the delete list by seeing which relations exist in the
......
...@@ -103,8 +103,8 @@ sub generateSqlDeltas { ...@@ -103,8 +103,8 @@ sub generateSqlDeltas {
if ( $#insertList > -1 ) { if ( $#insertList > -1 ) {
$sqlInsert = "INSERT INTO $table ($invariantName, $columnName) VALUES " . $sqlInsert = "INSERT INTO $table ($invariantName, $columnName) VALUES " .
join (",", join (",",
map ( "($invariantValue, $_)" , @insertList ) map ( "($invariantValue, $_)" , @insertList )
); );
} }
# construct the delete list by seeing which relations exist in the # construct the delete list by seeing which relations exist in the
......
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