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

[sartak at bestpractical.com]

The branch, master has been updated
       via  a258f15f10ad77c532e93daafed375561d7fd227 (commit)
       via  0f5073b3ce396efd3f25bd85ad4e488342d71e89 (commit)
      from  93deb5e81ea125711d27801ded02e00553e6f9e6 (commit)

Summary of changes:
 lib/App/Changeloggr/Model/Change.pm           |    4 ++++
 lib/App/Changeloggr/Model/ChangeCollection.pm |   19 ++++++++++---------
 2 files changed, 14 insertions(+), 9 deletions(-)

- Log -----------------------------------------------------------------
commit 0f5073b3ce396efd3f25bd85ad4e488342d71e89
Author: Shawn M Moore <sartak at gmail.com>
Date:   Mon Mar 30 14:26:59 2009 -0400

    Add a "raw" column to the change model, for forward compat

diff --git a/lib/App/Changeloggr/Model/Change.pm b/lib/App/Changeloggr/Model/Change.pm
index 8bf54a7..d1dbd11 100644
--- a/lib/App/Changeloggr/Model/Change.pm
+++ b/lib/App/Changeloggr/Model/Change.pm
@@ -8,6 +8,10 @@ use App::Changeloggr::Record schema {
     column changelog =>
         refers_to App::Changeloggr::Model::Changelog;
 
+    column raw =>
+        type is 'text',
+        label is 'Raw';
+
     column identifier =>
         type is 'text',
         label is 'Identifier';

commit a258f15f10ad77c532e93daafed375561d7fd227
Author: Shawn M Moore <sartak at gmail.com>
Date:   Mon Mar 30 14:27:18 2009 -0400

    Use Changeloggr's field names instead of Changelogger's field names

diff --git a/lib/App/Changeloggr/Model/ChangeCollection.pm b/lib/App/Changeloggr/Model/ChangeCollection.pm
index c785bfc..dfd47ec 100644
--- a/lib/App/Changeloggr/Model/ChangeCollection.pm
+++ b/lib/App/Changeloggr/Model/ChangeCollection.pm
@@ -66,7 +66,7 @@ sub extract_change_data_from_git {
     my %fields;
 
     if ($entry =~ /^commit (.*)$/im) {
-        $fields{commit_id} = $1;
+        $fields{identifier} = $1;
     }
     if ($entry =~ /^Author:\s*(.*)$/im) {
         $fields{author} = $1;
@@ -74,18 +74,19 @@ sub extract_change_data_from_git {
     if ($entry =~ /^(?:Author)?Date:\s*(.*)$/im) {
         $fields{date} = $1;
     }
-    if ($entry =~ /^Commit:\s*(.*)$/im) {
-        $fields{commit} = $1;
-    }
-    if ($entry =~ /^CommitDate:\s*(.*)$/im) {
-        $fields{commit_date} = $1;
-    }
+    # We don't have these columns in the database yet
+#    if ($entry =~ /^Commit:\s*(.*)$/im) {
+#        $fields{commit} = $1;
+#    }
+#    if ($entry =~ /^CommitDate:\s*(.*)$/im) {
+#        $fields{commit_date} = $1;
+#    }
 
     if ($entry =~ /.*?^(\s{4}.*?)(^\s{1,2}\S+\s+\|\s+\d+|\z)/ims) {
-        $fields{msg} = $1;
+        $fields{message} = $1;
     }
     if ($entry =~ /\n(\s{1,2}\S+\s+\|\s+\d+.*)$/ims) {
-        $fields{changed_files} = $1;
+        $fields{diff} = $1;
     }
 
     return (\%fields, $text);

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