record unique values in edit
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 2 Jun 2010 17:59:11 +0000 (19:59 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 2 Jun 2010 17:59:11 +0000 (19:59 +0200)
lib/MojoFacets/Data.pm

index 709ad3b..d767ce0 100644 (file)
@@ -736,6 +736,11 @@ sub edit {
                                new => $v,
                                time => $self->param('time') || time(),
                                user => $self->param('user') || $ENV{'LOGNAME'},
+                               unique => {
+                                       map { $_ => $loaded->{$path}->{data}->{items}->[$i]->{$_}->[0] }
+                                       grep { defined $loaded->{$path}->{stats}->{$_}->{unique} }
+                                       keys %{ $loaded->{$path}->{stats} }
+                               },
                        };
                        my $edit_path = $self->app->home->rel_dir('data') . '/' . $path . '.edits';
                        mkdir $edit_path unless -d $edit_path;