restore legacy attribute until we can remove it from db records

[scpubgit/stemmatology.git] / lib / Text / Tradition / Witness.pm

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index 3113e54..b3248e4 100644 (file)
--- 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',