From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 16 Jun 2010 20:23:07 +0000 (+0200)
Subject: commit changes only to filtered items
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=81c03b24f8aa4d20592f4ead8da8584482755abb

commit changes only to filtered items
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index b086a6b..ddd5370 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -612,9 +612,10 @@ sub items {
 	my $commit = $self->param('commit');
 	my $test = $self->param('test');
 	if ( $commit ) {
-		warn "# commit $code";
-		foreach ( 0 .. $#{ $data->{items} } ) {
-			my $rec = $data->{items}->[ $_ ];
+		warn "# commit on ", $#$filtered + 1, " items:\n$code\n";
+		foreach ( 0 .. $#$filtered ) {
+			my $i = $filtered->[$_];
+			my $rec = $data->{items}->[$i];
 			eval $code;
 		}
 	}