change convenience dsn

diff --git a/base/script/dblookup.pl b/base/script/dblookup.pl
index 16ee440..6e3d785 100755 (executable)
--- a/base/script/dblookup.pl
+++ b/base/script/dblookup.pl
@@ -12,7 +12,7 @@ binmode( STDOUT, ':utf8' );
 binmode( STDERR, ':utf8' );
 
 my( $name, $delete, $dbuser, $dbpass );
-my( $list, $dsn ) = ( 1, 'dbi:SQLite:dbname=stemmaweb/db/traditions.db' );
+my( $list, $dsn ) = ( 1, 'dbi:SQLite:dbname=db/traditions.db' );
 
 GetOptions( 
        'r|rename=s' => \$name,

diff --git a/base/script/make_tradition.pl b/base/script/make_tradition.pl
index 16d8519..f4eaf16 100755 (executable)
--- a/base/script/make_tradition.pl
+++ b/base/script/make_tradition.pl
@@ -15,7 +15,7 @@ eval { no warnings; binmode $DB::OUT, ":utf8"; };
 
 # Variables with defaults
 my( $informat, $outformat, $language, $name, $sep, $dsn )  = ( '', '', 'Default', 
-       'Tradition', "\t", "dbi:SQLite:dbname=stemmaweb/db/traditions.db" );
+       'Tradition', "\t", "dbi:SQLite:dbname=db/traditions.db" );
 # Variables with no default
 my( $inbase, $help, $stemmafile,  $dbuser, $dbpass, $from, $to, $dbid, $debug, $nonlinear );