added commit changes

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index 6db19ea..1fb2cde 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -51,6 +51,7 @@ sub _edit_path {
 sub edits {
        my ( $self ) = @_;
        my $path = $self->param('path') || $self->session('path');
+       my $commit = $self->param('commit');
        my ( $items, $unique2id );
        if ( my $apply_on_path = $self->param('apply_on_path') ) {
                $items = $MojoFacets::Data::loaded->{$apply_on_path}->{data}->{items};
@@ -70,8 +71,11 @@ sub edits {
                                        $unique2id->{$pk}->{ $items->[$i]->{$pk}->[0] } = $i;
                                }
                        }
-                       my $i = $unique2id->{$pk}->{$id};
-                       my $status = defined $i ? 'found' : 'missing';
+                       my $status = 'missing';
+                       if ( my $i = $unique2id->{$pk}->{$id} ) {
+                               $status = 'found';
+                               $items->[$i]->{$pk} = $e->{new} if $commit;
+                       }
                        $e->{_status} = $status;
                        $stats->{$status}++;
                }

diff --git a/templates/changes/edits.html.ep b/templates/changes/edits.html.ep
index f1417db..953b989 100644 (file)
--- a/templates/changes/edits.html.ep
+++ b/templates/changes/edits.html.ep
@@ -12,7 +12,6 @@
 % }
 </select>
 <label><input type=checkbox name=dump <%= $dump ? 'checked' : '' %>>dump</label>
-</form>
 
 % if ( $apply_on_path ) {
 <ul id=status>
@@ -24,8 +23,13 @@
 </label>
 %  }
 </ul>
+
+<input type=submit name=commit value="Commit changes">
+
 % }
 
+</form>
+
 <table>
 <tr><th></th><th>old</th><th>new</th></tr>