[Bps-public-commit] App-Changeloggr branch, master, updated. 3060b9d9ff2ba0cada647b14fea80073e6d0b843

[sartak at bestpractical.com]

The branch, master has been updated
       via  3060b9d9ff2ba0cada647b14fea80073e6d0b843 (commit)
       via  bf96732c1b000711c183ccf0232508b6c7f0be89 (commit)
      from  55538ed5e8469041ad7e5cd20de780d39652542e (commit)

Summary of changes:
 bin/flip-changes                    |   13 +++++++------
 lib/App/Changeloggr/Model/Change.pm |    7 +++++++
 2 files changed, 14 insertions(+), 6 deletions(-)

- Log -----------------------------------------------------------------
commit bf96732c1b000711c183ccf0232508b6c7f0be89
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Jul 30 14:16:47 2009 -0400

    Change->importances

diff --git a/lib/App/Changeloggr/Model/Change.pm b/lib/App/Changeloggr/Model/Change.pm
index 9af43ab..930f86f 100644
--- a/lib/App/Changeloggr/Model/Change.pm
+++ b/lib/App/Changeloggr/Model/Change.pm
@@ -71,6 +71,13 @@ sub rewordings {
     return $rewordings;
 }
 
+sub importances {
+    my $self = shift;
+    my $importances = App::Changeloggr::Model::ImportanceCollection->new;
+    $importances->limit( column => 'change_id', value => $self->id );
+    return $importances;
+}
+
 sub grouped_votes {
     my $self = shift;
     my $votes = $self->votes;

commit 3060b9d9ff2ba0cada647b14fea80073e6d0b843
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Jul 30 14:16:59 2009 -0400

    Move rewordings and importances forward in flip-changes

diff --git a/bin/flip-changes b/bin/flip-changes
index 3545f0c..e23959c 100644
--- a/bin/flip-changes
+++ b/bin/flip-changes
@@ -22,12 +22,13 @@ while (my $changelog = <$changelogs>) {
         my ($ok, $msg) = $new_change->create(%values);
         print "created $ok - $msg\n";
 
-        my $votes = $change->votes;
-        while (my $vote = <$votes>) {
-            $vote->__set(
-                column => 'change_id',
-                value  => $new_change->id,
-            );
+        for my $collection ($change->votes, $change->rewordings, $change->importances) {
+            while (my $record = <$collection>) {
+                $record->__set(
+                    column => 'change_id',
+                    value  => $new_change->id,
+                );
+            }
         }
 
         ($ok, $msg) = $change->delete;

-----------------------------------------------------------------------