From: Tara L Andrews Date: Fri, 20 Jan 2012 11:18:04 +0000 (+0100) Subject: never mind the test db; allow non-Self files to be saved to db X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=683f22b1428e77a1b61a56600e5f5ba9575f7af0;p=scpubgit%2Fstemmatology.git never mind the test db; allow non-Self files to be saved to db --- diff --git a/script/save_to_db.pl b/script/save_to_db.pl index 936e6a9..0532ca2 100755 --- a/script/save_to_db.pl +++ b/script/save_to_db.pl @@ -11,11 +11,12 @@ use Text::Tradition::Directory; binmode( STDOUT, ':utf8' ); binmode( STDERR, ':utf8' ); -my( $tfile, $sfile, $delete, $list, $dsn ) = - ( undef, undef, undef, 0, 'dbi:SQLite:dbname=db/traditions.db' ); +my( $tfile, $format, $sfile, $delete, $list, $dsn ) = + ( undef, 'Self', undef, undef, 0, 'dbi:SQLite:dbname=db/traditions.db' ); GetOptions( 't|tradition=s' => \$tfile, + 'f|format=s' => \$format, 's|stemma=s' => \$sfile, 'l|list' => \$list, 'd|delete=s' => \$delete, @@ -43,7 +44,7 @@ my( $tradition, $stemma ); if( $tfile ) { print STDERR "Reading tradition from $tfile\n"; $tradition = Text::Tradition->new( - 'input' => 'Self', + 'input' => $format, 'file' => $tfile, 'linear' => 1, ); diff --git a/stemmaweb/db/traditions.db b/stemmaweb/db/traditions.db deleted file mode 100644 index 1f06d53..0000000 Binary files a/stemmaweb/db/traditions.db and /dev/null differ