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 <mkanat@kerio.com>   r=vladd  a=justdave

---
 Bugzilla/Bug.pm | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

(limited to 'Bugzilla')

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index 85f7ee030..ad48e763f 100755
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -308,7 +308,7 @@ sub longdescs {
 
     return $self->{'longdescs'} if exists $self->{'longdescs'};
 
-    $self->{'longdescs'} = &::GetComments($self->{bug_id});
+    $self->{'longdescs'} = GetComments($self->{bug_id});
 
     return $self->{'longdescs'};
 }
@@ -504,6 +504,38 @@ sub ValidateTime {
   }
 }
 
+sub GetComments {
+    my ($id) = (@_);
+    my $dbh = Bugzilla->dbh;
+    my @comments;
+    my $sth = $dbh->prepare(
+            "SELECT  profiles.realname AS name, profiles.login_name AS email,
+                     date_format(longdescs.bug_when,'%Y.%m.%d %H:%i') AS time,
+                     longdescs.thetext AS body, 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 = ?
+            ORDER BY longdescs.bug_when");
+    $sth->execute($id);
+
+    while (my $comment_ref = $sth->fetchrow_hashref()) {
+        my %comment = %$comment_ref;
+
+        # Can't use "when" as a field name in MySQL
+        $comment{'when'} = $comment{'bug_when'};
+        delete($comment{'bug_when'});
+
+        $comment{'email'} .= Param('emailsuffix');
+        $comment{'name'} = $comment{'name'} || $comment{'email'};
+
+        push (@comments, \%comment);
+    }
+
+    return \@comments;
+}
+
 sub AUTOLOAD {
   use vars qw($AUTOLOAD);
   my $attr = $AUTOLOAD;
-- 
cgit v1.2.1