Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
bugzilla
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
etersoft
bugzilla
Commits
ba10f28c
Commit
ba10f28c
authored
Mar 26, 2008
by
mkanat%bugzilla.org
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Bug 413184: Unify all of the update_ functions in Bugzilla::Bug
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=LpSolit
parent
9c41867d
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
99 additions
and
145 deletions
+99
-145
Bug.pm
Bugzilla/Bug.pm
+84
-129
process_bug.cgi
process_bug.cgi
+15
-16
No files found.
Bugzilla/Bug.pm
View file @
ba10f28c
...
@@ -523,6 +523,89 @@ sub update {
...
@@ -523,6 +523,89 @@ sub update {
}
}
}
}
# CC
my
@old_cc
=
map
{
$_
->
id
}
@
{
$old_bug
->
cc_users
};
my
@new_cc
=
map
{
$_
->
id
}
@
{
$self
->
cc_users
};
my
(
$removed_cc
,
$added_cc
)
=
diff_arrays
(
\
@old_cc
,
\
@new_cc
);
if
(
scalar
@$removed_cc
)
{
$dbh
->
do
(
'DELETE FROM cc WHERE bug_id = ? AND '
.
$dbh
->
sql_in
(
'who'
,
$removed_cc
),
undef
,
$self
->
id
);
}
foreach
my
$user_id
(
@$added_cc
)
{
$dbh
->
do
(
'INSERT INTO cc (bug_id, who) VALUES (?,?)'
,
undef
,
$self
->
id
,
$user_id
);
}
# If any changes were found, record it in the activity log
if
(
scalar
@$removed_cc
||
scalar
@$added_cc
)
{
my
$removed_users
=
Bugzilla::
User
->
new_from_list
(
$removed_cc
);
my
$added_users
=
Bugzilla::
User
->
new_from_list
(
$added_cc
);
my
$removed_names
=
join
(
', '
,
(
map
{
$_
->
login
}
@$removed_users
));
my
$added_names
=
join
(
', '
,
(
map
{
$_
->
login
}
@$added_users
));
$changes
->
{
cc
}
=
[
$removed_names
,
$added_names
];
}
# Keywords
my
@old_kw_ids
=
map
{
$_
->
id
}
@
{
$old_bug
->
keyword_objects
};
my
@new_kw_ids
=
map
{
$_
->
id
}
@
{
$self
->
keyword_objects
};
my
(
$removed_kw
,
$added_kw
)
=
diff_arrays
(
\
@old_kw_ids
,
\
@new_kw_ids
);
if
(
scalar
@$removed_kw
)
{
$dbh
->
do
(
'DELETE FROM keywords WHERE bug_id = ? AND '
.
$dbh
->
sql_in
(
'keywordid'
,
$removed_kw
),
undef
,
$self
->
id
);
}
foreach
my
$keyword_id
(
@$added_kw
)
{
$dbh
->
do
(
'INSERT INTO keywords (bug_id, keywordid) VALUES (?,?)'
,
undef
,
$self
->
id
,
$keyword_id
);
}
$dbh
->
do
(
'UPDATE bugs SET keywords = ? WHERE bug_id = ?'
,
undef
,
$self
->
keywords
,
$self
->
id
);
# If any changes were found, record it in the activity log
if
(
scalar
@$removed_kw
||
scalar
@$added_kw
)
{
my
$removed_keywords
=
Bugzilla::
Keyword
->
new_from_list
(
$removed_kw
);
my
$added_keywords
=
Bugzilla::
Keyword
->
new_from_list
(
$added_kw
);
my
$removed_names
=
join
(
', '
,
(
map
{
$_
->
name
}
@$removed_keywords
));
my
$added_names
=
join
(
', '
,
(
map
{
$_
->
name
}
@$added_keywords
));
$changes
->
{
keywords
}
=
[
$removed_names
,
$added_names
];
}
# Dependencies
foreach
my
$pair
([
qw(dependson blocked)
],
[
qw(blocked dependson)
])
{
my
(
$type
,
$other
)
=
@$pair
;
my
$old
=
$old_bug
->
$type
;
my
$new
=
$self
->
$type
;
my
(
$removed
,
$added
)
=
diff_arrays
(
$old
,
$new
);
foreach
my
$removed_id
(
@$removed
)
{
$dbh
->
do
(
"DELETE FROM dependencies WHERE $type = ? AND $other = ?"
,
undef
,
$removed_id
,
$self
->
id
);
# Add an activity entry for the other bug.
LogActivityEntry
(
$removed_id
,
$other
,
$self
->
id
,
''
,
Bugzilla
->
user
->
id
,
$delta_ts
);
# Update delta_ts on the other bug so that we trigger mid-airs.
$dbh
->
do
(
'UPDATE bugs SET delta_ts = ? WHERE bug_id = ?'
,
undef
,
$delta_ts
,
$removed_id
);
}
foreach
my
$added_id
(
@$added
)
{
$dbh
->
do
(
"INSERT INTO dependencies ($type, $other) VALUES (?,?)"
,
undef
,
$added_id
,
$self
->
id
);
# Add an activity entry for the other bug.
LogActivityEntry
(
$added_id
,
$other
,
''
,
$self
->
id
,
Bugzilla
->
user
->
id
,
$delta_ts
);
# Update delta_ts on the other bug so that we trigger mid-airs.
$dbh
->
do
(
'UPDATE bugs SET delta_ts = ? WHERE bug_id = ?'
,
undef
,
$delta_ts
,
$added_id
);
}
if
(
scalar
(
@$removed
)
||
scalar
(
@$added
))
{
$changes
->
{
$type
}
=
[
join
(
', '
,
@$removed
),
join
(
', '
,
@$added
)];
}
}
# Groups
my
%
old_groups
=
map
{
$_
->
id
=>
$_
}
@
{
$old_bug
->
groups_in
};
my
%
old_groups
=
map
{
$_
->
id
=>
$_
}
@
{
$old_bug
->
groups_in
};
my
%
new_groups
=
map
{
$_
->
id
=>
$_
}
@
{
$self
->
groups_in
};
my
%
new_groups
=
map
{
$_
->
id
=>
$_
}
@
{
$self
->
groups_in
};
my
(
$removed_gr
,
$added_gr
)
=
diff_arrays
([
keys
%
old_groups
],
my
(
$removed_gr
,
$added_gr
)
=
diff_arrays
([
keys
%
old_groups
],
...
@@ -545,6 +628,7 @@ sub update {
...
@@ -545,6 +628,7 @@ sub update {
join
(
', '
,
@added_names
)];
join
(
', '
,
@added_names
)];
}
}
# Comments
foreach
my
$comment
(
@
{
$self
->
{
added_comments
}
||
[]
})
{
foreach
my
$comment
(
@
{
$self
->
{
added_comments
}
||
[]
})
{
my
$columns
=
join
(
','
,
keys
%
$comment
);
my
$columns
=
join
(
','
,
keys
%
$comment
);
my
@values
=
values
%
$comment
;
my
@values
=
values
%
$comment
;
...
@@ -644,135 +728,6 @@ sub _extract_multi_selects {
...
@@ -644,135 +728,6 @@ sub _extract_multi_selects {
return
\%
ms_values
;
return
\%
ms_values
;
}
}
# XXX Temporary hack until all of process_bug uses update().
sub
update_cc
{
my
$self
=
shift
;
my
$dbh
=
Bugzilla
->
dbh
;
my
$delta_ts
=
shift
||
$dbh
->
selectrow_array
(
"SELECT NOW()"
);
my
$old_bug
=
$self
->
new
(
$self
->
id
);
my
@old_cc
=
map
{
$_
->
id
}
@
{
$old_bug
->
cc_users
};
my
@new_cc
=
map
{
$_
->
id
}
@
{
$self
->
cc_users
};
my
(
$removed
,
$added
)
=
diff_arrays
(
\
@old_cc
,
\
@new_cc
);
if
(
scalar
@$removed
)
{
$dbh
->
do
(
'DELETE FROM cc WHERE bug_id = ? AND '
.
$dbh
->
sql_in
(
'who'
,
$removed
),
undef
,
$self
->
id
);
}
foreach
my
$user_id
(
@$added
)
{
$dbh
->
do
(
'INSERT INTO cc (bug_id, who) VALUES (?,?)'
,
undef
,
$self
->
id
,
$user_id
);
}
my
$removed_users
=
Bugzilla::
User
->
new_from_list
(
$removed
);
my
$added_users
=
Bugzilla::
User
->
new_from_list
(
$added
);
# If any changes were found, record it in the activity log
if
(
scalar
@$removed
||
scalar
@$added
)
{
my
$removed_names
=
join
(
', '
,
(
map
{
$_
->
login
}
@$removed_users
));
my
$added_names
=
join
(
', '
,
(
map
{
$_
->
login
}
@$added_users
));
LogActivityEntry
(
$self
->
id
,
"cc"
,
$removed_names
,
$added_names
,
Bugzilla
->
user
->
id
,
$delta_ts
);
}
return
(
$removed_users
,
$added_users
);
}
# XXX Temporary hack until all of process_bug uses update()
sub
update_dependencies
{
# We need to send mail for dependson/blocked bugs if the dependencies
# change or the status or resolution change. This var keeps track of that.
my
$check_dep_bugs
=
0
;
my
$self
=
shift
;
my
$dbh
=
Bugzilla
->
dbh
;
my
$delta_ts
=
shift
||
$dbh
->
selectrow_array
(
"SELECT NOW()"
);
my
$old_bug
=
$self
->
new
(
$self
->
id
);
my
%
changes
;
foreach
my
$pair
([
qw(dependson blocked)
],
[
qw(blocked dependson)
])
{
my
(
$type
,
$other
)
=
@$pair
;
my
$old
=
$old_bug
->
$type
;
my
$new
=
$self
->
$type
;
my
(
$removed
,
$added
)
=
diff_arrays
(
$old
,
$new
);
foreach
my
$removed_id
(
@$removed
)
{
$dbh
->
do
(
"DELETE FROM dependencies WHERE $type = ? AND $other = ?"
,
undef
,
$removed_id
,
$self
->
id
);
# Add an activity entry for the other bug.
LogActivityEntry
(
$removed_id
,
$other
,
$self
->
id
,
''
,
Bugzilla
->
user
->
id
,
$delta_ts
);
# Update delta_ts on the other bug so that we trigger mid-airs.
$dbh
->
do
(
'UPDATE bugs SET delta_ts = ? WHERE bug_id = ?'
,
undef
,
$delta_ts
,
$removed_id
);
}
foreach
my
$added_id
(
@$added
)
{
$dbh
->
do
(
"INSERT INTO dependencies ($type, $other) VALUES (?,?)"
,
undef
,
$added_id
,
$self
->
id
);
# Add an activity entry for the other bug.
LogActivityEntry
(
$added_id
,
$other
,
''
,
$self
->
id
,
Bugzilla
->
user
->
id
,
$delta_ts
);
# Update delta_ts on the other bug so that we trigger mid-airs.
$dbh
->
do
(
'UPDATE bugs SET delta_ts = ? WHERE bug_id = ?'
,
undef
,
$delta_ts
,
$added_id
);
}
LogActivityEntry
(
$self
->
id
,
$type
,
join
(
', '
,
@$removed
),
join
(
', '
,
@$added
),
Bugzilla
->
user
->
id
,
$delta_ts
);
$changes
{
$type
}
=
[
$removed
,
$added
];
}
return
\%
changes
;
}
# XXX Temporary hack until all of process_bug uses update()
sub
update_keywords
{
my
$self
=
shift
;
my
$dbh
=
Bugzilla
->
dbh
;
my
$delta_ts
=
shift
||
$dbh
->
selectrow_array
(
"SELECT NOW()"
);
my
$old_bug
=
$self
->
new
(
$self
->
id
);
my
@old_ids
=
map
{
$_
->
id
}
@
{
$old_bug
->
keyword_objects
};
my
@new_ids
=
map
{
$_
->
id
}
@
{
$self
->
keyword_objects
};
my
(
$removed
,
$added
)
=
diff_arrays
(
\
@old_ids
,
\
@new_ids
);
if
(
scalar
@$removed
)
{
$dbh
->
do
(
'DELETE FROM keywords WHERE bug_id = ? AND '
.
$dbh
->
sql_in
(
'keywordid'
,
$removed
),
undef
,
$self
->
id
);
}
foreach
my
$keyword_id
(
@$added
)
{
$dbh
->
do
(
'INSERT INTO keywords (bug_id, keywordid) VALUES (?,?)'
,
undef
,
$self
->
id
,
$keyword_id
);
}
$dbh
->
do
(
'UPDATE bugs SET keywords = ? WHERE bug_id = ?'
,
undef
,
$self
->
keywords
,
$self
->
id
);
my
$removed_keywords
=
Bugzilla::
Keyword
->
new_from_list
(
$removed
);
my
$added_keywords
=
Bugzilla::
Keyword
->
new_from_list
(
$added
);
# If any changes were found, record it in the activity log
if
(
scalar
@$removed
||
scalar
@$added
)
{
my
$removed_names
=
join
(
', '
,
(
map
{
$_
->
name
}
@$removed_keywords
));
my
$added_names
=
join
(
', '
,
(
map
{
$_
->
name
}
@$added_keywords
));
LogActivityEntry
(
$self
->
id
,
"keywords"
,
$removed_names
,
$added_names
,
Bugzilla
->
user
->
id
,
$delta_ts
);
$dbh
->
do
(
'UPDATE bugs SET delta_ts = ? WHERE bug_id = ?'
,
undef
,
(
$delta_ts
,
$self
->
id
));
$self
->
{
delta_ts
}
=
$delta_ts
;
}
return
[
$removed_keywords
,
$added_keywords
];
}
# Should be called any time you update short_desc or change a comment.
# Should be called any time you update short_desc or change a comment.
sub
_sync_fulltext
{
sub
_sync_fulltext
{
my
(
$self
,
$new_bug
)
=
@_
;
my
(
$self
,
$new_bug
)
=
@_
;
...
...
process_bug.cgi
View file @
ba10f28c
...
@@ -542,19 +542,17 @@ foreach my $bug (@bug_objects) {
...
@@ -542,19 +542,17 @@ foreach my $bug (@bug_objects) {
}
}
}
}
$bug
->
update_keywords
(
$timestamp
);
# To get a list of all changed dependencies, convert the "changes" arrays
# into a long string, then collapse that string into unique numbers in
my
(
$cc_removed
)
=
$bug
->
update_cc
(
$timestamp
);
# a hash.
$cc_removed
=
[
map
{
$_
->
login
}
@$cc_removed
];
my
$all_changed_deps
=
join
(
', '
,
@
{
$changes
->
{
'dependson'
}
||
[]
});
$all_changed_deps
=
join
(
', '
,
@
{
$changes
->
{
'blocked'
}
||
[]
},
my
(
$dep_changes
)
=
$bug
->
update_dependencies
(
$timestamp
);
$all_changed_deps
);
my
%
changed_deps
=
map
{
$_
=>
1
}
split
(
', '
,
$all_changed_deps
);
# Convert the "changes" hash into a list of all the bug ids, then
# When clearning one field (say, blocks) and filling in the other
# convert that into a hash to eliminate duplicates. ("map {@$_}" collapses
# (say, dependson), an empty string can get into the hash and cause
# an array of arrays.)
# an error later.
my
@all_changed_deps
=
map
{
@$_
}
@
{
$dep_changes
->
{
'dependson'
}};
delete
$changed_deps
{
''
};
push
(
@all_changed_deps
,
map
{
@$_
}
@
{
$dep_changes
->
{
'blocked'
}});
my
%
changed_deps
=
map
{
$_
=>
1
}
@all_changed_deps
;
# $msgs will store emails which have to be sent to voters, if any.
# $msgs will store emails which have to be sent to voters, if any.
my
$msgs
;
my
$msgs
;
...
@@ -582,10 +580,11 @@ foreach my $bug (@bug_objects) {
...
@@ -582,10 +580,11 @@ foreach my $bug (@bug_objects) {
MessageToMTA
(
$msg
);
MessageToMTA
(
$msg
);
}
}
my
$old_qa
=
$changes
->
{
'qa_contact'
}
?
$changes
->
{
'qa_contact'
}
->
[
0
]
:
''
;
my
$old_qa
=
$changes
->
{
'qa_contact'
}
?
$changes
->
{
'qa_contact'
}
->
[
0
]
:
''
;
my
$old_own
=
$changes
->
{
'assigned_to'
}
?
$changes
->
{
'assigned_to'
}
->
[
0
]
:
''
;
my
$old_own
=
$changes
->
{
'assigned_to'
}
?
$changes
->
{
'assigned_to'
}
->
[
0
]
:
''
;
my
$old_cc
=
$changes
->
{
cc
}
?
$changes
->
{
cc
}
->
[
0
]
:
''
;
$vars
->
{
'mailrecipients'
}
=
{
$vars
->
{
'mailrecipients'
}
=
{
cc
=>
$cc_removed
,
cc
=>
[
split
(
/[\s,]+/
,
$old_cc
)]
,
owner
=>
$old_own
,
owner
=>
$old_own
,
qacontact
=>
$old_qa
,
qacontact
=>
$old_qa
,
changer
=>
Bugzilla
->
user
->
login
};
changer
=>
Bugzilla
->
user
->
login
};
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment