Content aus anderen Quellen
my $vinyl = $blio->nodes_by_url->{'vinyl.html'};
my $DBH = DBI->connect( "dbi:SQLite:dbname=sqlite/vinyl.db" );
my $sth = $DBH->prepare( "select * from vinyl order by buy DESC,id DESC" );
$sth->execute;
while (my $r=$sth->fetchrow_hashref) {
my $title = $r->{artist}.' - '.$r->{name};
my $id = $r->{id};
my $url = "vinyl/$id.html";
my $node = Blio::Node->new(
base_dir => $blio->source_dir,
source_file => file($vinyldb),
id=>'vinyl/'.$id,
url=>$url,
title=>$title,
date=>$r->{date},
content=>$r->{content},
);
$blio->nodes_by_url->{$url}=$node;
$vinyl->add_child($node);
$node->parent($vinyl);
}