get_page_content("some_type");
####
$default_font_family = get_page_content("default_font_family");
####
my $type = shift;
my $dbh = DB_File::connect();
$sth = $dbh->prepare (qq{ SELECT name,content FROM page_vars WHERE type = ? });
$sth->execute($type);
while ( my ($db_name,$db_content) = $sth->fetchrow_hashref() ) {
${$db_name} = $db_content;
}
$sth->finish();
return 1;
####
my $type = shift;
my $dbh = DB_File::connect();
$sth = $dbh->prepare (qq{ SELECT name,content FROM page_vars WHERE type = ? });
$sth->execute($type);
my %vars;
while (my ($db_name,$db_content) = $sth->fetchrow_hashref()) {
$vars{$db_name} = $db_content;
}
$sth->finish();
return(%vars);