[Bps-public-commit] App-Changeloggr branch, master, updated. 0d2c85b51328670dcafb08407a9bddd7768ab86b

[sartak at bestpractical.com]

The branch, master has been updated
       via  0d2c85b51328670dcafb08407a9bddd7768ab86b (commit)
       via  561ba21d548d0e8449a2cba3825a498c9f90618e (commit)
      from  3060b9d9ff2ba0cada647b14fea80073e6d0b843 (commit)

Summary of changes:
 bin/flip-changes |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 561ba21d548d0e8449a2cba3825a498c9f90618e
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Jul 30 14:19:08 2009 -0400

    Avoid undef warnings

diff --git a/bin/flip-changes b/bin/flip-changes
index e23959c..515706c 100644
--- a/bin/flip-changes
+++ b/bin/flip-changes
@@ -20,6 +20,7 @@ while (my $changelog = <$changelogs>) {
             current_user => App::Changeloggr::CurrentUser->superuser,
         );
         my ($ok, $msg) = $new_change->create(%values);
+        $msg ||= 'ok';
         print "created $ok - $msg\n";
 
         for my $collection ($change->votes, $change->rewordings, $change->importances) {
@@ -32,6 +33,7 @@ while (my $changelog = <$changelogs>) {
         }
 
         ($ok, $msg) = $change->delete;
+        $msg ||= 'ok';
         print "deleted $ok - $msg\n";
     }
 }

commit 0d2c85b51328670dcafb08407a9bddd7768ab86b
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Jul 30 14:19:16 2009 -0400

    Order by ID descending

diff --git a/bin/flip-changes b/bin/flip-changes
index 515706c..7912d76 100644
--- a/bin/flip-changes
+++ b/bin/flip-changes
@@ -12,6 +12,11 @@ $changelogs->unlimit;
 
 while (my $changelog = <$changelogs>) {
     my $changes = $changelog->changes;
+    $changes->order_by(
+        column => 'id',
+        order => 'desc',
+    );
+
     while (my $change = <$changes>) {
         my %values = $change->as_hash;
         delete $values{id};

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