<%method doctype>
<%init>
use DBI;
use strict;
use warnings;
# Get DVDs
my $q = $dbh->prepare("SELECT * FROM dvd");
$q->execute or die "ERROR: couldn't query for DVDs! " . $dbh->errstr;
[vs] DVDs
[vs] DVDs
% while( my $hr = $q->fetchrow_hashref ){
- <% $hr->{id} %>
<% $hr->{title} %>
-
<& special.mas, table=>'dvd', ref=>$hr->{id} &>
% }; $q->finish;
<%method kata>unmedia.phtml