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);