From: Tara L Andrews <tla\@mit.edu>
Date: Thu, 1 Mar 2012 14:47:57 +0000 (+0100)
Subject: use new directory API
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d75416c00666197ed44a21485d3a5fbf836c67b7;p=scpubgit%2Fstemmatology.git

use new directory API
---

diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 69e4fca..2d734b3 100755
--- a/script/save_to_db.pl
+++ b/script/save_to_db.pl
@@ -70,7 +70,8 @@ if( $delete ) {
 
 # Now try reading the objects from the DB.
 if( $list ) {
-	foreach my $tid ( $kdb->tradition_ids ) {
+	foreach my $tref ( $kdb->traditionlist ) {
+		my $tid = $tref->{'id'};
 		my $scope = $kdb->new_scope();
 		my $t = $kdb->tradition( $tid );
 		print STDERR "$tid: Tradition '" . $t->name . "'\n";