Bug 714370 - Add accessors to the Flag.pm object for modification_date and creation_date

r=glob

diff --git a/Bugzilla/Flag.pm b/Bugzilla/Flag.pm
index 76d950994cc2bd92060ad584406f4f779e89952c..7db80c458fcc718ad5ccee7cc3318a93fa0db9d5 100644 (file)
--- a/Bugzilla/Flag.pm
+++ b/Bugzilla/Flag.pm
@@ -84,6 +84,8 @@ use constant DB_COLUMNS => qw(
     type_id
     bug_id
     attach_id
+    creation_date
+    modification_date
     requestee_id
     setter_id
     status
@@ -132,6 +134,14 @@ Returns the ID of the attachment this flag belongs to, if any.
 
 Returns the status '+', '-', '?' of the flag.
 
+=item C<creation_date>
+
+Returns the timestamp when the flag was created.
+
+=item C<modification_date>
+
+Returns the timestamp when the flag was last modified.
+
 =back
 
 =cut
@@ -144,6 +154,8 @@ sub attach_id    { return $_[0]->{'attach_id'};    }
 sub status       { return $_[0]->{'status'};       }
 sub setter_id    { return $_[0]->{'setter_id'};    }
 sub requestee_id { return $_[0]->{'requestee_id'}; }
+sub creation_date     { return $_[0]->{'creation_date'};     }
+sub modification_date { return $_[0]->{'modification_date'}; }
 
 ###############################
 ####       Methods         ####
@@ -450,6 +462,7 @@ sub update {
     if (scalar(keys %$changes)) {
         $dbh->do('UPDATE flags SET modification_date = ? WHERE id = ?',
                  undef, ($timestamp, $self->id));
+        $self->{'modification_date'} = $timestamp;
     }
     return $changes;
 }