[Bps-public-commit] r14764 - Prophet/branches/creator/lib/Prophet/Replica

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug  4 16:33:26 2008
New Revision: 14764

Modified:
   Prophet/branches/creator/lib/Prophet/Replica/Native.pm

Log:
When we begin a changeset, tag it with its creator

Modified: Prophet/branches/creator/lib/Prophet/Replica/Native.pm
==============================================================================
--- Prophet/branches/creator/lib/Prophet/Replica/Native.pm	(original)
+++ Prophet/branches/creator/lib/Prophet/Replica/Native.pm	Mon Aug  4 16:33:26 2008
@@ -659,8 +659,11 @@
 
 sub begin_edit {
     my $self = shift;
-    $self->current_edit(
-        Prophet::ChangeSet->new( { source_uuid => $self->uuid } ) );
+    my $changeset = Prophet::ChangeSet->new({
+        creator     => $self->changeset_creator,
+        source_uuid => $self->uuid,
+    });
+    $self->current_edit($changeset);
     $self->current_edit_records([]);
 
 }