<%args> $artist <%init> use DBI; use strict; use warnings; # Get artist's name my $qa = $dbh->prepare("SELECT name FROM person WHERE (id = ?)"); my $q = $dbh->prepare("SELECT cd.id AS id, cd.title AS title, person.name AS name FROM cd INNER JOIN person ON (cd.artist1 = person.id) WHERE (cd.artist1 = ?) ORDER BY cd.title"); $qa->execute($artist) or die "ERROR: couldn't query for artist! " . $dbh->errstr; my $name = ($qa->fetchrow_array)[0]; $qa->finish; $q->execute($artist) or die "ERROR: couldn't query cds! " . $dbh->errstr; [.\] Volker's CD shelf \\ CDs by artist: <% $name %>

Volker's CD shelf \\ CDs by artist: <% $name %>

<& /special.mas, table=>'person', ref=>$artist, heading=>'

Special Info:

' &>

CD titles:

<%method kata>noise.phtml