From 7c95655a860e263df00376c2c1b5658f53151654 Mon Sep 17 00:00:00 2001 From: "travis%sedsystems.ca" <> Date: Tue, 1 Feb 2005 00:32:56 +0000 Subject: Bug 279700 : Move GetComments from globals.pl into Bugzilla::Bug Patch by Max Kanat-Alexander r=vladd a=justdave --- globals.pl | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'globals.pl') diff --git a/globals.pl b/globals.pl index 0c1ba852b..694d02f49 100644 --- a/globals.pl +++ b/globals.pl @@ -1147,35 +1147,6 @@ sub GetLongDescriptionAsText { return ($result, $anyprivate); } -sub GetComments { - my ($id) = (@_); - my @comments; - SendSQL("SELECT profiles.realname, profiles.login_name, - date_format(longdescs.bug_when,'%Y.%m.%d %H:%i'), - longdescs.thetext, longdescs.work_time, - isprivate, - date_format(longdescs.bug_when,'%Y%m%d%H%i%s') - FROM longdescs, profiles - WHERE profiles.userid = longdescs.who - AND longdescs.bug_id = $id - ORDER BY longdescs.bug_when"); - - while (MoreSQLData()) { - my %comment; - ($comment{'name'}, $comment{'email'}, $comment{'time'}, - $comment{'body'}, $comment{'work_time'}, - $comment{'isprivate'}, $comment{'when'}) = FetchSQLData(); - - $comment{'email'} .= Param('emailsuffix'); - $comment{'name'} = $comment{'name'} || $comment{'email'}; - - push (@comments, \%comment); - } - - return \@comments; -} - - # Fills in a hashtable with info about the columns for the given table in the # database. The hashtable has the following entries: # -list- the list of column names -- cgit v1.2.3-24-g4f1b