NEW RELEASES
Pete Heller
Dirty Grooves- Nite:Life 014
(NRK)
Rithma
Music Fiction
(Om Records)
DJ Sage
Drum & Bass Elements 01
(Moonshine)
Darren Emerson & Mutiny
Underwater Episode vol.2
(Underwater Records)
Jamez
Dreamchasing
(Future Groove)
Dave Ralph
Resident Alien
(System Recordings)
Jaga Jazzist
Stix
(Ninja Tune)
|
.
|
<%doc>
URL TYPE 1 - /reviews/r0201_001.htm
URL TYPE 2 - /reviews/pf_r0201_001.htm
URL TYPE 3 - /reviews/ft/20020321/7823/Straight_Edge_Trio.html
URL TYPE 4 - /reviews/pf/20020321/7823/Straight_Edge_Trio.html
<%init>
my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web');
<%cleanup>
$dbh->disconnect();
<%perl>
my @args = split('/', $r->uri);
my ($title, $album, $artist, $id, $month, $year, $seq, $sql, $stmt);
if ($args[2] =~ /r(\d\d)(\d\d)_(\d+)\.(htm|html)/i)
{
$month = $1;
$year = $2;
$seq = $3;
$sql = "SELECT album, artist, id FROM cd_review WHERE month = ? and year = ? and seq = ?";
$stmt = $dbh->prepare($sql);
$stmt->execute($month, $year, $seq);
($album, $artist, $id) = $stmt->fetchrow_array();
$stmt->finish();
}
elsif ($args[2] =~ /^(pf|ft)$/i and $args[3] =~ /^(\d+)$/ and
$args[4] =~ /^(\d+)$/ and
$args[5] =~ /^(\w+)\.(htm|html)$/i)
{
$id = $2;
$sql = "SELECT album, artist FROM cd_review WHERE id = ?";
$stmt = $dbh->prepare($sql);
$stmt->execute($id);
($album, $artist) = $stmt->fetchrow_array();
$stmt->finish();
}
if ($album and $artist) {
$title = "$artist - $album";
}
else {
$m->comp('/title.tmp', static_title => 1);
}
<% $title %>
 |
 |
<& /adsystem/rotate.tmp &>
|
|
|
 |
|
NEW RELEASES
Pete Heller
Dirty Grooves- Nite:Life 014
(NRK)
Rithma
Music Fiction
(Om Records)
DJ Sage
Drum & Bass Elements 01
(Moonshine)
Darren Emerson & Mutiny
Underwater Episode vol.2
(Underwater Records)
Jamez
Dreamchasing
(Future Groove)
Dave Ralph
Resident Alien
(System Recordings)
Jaga Jazzist
Stix
(Ninja Tune)
|
.
|
<%doc>
## DAILY.HTML ## 04-13-2002 ##
days_past - Number of days to go back
review_limit - Amount of reviews to display for each past day (see days_past above)
- Review limit of -1 means to grab them all.
Simply set the variables below to new defaults or reference them in a URL like:
http://www.allaboutjazz.com/dir/daily.html?days_past=2&review_limit=20
<%args>
$days_past => 10
$review_limit => -1
$genre => ""
<%init>
my $dbh = DBI->connect("DBI:mysql:aadj", 'vxweb', 'vx232web');
my ($id, $album, $artist, $origfile, $pubdays, $pretty);
my ($genre_id, $genre_name) = split (/\|/, $genre);
my $sql = "SELECT DISTINCT id, artist, album, origfile, TO_DAYS(date_published) As DateDays, \n";
$sql .= "DATE_FORMAT(date_published, '%M %e, %Y') As PrettyDate \n";
$sql .= "FROM cd_review \n";
$sql .= "WHERE date_published IS NOT NULL and status = 10 \n";
$sql .= "and date_published >= SUBDATE(NOW(), INTERVAL $days_past DAY) \n" if $days_past > 0;
$sql .= "and (genre = " . $dbh->quote($genre_name) . " or genre_id = $genre_id) \n" if $genre_name or $genre_id > 0;
$sql .= "ORDER BY TO_DAYS(date_published) DESC, album \n";
$sql .= "LIMIT $review_limit\n" if $review_limit > 0;
my $sql2 = "SELECT id, name from genre order by name";
<%cleanup>
$dbh->disconnect();
|
|
<& /adsystem/rotate.tmp &>
|
|
| All material copyright © 2003 All About DJ and contributing writers. All rights reserved. |
Privacy Policy |
|
|
