From: Tara L Andrews <tla\@mit.edu>
Date: Tue, 17 Apr 2012 08:47:11 +0000 (+0200)
Subject: restore legacy attribute until we can remove it from db records
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6352885679bcdd3fee8ac1d79f2a981a713db461;hp=06e7cbc7f347e9a50ef98bfb0ab92de31b398961;p=scpubgit%2Fstemmatology.git

restore legacy attribute until we can remove it from db records
---

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index 3113e54..b3248e4 100644
--- a/lib/Text/Tradition/Witness.pm
+++ b/lib/Text/Tradition/Witness.pm
@@ -250,6 +250,13 @@ has 'sourcetype' => (
 	required => 1, 
 );
 
+has 'source' => (
+	is => 'ro',
+	isa => 'Str',
+	predicate => 'has_old_source',
+	clearer => 'clear_old_source',
+);
+
 has 'file' => (
 	is => 'ro',
 	isa => 'Str',