[Bps-public-commit] r14962 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Sat Aug  9 17:51:44 2008
New Revision: 14962

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Record.pm

Log:
 r69039 at onn:  sartak | 2008-08-09 17:20:51 -0400
 Default each record's creator to changeset_creator at replica_uuid


Modified: Prophet/trunk/lib/Prophet/Record.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Record.pm	(original)
+++ Prophet/trunk/lib/Prophet/Record.pm	Sat Aug  9 17:51:44 2008
@@ -462,6 +462,20 @@
     return 1;
 }
 
+=head2 default_prop_creator
+
+Default the creator of every record to the changeset_creator @ replica uuid
+
+=cut
+
+sub default_prop_creator {
+    my $self = shift;
+
+    return sprintf '%s@%s',
+        $self->handle->changeset_creator,
+        $self->handle->uuid;
+}
+
 =head2 _default_summary_format
 
 A string of the default summary format for record types that do not