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

[sartak at bestpractical.com]

The branch, master has been updated
       via  65c754cffca159c54a571233d407e1854dc42632 (commit)
       via  45bdd923f2344faf6b427c94a8de7a42625fdee7 (commit)
      from  bf21855619d2647adfe4c85f952a2f21dae25c8c (commit)

Summary of changes:
 lib/App/Changeloggr/Model/Rewording.pm |    1 +
 lib/App/Changeloggr/View.pm            |   27 +++++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 45bdd923f2344faf6b427c94a8de7a42625fdee7
Author: Shawn M Moore <sartak at gmail.com>
Date:   Wed May 20 19:34:06 2009 -0400

    Rewording->message is a textarea

diff --git a/lib/App/Changeloggr/Model/Rewording.pm b/lib/App/Changeloggr/Model/Rewording.pm
index 10ed025..0020692 100644
--- a/lib/App/Changeloggr/Model/Rewording.pm
+++ b/lib/App/Changeloggr/Model/Rewording.pm
@@ -21,6 +21,7 @@ use App::Changeloggr::Record schema {
 
     column message =>
         type is 'text',
+        render as 'textarea',
         default is '';
 
     column date =>

commit 65c754cffca159c54a571233d407e1854dc42632
Author: Shawn M Moore <sartak at gmail.com>
Date:   Wed May 20 19:34:15 2009 -0400

    First stab at the "reword this commit message" form

diff --git a/lib/App/Changeloggr/View.pm b/lib/App/Changeloggr/View.pm
index fe69a82..1b00549 100644
--- a/lib/App/Changeloggr/View.pm
+++ b/lib/App/Changeloggr/View.pm
@@ -178,6 +178,8 @@ sub show_change {
         if ($args{voting_form}) {
             hr {};
             show_vote_form($change);
+            hr {};
+            show_rewording_form($change);
         }
     };
 }
@@ -247,6 +249,31 @@ sub show_vote_form {
     }
 }
 
+sub show_rewording_form {
+    my $change = shift;
+
+    my $create_rewording = new_action(
+        class     => "CreateRewording",
+        arguments => {
+            change_id => $change->id,
+        },
+    );
+
+    p { "Do you want to improve the content or wording of this change's message?" };
+
+    render_param $create_rewording => (
+        'message',
+        label => '',
+        default_value => $change->message,
+    );
+
+    $create_rewording->button(
+        label => 'Reword',
+        onclick => { submit => $create_rewording },
+    );
+}
+
+
 sub show_vote_comments {
     my $change = shift;
     my $votes = $change->votes;

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