\n"; echo "function anzeigewechsel(val) { \n"; echo "var newcall = '$newCall' + '&' + 'anzeige=' + val; \n"; echo " self.location.href = newcall; \n"; //echo " alert(newcall); \n"; echo "} \n"; echo " \n"; // connect to db if (!$conn) { include ("common/dbHandler.inc"); $conn = dbConnect(); } $actDate = date("Y-m-d H:i:s"); //echo "

ReKla-Datenbank $actDate

\n"; //----------------------------- //$swbLink = "http://www.bsz-bw.de/cgi-bin/swbcomline.cgi?1RTAS00."; //$swbQuelle = "http://www.bsz-bw.de/cgi-bin/swbcomline.cgi?1RTAS00."; $swbLink = "http://swb.bsz-bw.de/CMD?ACT=SRCHA&IKT=8138&TRM="; $swbQuelle = $swbLink; //$bgColor1 = "background-color : #FFFFCC"; $bgColor1 = "background-color : #F0F0F0"; $bgColor2 = "background-color : #EFFBAA"; $bgColor3 = "background-color : #F5FDCC"; // 1. input: klasse, quelle, meta_gruppe_id, meta_titel_id, root if (!$level) {$level = 1;} if (!$quelle) {$quelle = "*";} if (!$meta_group_id) {$meta_group_id = "*";} if (!$meta_titel_id) {$meta_titel_id = "*";} if (!$root) { $rootNode = "is null"; $rootNodeSingle = ""; } else { $rootNode = "= $root"; $rootNodeSingle = "and not_id = $root"; } // ohne javascript! if (!$anzeige || $anzeige == "Normal") { $anzeige = "Normal"; $checked_f = "checked='checked'"; $checked_g = " "; $checked_a = " "; } elseif ($anzeige == "Normal") { $checked_f = " "; $checked_g = "checked='checked' "; $checked_a = " "; } elseif ($anzeige == "Alles") { $checked_g = " "; $checked_f = " "; $checked_a = "checked='checked' "; } elseif ($anzeige == "Wenig") { $checked_g = "checked='checked'"; $checked_f = " "; $checked_a = " "; } //echo "
klasse='$klasse' \n"; //echo "
quelle='$quelle' \n"; //echo "
meta_gruppe_id='$meta_gruppe_id' \n"; //echo "
meta_titel_id='$meta_titel_id' \n"; //echo "
meta_id='$meta_id' \n"; //echo "
level='$level' \n"; //echo "
anzeige='$anzeige' \n"; //echo "
root='$root' \n"; //echo "
QUERY_STRING='$QUERY_STRING' \n"; $quelle = strtoupper($quelle); if ($quelle == "IFB") { // eine exemplarische Quellenangabe holen $query = "select quelltext from metadaten where quelle = '$quelle' and meta_gruppe_id='$meta_gruppe_id' and rownum < 2"; $stmt = OCIParse($conn, $query); $exe = OCIExecute($stmt); dbError($stmt, $conn, "quelle"); while ( OCIFetchInto($stmt, $lst) ) { $quelltext = $lst[0]; } echo "

$quelltext

\n"; } //---------------------------- //if ($klasse && !$root) { if ($klasse) { // get number of levels in Notation $query = "select distinct level from notation where klasse = '$klasse' connect by RNOT_ID = prior not_id"; $stmt = OCIParse($conn, $query); $exe = OCIExecute($stmt); if ( dbError($stmt, $conn, "levels") ) { echo "

Klasse $klasse nicht gefunden!

\n"; } else { echo "
\n"; // check no of level, if only one, then no selector $levCnt = 0; while ( OCIFetchInto($stmt, $lst) ) { $lstLevel[$levCnt++] = $lst[0]; } if ($levCnt > 1) { echo " \n"; echo "

\n"; echo "\n"; echo "
Benutzungshinweis \n"; echo "
\n"; } echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo "
\n"; } } //echo "
L:$level k:$klasse\n"; if ($level && $klasse) { //some display settings if ($klasse=="DEFAULT") {$border = 0;} else {$border = 1;}; if ($meta_id && $mode=="single") { $query = "select not_id, name, bezeichnung, level from notation where klasse = '$klasse' $rootNodeSingle order by name"; } else { $query = "select not_id, name, bezeichnung, level from notation where klasse = '$klasse' and level <= $level connect by RNOT_ID = prior not_id start with RNOT_ID $rootNode order by name"; } $stmt = OCIParse($conn, $query); $exe = OCIExecute($stmt); dbError($stmt, $conn, "Klassen"); while ( OCIFetchInto($stmt, $lstKlasse) ) { $not_id = $lstKlasse[0]; $not_name = $lstKlasse[1]; $not_bezeichnung = $lstKlasse[2]; $levelNot = $lstKlasse[3]; $abstand = ""; //for ($i=1; $i <= $levelNot; $i++) {$abstand .= "     ";} if ($klasse != "DEFAULT") { echo " \n"; echo "
$abstand $not_name    $not_bezeichnung \n"; echo " \n"; } if ($meta_id && $mode=="single") { $query = "select m.meta_id, m.swb_id_quelle, m.dateityp, DBMS_LOB.GETLENGTH (m.DATA_SOURCE) dslen, to_char(m.erstelldatum, 'DD-MM-YYYY'), w.werk_id, w.titel, m.meta_gruppe_id ,m.meta_titel_id, m.rmeta_id, m.tt_id, m.quelltext, m.quelle from Metadaten m, Werk w, bezieht_sich_auf bsa where m.meta_id = $meta_id and bsa.werk_id = w.werk_id and bsa.meta_id = m.meta_id"; $mode = "all"; } else { $query = "select m.meta_id, m.swb_id_quelle, m.dateityp, DBMS_LOB.GETLENGTH (m.DATA_SOURCE) dslen, m.erstelldatum, w.werk_id, w.titel, m.meta_gruppe_id ,m.meta_titel_id, m.rmeta_id, m.tt_id, m.quelltext, m.quelle from Metadaten m, Werk w, bezieht_sich_auf bsa, zugeordnet z where m.quelle like translate('$quelle','*','%') and nvl(m.meta_gruppe_id, '%') like translate('$meta_gruppe_id','*','%') and m.meta_titel_id like translate('$meta_titel_id','*','%') and bsa.werk_id = w.werk_id and bsa.meta_id = m.meta_id and z.not_id = $not_id and z.werk_id = w.werk_id"; } $stmt2 = OCIParse($conn, $query); $exe2 = OCIExecute($stmt2); dbError($stmt2, $conn, "Metadaten"); while ( OCIFetchInto($stmt2, $lstMetadaten) ) { $meta_id = $lstMetadaten[0]; $swb_id_quelle = $lstMetadaten[1]; $dateityp = $lstMetadaten[2]; $data_sourceLen = $lstMetadaten[3]; $erstelldatum = $lstMetadaten[4]; $werk_id = $lstMetadaten[5]; $titel = $lstMetadaten[6]; $meta_gruppe_id2 = $lstMetadaten[7]; $meta_titel_id2 = $lstMetadaten[8]; $rmeta_id = $lstMetadaten[9]; $tt_id = $lstMetadaten[10]; $quelltext = $lstMetadaten[11]; $quelleS = $lstMetadaten[12]; // alle '+' entfernen $titel = str_replace("+", "", $titel); $quelltext = str_replace("+", "", $quelltext); $abstand2 = ""; echo " \n"; echo "
$not_name
\n"; echo " \n"; echo " \n"; // Text_Typ $query = "select tt_name from Text_Typ where tt_id = $tt_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "Text_Typ"); OCIFetchInto($stmt3, $lstText_Typ); //echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo "
$quelleS $meta_gruppe_id2-$meta_titel_id2 $lstText_Typ[0] zu Einspieldatum: $erstelldatum  
\n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; if ($data_sourceLen > 0) { echo " \n"; } elseif (!$rmeta_id) { echo "\n"; } else { echo " \n"; } echo " \n"; // Autor $query = "select name from autor where werk_id = $werk_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "Autor"); echo " \n"; echo " \n"; echo " \n"; echo " \n"; // Koerperschaft $query = "select name from Koerperschaft where werk_id = $werk_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "Koerperschaft"); while ( OCIFetchInto($stmt3, $lstKoerperschaft) ) { echo " \n"; echo " \n"; echo " \n"; echo " \n"; } // end while Koerperschaft // ISBN / ISSN echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; // info from other tables if ($anzeige == "Normal" || $anzeige == "Alles") { // Rezensent echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; // URL Verlag echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo " \n"; echo "
Titel $titel  $titel $titel
Autor \n"; while ( OCIFetchInto($stmt3, $lstAutor) ) { echo " $lstAutor[0]    \n"; } // end while Autor echo "
Körperschaft $lstKoerperschaft[0]
ISBN/ISSN \n"; $query = "select name from ISBN where werk_id = $werk_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "ISBN"); while ( OCIFetchInto($stmt3, $lstISBN) ) { echo "$lstISBN[0]    \n"; } // end while ISBN $query = "select name from ISSN where werk_id = $werk_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "ISSN"); while ( OCIFetchInto($stmt3, $lstISSN) ) { echo "$lstISSN[0] \n"; } // end while ISSN echo "
$lstText_Typ[0] \n"; $query = "select decode(name, '', ' ', name) from Rezensent where meta_id = $meta_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "Rezensent"); while ( OCIFetchInto($stmt3, $lstRezensent) ) { $rezName = $lstRezensent[0]; echo " $rezName \n"; } // end while Rezensent echo "
Lieferung $quelltext
Verlag \n"; $query = "select v.name, a.url from Adresse a, Verlag v where a.verl_id=v.verl_id and v.werk_id = $werk_id "; $stmt4 = OCIParse($conn, $query); $exe4 = OCIExecute($stmt4); dbError($stmt4, $conn, "Verlag Adresse"); while ( OCIFetchInto($stmt4, $lstVerlag) ) { $name = $lstVerlag[0]; $url = $lstVerlag[1]; // wenn der Verlagsname '', dann zeigen wir die URL if ($name == "") { $name = $url; } echo " \n"; echo " $name \n"; echo " \n"; } // end while Verlag echo "
\n"; // SWB_Identifier //$query = "select SWB_Identifier,beschreibung from SWB_Identifier where meta_id = $meta_id"; $query = "select lpad(SWB_Identifier,8,'0'),beschreibung from SWB_Identifier where meta_id = $meta_id"; $stmt4 = OCIParse($conn, $query); $exe4 = OCIExecute($stmt4); dbError($stmt4, $conn, "SWB_Identifier"); while ( OCIFetchInto($stmt4, $lstSWB_Identifier) ) { $SWB_Identifier = $lstSWB_Identifier[0]; $text = $lstSWB_Identifier[1]; //$link = $swbLink . $SWB_Identifier . ";"; $link = $swbLink . $SWB_Identifier; echo " \n"; //echo "Bestand im SWB / Bibliographische Beschreibung $SWB_Identifier \n"; echo "Bestand im SWB / Bibliographische Beschreibung \n"; echo " $text\n"; // nur eine Ausgabe break; } // end while SWB_Identifier echo "
\n"; } // end if anzeige Normal if ($anzeige == "Alles") { echo " \n"; echo " \n"; // Referenz auf vorhandene Metas if ($rmeta_id) { $query = "select m.dateityp, m.erstelldatum, m.meta_gruppe_id ,m.meta_titel_id from Metadaten m where meta_id = $rmeta_id"; $stmt3 = OCIParse($conn, $query); $exe3 = OCIExecute($stmt3); dbError($stmt3, $conn, "Ref-Meta"); OCIFetchInto($stmt3, $lstRefM); $r_dateityp = $lstRefM[0]; $r_erstelldatum = $lstRefM[1]; $r_meta_gruppe_id = $lstRefM[2]; $r_meta_titel_id = $lstRefM[3]; if ($displayAll) { $callModul = "displayFrame.php"; } else { $callModul = "showContent.php"; } echo "\n"; } echo " \n"; // INH_Namen $query = "select bezeichnung from INH_Namen where meta_id = $meta_id"; $stmt4 = OCIParse($conn, $query); $exe4 = OCIExecute($stmt4); dbError($stmt4, $conn, "INH_Namen"); echo "\n"; // INH_Koerp_geograph $query = "select bezeichnung from INH_Koerp_geograph where meta_id = $meta_id"; $stmt4 = OCIParse($conn, $query); $exe4 = OCIExecute($stmt4); dbError($stmt4, $conn, "INH_Koerp_geograph"); echo "\n"; // INH_Stichworte $query = "select bezeichnung from INH_Stichworte where meta_id = $meta_id"; $stmt4 = OCIParse($conn, $query); $exe4 = OCIExecute($stmt4); dbError($stmt4, $conn, "INH_Stichworte"); echo "\n"; echo "
$r_meta_gruppe_id-$r_meta_titel_id zum gleichen Thema am $r_erstelldatum
Inhaltsverzeichnis
Namen:
\n"; $inhCounter = 0; while ( OCIFetchInto($stmt4, $lstINH_Namen) ) { $inhCounter++; $newline = $inhCounter%5; if ($newline == 0) { echo "
\n"; } // alle '+' entfernen str_replace("+", "", $lstINH_Namen[0]); echo "'$lstINH_Namen[0]';\n"; } // end while INH_Namen echo "
Körperschaften/Geographisches:
\n"; $inhCounter = 0; while ( OCIFetchInto($stmt4, $lstINH_Koerp_geograph) ) { $inhCounter++; $newline = $inhCounter%5; if ($newline == 0) { echo "
\n"; } str_replace("+", "", $lstINH_Koerp_geograph[0]); echo "'$lstINH_Koerp_geograph[0]';\n"; } // end while INH_Koerp_geograph echo "
Stichworte:
\n"; $inhCounter = 0; while ( OCIFetchInto($stmt4, $lstINH_Stichworte) ) { $inhCounter++; $newline = $inhCounter%5; if ($newline == 0) { echo "
\n"; } str_replace("+", "", $lstINH_Stichworte[0]); echo "'$lstINH_Stichworte[0]';\n"; } // end while INH_Stichworte echo "
\n"; } // end if anzeige Alles echo " \n"; echo " \n"; } // end while lstMetadaten } // end while lstKlasse } // end level && klasse if ($klasse && $supermode == "ON") { echo "
Anzeige:    \n"; echo "Wenig  \n"; echo "Normal  \n"; echo "Alles    \n"; } ?> load(); //$texttyp = $atyp[1]; $len = strlen($buffer); echo "

\n"; echo $buffer; } elseif ($rmeta_id) { $query = "select DATA_SOURCE from Metadaten where meta_id = $rmeta_id"; $stmt = OCIParse($conn, $query); $xbuffer = OCINewDescriptor($conn, OCI_D_LOB); OCIDefineByName($stmt,"DATA_SOURCE", &$xbuffer, OCI_B_BLOB); $exe = OCIExecute($stmt, OCI_DEFAULT); dbError($stmt, $conn, "Metadaten Source"); OCIFetch($stmt); if ($xbuffer) { echo "
Liegt als Verweis auf anderes Dokument vor. \n"; $buffer = $xbuffer->load(); //$texttyp = $atyp[1]; $len = strlen($buffer); echo "

\n"; echo $buffer; } else { echo "
Daten fehlen! \n"; } } else { echo "
Daten fehlen! \n"; } } elseif ($browser == "ie" && $inMode == "single") { if ($media == "audio" || $media == "video") { $w = "200"; $h = "200"; } else { $w = "100%"; $h = "1000"; } //echo "
media=$media w=$w h=$h meta_id=$meta_id
\n"; //echo " \n"; //echo " \n"; } ?>