Database error ";
function curr_file() {
$file = $_SERVER["SCRIPT_NAME"];
$break = Explode('/', $file);
$pfile = $break[count($break) - 1];
return $pfile;
}
function get_email($name) {
global $conn;
global $mail_err;
$email = "";
$qry=
"SELECT Email
FROM Person
WHERE Email IS NOT NULL
AND concat_ws(' ',first_name,name) =
REPLACE('$name',CHAR(160),CHAR(32))";
$result = mysql_query($qry,$conn);
if (!$result) {
echo $mail_err;
return $err;
}
if ($row = mysql_fetch_array($result)) {
$email = $row["Email"];
}
return $email;
}
function get_folop_link($anchor="") {
global $conn;
global $mail_err;
$email = "";
$pfile = curr_file();
if ($anchor) {
$pfile = "${pfile}#${anchor}";
}
$qry=
"SELECT
f.ID AS ID,
f.surname_wo_accents AS ComposerFile,
p.name AS Surname,
p.first_name AS First_Name
FROM
Person p,
Folop_Composer f
WHERE f.WIMA_Composer_ID = p.ID
AND p.index_file = '$pfile'";
$result = mysql_query($qry,$conn);
if (!$result) {
echo $mail_err;
return $err;
}
if ($row = mysql_fetch_array($result)) {
$id = $row["ID"];
$composerfile = $row["ComposerFile"];
$surname = $row["Surname"];
$first_name = $row["First_Name"];
}
if (strlen($composerfile)) {
$display_name =
(strlen(${first_name}) ? "${first_name} " : "") . "${surname}";
$url = "Viol music by ${display_name}";
}
else {
$url = "";
}
return $url;
}
$flat = '♭';
$natural = '♮';
$sharp = '♯';
function flat() {
global $flat;
// return "$flat";
echo "$flat";
}
function natural() {
global $natural;
// return "$natural";
echo "$natural";
}
function sharp() {
global $sharp;
// return "$sharp";
echo "$sharp";
}
function newslim($val) {
global $newslimdays;
$result = 0;
$date_arr = explode("/",$val);
if (checkdate($date_arr[1],$date_arr[2],$date_arr[0])) {
$checktime = mktime(0,0,0,$date_arr[1],$date_arr[2],$date_arr[0]);
if ((unixtojd(time()) - unixtojd($checktime)) > $newslimdays) {
$result = 1;
}
}
return $result;
}
function style_dir() {
global $Css;
echo "$Css";
}
function double_alt($val) {
return "alt='$val' title='$val' ";
}
function ick_alt($val) {
echo double_alt($val);
}
function ick_new($val) {
global $Icons;
if (! newslim($val)) {
echo "
";
}
}
// function ick_new($val) {
// global $Icons;
// echo "";
// }
function ick_pdf() {
global $Icons;
return "
";
}
function ick_gs() {
global $Icons;
return "
";
}
function ick_png() {
global $Icons;
return "
";
}
function ick_png_img() {
global $Icons;
return "
";
}
function ick_snd() {
global $Icons;
return "
";
}
function ick_mail() {
global $Icons;
return "
";
}
function ick_protected_mail() {
global $Icons;
return "";
}
function ick_ext() {
global $Icons;
return "
";
}
function ick_info() {
global $Icons;
return "
";
}
function ick_xml() {
global $Icons;
return "
";
}
function ick_imslp() {
echo "IMSLP";
}
function ext_ref($name,$url) {
return "$name " . ick_ext() . "";
}
function ick_ext_ref($name,$url,$pdf="") {
$pdf = ($pdf ? ick_pdf() : "");
echo $pdf.ext_ref($name,$url);
}
function ick_valid_html() {
global $Icons;
/*
echo "" .
"
";
*/
}
function ick_Werner_Icking() {
echo "2001-02-08, Werner Icking (1943-2001), " .
"GMD";
}
function ick_WIMA_editor($date) {
echo "$date, " .
"" .
"Christian Mondrup, " .
"Werner Icking Music Archive";
}
function ick_score($file,$title,$info="") {
echo "" . ick_pdf() . $title .
($info ? " " . ick_info() : "") . "";
}
function ick_ps_score($file,$title,$info="") {
echo "" . ick_gs() . $title .
($info ? " " . ick_info() : "") . "";
}
function ick_png_score($file,$title,$info="") {
echo "" . ick_png_img() . " " . $title .
($info ? " " . ick_info() : "") . "";
}
function ick_preview($file,$title="") {
echo "" . ($title ? "$title " : "")
. ick_png() . "";
}
function ick_sound($file,$title="",$ext="") {
$ext = ($ext ? " " . ick_ext() : "");
echo "" . ($title ? "$title " : "") . ick_snd() . "" . $ext;
}
function ick_contributor($name="") {
echo "" .
($name ? "$name " : "") . ick_protected_mail() . "";
}
/*
function ick_mailto($addr,$name,$subj) {
echo "" .
"$name " . ick_mail() . "";
}
*/
function ick_mailto($addr,$name,$subj,$hide="") {
global $conn;
global $host;
global $uid;
global $pwd;
global $database;
global $connect_done;
$mysql_ok = "TRUE";
if ($connect_done == "FALSE") {
$conn=@mysql_connect($host,$uid,$pwd);
$connect_done = "TRUE";
}
if (!$conn) {
$mysql_ok = "FALSE";
}
if ($mysql_ok == "TRUE") {
$ok_select=@mysql_select_db($database,$conn);
if (!$ok_select) {
$mysql_ok = "FALSE";
}
}
if ($mysql_ok == "TRUE") {
$email = get_email("$name");
}
else {
echo "Database error!";
}
$name = ($hide ? "" : $name);
echo "" .
"$name " . ick_mail() . "";
}
function ick_folop_link($anchor="",$inline="") {
global $conn;
global $host;
global $uid;
global $pwd;
global $database;
global $connect_done;
$mysql_ok = "TRUE";
if ($connect_done == "FALSE") {
$conn=@mysql_connect($host,$uid,$pwd);
$connect_done = "TRUE";
}
if (!$conn) {
$mysql_ok = "FALSE";
}
if ($mysql_ok == "TRUE") {
$ok_select=@mysql_select_db($database,$conn);
if (!$ok_select) {
$mysql_ok = "FALSE";
}
}
if ($mysql_ok == "TRUE") {
$url = get_folop_link($anchor);
if (strlen($url)) {
if ($inline) {
echo "
${url}
";
}
else {
echo "${url}
";
}
}
}
else {
echo "Database error!";
}
}
function ick_source($file,$title,$mult="",$xml="",$sec="",$nospec="") {
$icon = ($xml ? ick_xml() : "");
echo ($sec ? "" : "with ") .
"$icon$title" .
($nospec ? "" : " source file") .
($mult ? "s" : "");
}
function ick_biography($url,$type="",$internal="") {
$icon = ($internal ? "" : ick_ext());
echo "biography" .
($type ? ", $type" : "" ) . " " . $icon . "";
}
function ick_intro($url,$title,$info="",$head="",$pdf="") {
$span = ($head ? " class='c4'" : "");
$icon = ($info ? ick_info() : "");
$pdf = ($pdf ? ick_pdf() : "");
echo "$pdf$title $icon";
}
function ick_news_header($mon_year,$news="") {
$icon =
($news ?
""
: "");
echo "".
"| ".$icon."".$mon_year." | ".
" | ".
" | ".
"
";
}
function ick_news_item($day,$page,$composer,$text) {
echo "".
"| ".$day." | ".
" ".$composer." | ".
"".$text." | ".
" | ".
"
";
}
?>