#!/usr/bin/perl -w
use DBI;
use Date::Calc qw(Today);
use CGI qw(:standard);
print "Content-type: text/plain\n\n";
$theDB = DBI ->connect ('DBI:mysql:ecsmedia', 'ecsmedia', 'S3cq8esL') or die("Cannot connect.\n");
($year,$month,$day) = Today();
$theProduct = param("filename");
$theDate = "$month/$day/".substr($year, -2);
$theReferrer = $ENV{'HTTP_REFERER'};
$Query = "SELECT * FROM productCounters WHERE Product='$theProduct' AND Date='$theDate'";
$result = $theDB->prepare($Query) or die("error preparing SQL\n");
$result->execute() or die("error executing SQL\n");
if (@row = $result->fetchrow_array) {
$newCount = $row[2] + 1;
$newReferrer = $row[3].",".$theReferrer;
$Query = "UPDATE productCounters SET Count=$newCount, Referrers='$newReferrer' WHERE Product='$theProduct' AND Date='$theDate'";
$theDB->do($Query) or die("Invalid update");
}
else{
$Query = "INSERT INTO productCounters (Product, Date, Count, Referrers) VALUES ('$theProduct','$theDate','1','$theReferrer')";
$theDB->do($Query) or die("Invalid insert");
}
$result->finish();
$theDB->disconnect();
| |
 |
RHYTHM PERFORMANCE TEST REVISED
by John Flohr
The Rhythm Performance Test-Revised (RPT-R) is a computer-based
test instrument designed to assess performance of steady beat and rhythm
patterns by children, ages 4-12. It is a standardized, norm-referenced
instrument that measures rhythmic performance to an accuracy of milliseconds.
RPTR assesses skills across two domains: 1) matching the steady beat
of recorded examples and 2) listening to and repeating rhythm patterns.
It may be used: as a screening tool of rhythm performance skills; as
a tool for identifying areas of rhythmic performance skill; as a research
tool for assessing pre-post intervention changes in rhythm performance;
and as a stand-alone assessment of a child's rhythm performance skill
or as part of an assessment of a child's overall music skills.
|
| |
The Rhythm Performance Test-Revised is not currently available for
demo download from the internet.
|
Windows CD-ROM: 1515CD
Single Station Price: $59.95
Lab Pack (5 stations) Price: $160.00
Site/Network License (24 stations) Price: $480.00
System requirements: Windows 98, 2000, XP
|
|
|
