EOF; function DirCnt($opl) { $i = 0; $handle = opendir($opl); while (false != ($file = readdir($handle))) { if (preg_match("/^1/", $file)) { $i++; } } closedir($handle); return ($i); } function dojava() { global $js; if ($js) { echo << EOF; if (!$zmob) { // Start not zmob $address2 = $address; if ($gmap2) $address2 = $address2 . "+" . $gmap2; if ($gmap3) $address2 = $address2 . "," . $gmap3; echo <<
EOF; // plot the map with default marker icon //echo $mapObj->plotgoogleMap($latlonArr); } // End not zmob echo <<Informational Text EOF; include("./.miniplac.inc"); //echo "G1=|$gmapl| G2=|$gmap2| G3=|$gmap3|
\n"; echo << EOF; } else { //echo "G1=|$gmapl| G2=|$gmap2| G3=|$gmap3|
\n"; echo <<

On-site Lectures for $address

EOF; if (!$zmob) { // Start not zmob echo "  \n"; } // End not zmob $zmini = "miniplace.inc"; echo <<

The Lectures by Places Section of the Rudolf Steiner Archive presents some of the lectures given by Rudolf Steiner in order by lecture location. They are specifically designated as lectures in the Catalogue of Holdings. Our selections of Steiner's Books and/or Articles/Essays can be referenced from here, or from the Main Steiner Archive Menu. The Table below lists the Lectures' Location, the name of the lecture, and whether an abstract of the lecture is available. Under the lecture name is the book title, if applicable. Dates are in yyyy-mm-dd format.

EOF; if (!$zmob) { // Start not zmob echo << EOF; makebox("Lecture Area Links", "center", 0, "F", "miniplac.inc", "b"); // include("miniplac.inc"); $cmap = ""; if ($latlonArr) $cmap = " [ Current Map ] "; echo << EOF; } // End not zmob } // End local .description file echo <<


EOF; if (!isset($pl)) { echo <<Select a Location, please ... \n"); if ($col > 3) { $col = 0; printf(" \n"); printf(" \n"); } printf(" \n"); printf("
EOF; $opl = ""; $tot = $yct = $i = $num = 0; $col = 1; /* unset($nams); $handle=opendir('.'); while(false!=($file=readdir($handle))) { if(preg_match("/^Compare/", $file)) continue; if(preg_match("/^[A-Z]/", $file)) { $nams[$i]=$file; $i++; } } closedir($handle); for($i=0; $i < $cnt; $i++) { $nams=explode("\n", file_get_contents('.dirs')); */ $nams = file('.dirs', FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES); sort($nams); $cnt = count($nams); $opl = $nams[0]; // echo "OPL=|$opl| CNT=|$cnt|\n"; foreach ($nams as $file) { // $file=$nams[$i]; if ($opl != $file) { $yct = DirCnt($opl); $dpl = preg_replace("/_/", " ", $opl); printf(" \n"); printf(" \n", $dpl); printf(" \n", $yct); printf("
"); printf("\".\""); printf(" %s
%s Lectures
\n"); printf("
 
\n"); $jav[$num] = "On-site Lectures for " . $opl; $opl = $file; if (!is_link($opl)) $tot += $yct; $yct = 0; $col++; $num++; } } $yct = DirCnt($opl); $dpl = preg_replace("/_/", " ", $opl); printf(" \n"); printf(" \n", $dpl); printf(" \n", $yct); printf("
"); printf("\".\""); printf(" %s
%s Lectures
\n"); printf("
\n"); $jav[$num] = "On-site Lectures for " . $opl; $num++; dojava(); for ($i = 0; $i < $num; $i++) { printf("var status%s = \"%s\";\n", $i + 100, $jav[$i]); } if (!is_link($opl)) $tot += $yct; $mes = "Total On-site Lectures"; } else { $dpl = preg_replace("/_/", " ", $pl); ?>

Selected Lectures for ...

\n"; sort($nams); $tot = 0; $xel = "rel=\"nofollow\""; if ($xdir == "Articles") $xel = ""; for ($i = 0; $i < $cnt; $i++) { //list($nam,$url,$byt,$nm,$nw)=explode('|',$nams[$i]); $elems = explode("&", $nams[$i]); while (list($k, $v) = each($elems)) { list($nam, $key) = explode("=", $v); $arr[$nam] = $key; } if (!isset($arr["file"]) || substr($arr["file"], 0, 1) != "1") continue; $yr = substr($arr["file"], 0, 4); $mo = substr($arr["file"], 4, 2); $da = substr($arr["file"], 6, 2); $tm = substr($arr["file"], 8, 1); if ($tm == "v" || $tm == "p") { $tm = "pm"; } else { $tm = ""; } if ($tm == "a" || $tm == "p") { $tm = $tm . "m"; } else { $tm = ""; } $byt = "None"; $ttl = $arr["title"]; $fld4 = preg_replace("/GA0/", "", $arr["field4"]); $fld4 = preg_replace("/^0/", "", $fld4); if (is_numeric($fld4)) $fld4 = $fld4 . " "; $fld5 = $arr["field5"]; $fld0 = preg_replace("/
/", " ", $arr["field0"]); $fld0 = preg_replace("/
/", " ", $fld0); $fld10 = ""; if (isset($arr["field10"])) { $fld10 = preg_replace("/
/", " ", $arr["field10"]); $fld10 = preg_replace("/
/", " ", $fld10); } $names[$tot] = $fld0; printf(" \n"); printf(" \n"); printf(" \n"); $tot += 1; /* printf(" \n"); */ printf(" \n"); printf(" \n"); printf(" \n"); unset($arr); } printf("
  Date Name of Lecture GA# Year  
 
\n"); printf(" \".\"\n"); printf(" \n"); printf(" %s-%s-%s %s \n", $xel, $yr, $mo, $da, $tm); printf(" \n"); printf(" %s", $xel, $tnam); if ($fld10 && $fld0 != $fld10) { $names[$tot] = $fld10; printf("
\n From: %s", $fld0); } printf("\n
\n"); if($byt != "None") { printf(" \n", $byt); printf(" \"[*]\"\n"); } printf(" "); if ($fld4 && ($fld4 > 0)) { printf("%s\n", $arr["field4"], $fld4); } printf(" "); if ($yr && ($yr > 0)) { printf("%s\n", $yr, $yr); } printf(" \n"); if ($nw == "New") { printf(" \"*New*\"\n", $imgsrv); } else { printf(" \"[*]\"\n", $imgsrv); } printf("
\n"); dojava(); for ($i = 0; $i < $tot; $i++) { //list($nam)=explode('|', $nams[$i]); printf(" var status%s = \"%s\";\n", $i + 100, $names[$i]); } $mes = "Total On-site Lectures for " . $address; } printf("// -->\n"); printf("\n"); printf("
\n"); printf("

%s: %s

\n", $mes, $tot); printf("
\n"); if (($zinfo) && (!$zmob)) { // Start local .info file echo <<
$zinfo
EOF; } else { $address2 = $address; if ($gmap2) $address2 = $address2 . "+" . $gmap2; if ($gmap3) $address2 = $address2 . "," . $gmap3; echo << -->

Map for $address

EOF; // plot the map with default marker icon //echo $mapObj->plotgoogleMap($latlonArr); //phpinfo(); //echo $address."
".$pl; //print_r($latlonArr); } printf("\n"); include("footing.inc"); ?>