use new directory API

diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 69e4fca..2d734b3 100755 (executable)
--- 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";