function indexdatei($source_opus, $fd)
{
$la = "de";
$search_creator = '';
$startfile = '';
$dir_array = array();
$mod_gpg = '';
$publisher_faculty = '';
$advisor = '';
$date_accepted = '';
//require_once'../opus/lib/opus.class.php';
$opus = new OPUS('../opus/lib/opus.conf');
$php = $opus->value("php");
$db = $opus->value("db");
$opustable = $opus->value("opus_table");
$url = $opus->value("url");
$mod_checksum = $opus->value("mod_checksum");
$projekt = $opus->value("projekt");
$url_anzeigen = $opus->value("url_anzeigen");
$urn_anzeigen = $opus->value("urn_anzeigen");
$lic_active = $opus->value("license_active");
$doku_pfad = $opus->value("doku_pfad");
$statistik = $opus->value("statistik");
$awstats_url = $opus->value("awstats_url");
$awstats_config = $opus->value("awstats_config");
$empfehlen = $opus->value("empfehlen");
$mehrsprachig = $opus->value("mehrsprachig");
$google_scholar = $opus->value("google_scholar");
$url_google_scholar = $opus->value("url_google_scholar");
# BD, 16.9.05: steht nun in frontdoor.conf
# $titel = $opus->value("titel_frontdoor");
# $ueberschrift = $opus->value("ueberschrift_frontdoor");
// Anfang Collections
$coll_anzeigen = $opus->value("coll_anzeigen");
// Ende Collections
$opustable_autor = $opustable . "_autor";
$opustable_inst = $opustable . "_inst";
$opustable_diss = $opustable . "_diss";
$opustable_subject_type = $opustable . "_subject_type";
$opustable_sr = $opustable . "_schriftenreihe";
// Anfang Collections
$opustable_coll = $opustable . "_coll";
// Ende Collections
// Social-Bookmarking-Schnittstellen
$connotea_export = $opus->value("connotea_export");
$delicious_export = $opus->value("delicious_export");
$social_bookmarking = 0;
if ($connotea_export == 1 || $delicious_export == 1) {
$social_bookmarking = 1;
}
/*if ($_REQUEST["show_connotea"])
{
$_SESSION["show_connotea"] = true;
}*/
// Ende Social-Bookmarking-Schnittstellen
//require_once("../opus/lib/stringValidation.php");
//$source_opus = $_REQUEST['source_opus'];
if (!_is_valid($source_opus, 1, 10, "[0-9]+")) {
die("Fehler in Parameter source_opus");
}
# A.Maile 10.2.05: Sprache einlesen aus opus.conf, falls nicht gesetzt
if (!$la) {
$la = $opus->value("la");
}
# O. Marahrens: Automatisch alle Texte aus der Textdatei holen
$texte = new OPUS("../opus/texte/{$la}/frontdoor.conf");
foreach ($texte->getValues() as $k => $v) {
${$k} = $v;
}
$res = $opus->query("SELECT * FROM {$opustable} WHERE source_opus = {$source_opus} ");
$num_res = $opus->num_rows($res);
if ($num_res > 0) {
$mrow = $opus->fetch_row($res);
$title_orig = $mrow[0];
$title = htmlspecialchars($mrow[0]);
$creator_corporate = $mrow[1];
$subject_swd = htmlspecialchars($mrow[2]);
$description = $mrow[3];
# Abstract fuer die Metadaten html-codieren
$description_meta = htmlspecialchars($mrow[3]);
$publisher_university = $mrow[4];
$contributors_name = $mrow[5];
$contributors_corporate = $mrow[6];
$date_year = $mrow[7];
$date_creation = $mrow[8];
$date_modified_old = $mrow[9];
$type = $mrow[10];
$source_opus = $mrow[11];
$source_title = htmlspecialchars($mrow[12]);
$source_swb = $mrow[13];
$language = $mrow[14];
$verification = $mrow[15];
$subject_uncontrolled_german = htmlspecialchars($mrow[16]);
$subject_uncontrolled_english = htmlspecialchars($mrow[17]);
$title_en = $mrow[18];
$description2 = $mrow[19];
# Abstract fuer die Metadaten html-codieren
$description2_meta = htmlspecialchars($mrow[19]);
$subject_type = $mrow[20];
$date_valid = $mrow[21];
$description_lang = $mrow[22];
$description2_lang = $mrow[23];
$sachgruppe_ddc = $mrow[24];
$urn = $mrow[25];
$bereich_id = $mrow[26];
if ($lic_active >= 2) {
$lic = $mrow[27];
}
$isbn = $mrow[28];
$bem_extern = $mrow[30];
//********************************************************************************************************************************
//Änderung TW
$issn = $mrow[32];
$ac_nr = $mrow[33];
$studiengang = $mrow[34];
$seitenanzahl = $mrow[35];
$datum = $mrow[36];
$gutachter1 = $mrow[37];
$gutachter2 = $mrow[38];
$studiensemester = $mrow[39];
//********************************************************************************************************************************
$opus->free_result($res);
/***** Schriftenreihe Start *****/
$sr_id = "";
$sr_band = "";
$res = $opus->query("SELECT * FROM {$opustable_sr} WHERE source_opus = {$source_opus} ");
$num_res = $opus->num_rows($res);
if ($num_res > 0) {
$mrow = $opus->fetch_row($res);
$sr_id = $mrow[1];
$sr_band = $mrow[2];
$res = $opus->query("select name from schriftenreihen where sr_id = '{$sr_id}' ");
$mrow = $opus->fetch_row($res);
$sr_name = $mrow[0];
$opus->free_result($res);
}
/***** Schriftenreihe Stop *****/
/* Bei Dissertation (type 8) und Habilitation (type 24) zusaetzlich */
/* Tag der muendlichen Pruefung (bzw. des Kollquiums) und Hauptberichter anzeigen */
if ($type == "8" || $type == "24") {
$res = $opus->query("SELECT date_accepted, advisor, publisher_faculty, title_de FROM {$opustable_diss} WHERE source_opus = {$source_opus}");
$anz = $opus->num_rows($res);
if ($anz > 0) {
$mrow = $opus->fetch_row($res);
$date_accepted = $mrow[0];
$advisor = htmlspecialchars($mrow[1]);
$faculty_nr = $mrow[2];
$title_de = $mrow[3];
}
$opus->free_result($res);
$res = $opus->query("SELECT fakultaet from faculty_{$la} where nr = '{$faculty_nr}'");
$mrow = $opus->fetch_row($res);
$publisher_faculty = $mrow[0];
$opus->free_result($res);
}
$jahr = date("Y", $date_creation);
$res = $opus->query("SELECT name FROM institute_{$la} i, {$opustable_inst} oi WHERE i.nr=oi.inst_nr and oi.source_opus = '{$source_opus}'");
$instnum = $opus->num_rows($res);
$i = 0;
while ($i < $instnum) {
$i++;
$mrow = $opus->fetch_row($res);
$inst[$i] = $mrow[0];
}
$opus->free_result($res);
// Anfang Collections
if ($coll_anzeigen == "true") {
$res = $opus->query("SELECT c.coll_id FROM collections as c, {$opustable_coll} as oc WHERE c.coll_id = oc.coll_id and oc.source_opus = '{$source_opus}'");
$collnum = $opus->num_rows($res);
$i = 0;
while ($i < $collnum) {
$i++;
$mrow = $opus->fetch_row($res);
$coll[$i] = $mrow[0];
}
$opus->free_result($res);
}
// Ende Collections
$res = $opus->query("SELECT sprache FROM language_{$la} WHERE code='{$language}'");
$mrow = $opus->fetch_row($res);
$sprache = ucfirst($mrow[0]);
$opus->free_result($res);
$res = $opus->query("SELECT sprache FROM language_{$la} WHERE code='{$description_lang}'");
$mrow = $opus->fetch_row($res);
$sprache_description = ucfirst($mrow[0]);
$opus->free_result($res);
if ($description2_lang != "") {
$res = $opus->query("SELECT sprache FROM language_{$la} WHERE code='{$description2_lang}'");
$mrow = $opus->fetch_row($res);
$sprache_description2 = ucfirst($mrow[0]);
$opus->free_result($res);
}
$res = $opus->query("SELECT dokumentart FROM resource_type_{$la} WHERE typeid='{$type}'");
$mrow = $opus->fetch_row($res);
$dokumentart = $mrow[0];
$opus->free_result($res);
# Start Lizenzvertrag
# Link auf Lizenz ausgeben, falls Lizenz-Modul aktiv und Feld lic belegt.
# Falls Lizenz-Modul aktiv, aber Feld lic nicht belegt (alte OPUS-Bestaende)
# dann Link auf urheberrecht.php ausgeben.
if ($lic_active >= 2) {
$res = $opus->query("SELECT longname, link, logo, desc_text, desc_html FROM license_{$la} WHERE shortname='{$lic}'");
$licnum = $opus->num_rows($res);
if ($licnum == 1) {
$mrow = $opus->fetch_row($res);
$licname = $mrow[0];
$liclink = $mrow[1];
$liclogo = $mrow[2];
$licdesc = $mrow[3];
$licdesc_html = $mrow[4];
$liclink_head = "<a href=\"{$liclink}?la={$la}\" target=\"_blank\">{$lizenz}</a><p />";
} else {
$liclink_head = "<a href=\"" . $doku_pfad . "/urheberrecht.php?la={$la}\">{$text1}</a><p />";
}
$opus->free_result($res);
} else {
$liclink_head = "<a href=\"" . $doku_pfad . "/urheberrecht.php?la={$la}\">{$text1}</a><p />";
}
# Ende Lizenzvertrag
# Zugriff auf Volltexte weltweit/campusweit/weitere Bereiche
# Falls in Altbestaenden (< Opus 3.0) kein Bereich angegeben ist,
# wird bereich_id auf 1 gesetzt = freier Zugriff auf die Dokumente,
# sonst kommt eine Fehlermeldung der Datenbank
if ($bereich_id == "" || $bereich_id == 0) {
$bereich_id = 1;
}
$res = $opus->query("SELECT bereich, volltext_pfad, volltext_url FROM bereich_{$la} WHERE bereich_id = {$bereich_id}");
$num = $opus->num_rows($res);
if ($num > 0) {
$mrow = $opus->fetch_row($res);
$bereich = $mrow[0];
$volltext_pfad = $mrow[1];
$volltext_url = $mrow[2];
$opus->free_result($res);
}
# Ende Zugriff auf Volltexte weltweit/campusweit/weitere Bereiche
$autor = $opus->query("SELECT creator_name, reihenfolge FROM {$opustable_autor} WHERE source_opus = {$source_opus} order by reihenfolge");
$anzahl_creator_name = $opus->num_rows($autor);
$i = 0;
while ($i < $anzahl_creator_name) {
$mrow = $opus->fetch_row($autor);
$creator_name = $mrow[0];
$creator_name = htmlspecialchars($creator_name);
$search_creator .= " ; " . $creator_name;
$i++;
}
$search_creator = substr($search_creator, 3);
# Titel und Autoren des Dokuments sollen in <title> erscheinen
$titel = "{$projekt} - {$title} - {$search_creator}";
# Annette Maile, 18.3.05 Design aus lib/design.php einlesen
//require ("../../lib/design.$php");
//$design = new design;
//$design->head_titel($titel);
# Ausgabe einiger DC-Metadaten
fwrite($fd, "<META NAME=\"DC.Title\" CONTENT=\"{$title}\">\n");
fwrite($fd, "<META NAME=\"title\" CONTENT=\"{$title}\">\n");
if ($anzahl_creator_name > 0) {
$opus->data_seek($autor, 0);
$i = 0;
while ($i < $anzahl_creator_name) {
$mrow = $opus->fetch_row($autor);
$creator_name = $mrow[0];
$creator_name = htmlspecialchars($creator_name);
fwrite($fd, "<META NAME=\"DC.Creator\" CONTENT=\"{$creator_name}\">\n");
$search_creator .= " ; " . $creator_name;
$i++;
}
}
if ($search_creator != "") {
fwrite($fd, "<META NAME=\"author\" CONTENT=\"{$search_creator}\">\n");
}
$subject = $subject_swd;
if ($subject_uncontrolled_german != "") {
$subject .= " , {$subject_uncontrolled_german}";
}
if ($subject_uncontrolled_english != "") {
$subject .= " , {$subject_uncontrolled_english}";
}
fwrite($fd, "<META NAME=\"DC.Subject\" CONTENT=\"{$subject}\">\n");
fwrite($fd, "<META NAME=\"keywords\" CONTENT=\"{$subject}\">\n");
fwrite($fd, "<META NAME=\"DC.Identifier\" CONTENT=\"{$volltext_url}/{$jahr}/{$source_opus}/\">\n");
//*******************************************************************************************************************************************
//Änderung TW
if ($urn && $urn_anzeigen) {
if ($urn != "") {
fwrite($fd, "<META NAME=\"DC.Identifier\" CONTENT=\"{$urn}\">\n");
}
}
//*******************************************************************************************************************************************
fwrite($fd, "<META NAME=\"DC.Description\" CONTENT=\"{$description_meta} \n{$description2_meta}\">\n");
fwrite($fd, "<META NAME=\"description\" CONTENT=\"{$description_meta} \n{$description2_meta}\">\n");
# Ende der DC-Metadaten
//$design->head_ueberschrift($ueberschrift, $la);
# Button fuer Anzeige des Skripts in weiteren Sprachen),
# falls mehrere Sprachen angeboten werden.
if ($mehrsprachig == 1) {
$design->andere_sprache($la);
}
# Start Ausgabe der Frontdoor
fwrite($fd, "<P><FONT class=\"frontdoor\">{$liclink_head} \n");
# fwrite($fd,"Bitte beziehen Sie sich beim Zitieren dieses Dokumentes immer auf folgende<BR>\n");
# fwrite($fd,"$dokumentart zugaenglich unter:");
fwrite($fd, "{$dokumentart} {$t_dokumentart_2}<BR>\n");
# Wenn Urn vorhanden und urn_anzeigen auf 1 gesetzt ist, wird die Urn angezeigt.
# Wenn keine Urn vorhanden ist und url_anzeigen auf 2 gesetzt ist, dann Url anzeigen.
# Wenn url_anzeigen auf 1 gesetzt ist, dann immer Url anzeigen.
if ($urn && $urn_anzeigen) {
fwrite($fd, "URN: <a href=\"http://nbn-resolving.de/{$urn}\"><B>{$urn}</B></a><BR>\n");
} else {
if ($url_anzeigen == 2) {
if (file_exists("{$volltext_pfad}/{$jahr}/{$source_opus}") == 1) {
fwrite($fd, "URL: <a href=\"{$volltext_url}/{$jahr}/{$source_opus}/\"><B>{$volltext_url}/{$jahr}/{$source_opus}/</B></a><BR>\n");
}
}
}
if ($url_anzeigen == 1) {
if (file_exists("{$volltext_pfad}/{$jahr}/{$source_opus}") == 1) {
fwrite($fd, "URL: <a href=\"{$volltext_url}/{$jahr}/{$source_opus}/\"><B>{$volltext_url}/{$jahr}/{$source_opus}/</B></a><BR>\n");
}
}
fwrite($fd, "</FONT><HR>");
fwrite($fd, "<P>\n");
fwrite($fd, "<B>{$t_titel1}:</B> {$title}\n");
if ($title_en != "") {
fwrite($fd, "<P><B>{$t_titel2}:</B> {$title_en}\n");
}
/*if ($title_de != "")
{
fwrite($fd,"<P><B>$title_de</B>\n");
}*/
fwrite($fd, "<P> \n");
include "../opus/lib/font.html";
$link = "{$url}/ergebnis.{$php}?suchart=teil&Lines_Displayed=10&sort=o.date_year+DESC%2C+o.title&suchfeld1=freitext&suchwert1=&opt1=AND&opt2=AND&suchfeld3=date_year&suchwert3=&startindex=0&page=0&dir=2&suche=&suchfeld2=oa.person&suchwert2=";
#$res = $opus->query("SELECT creator_name, reihenfolge from opus_autor where source_opus = $source_opus order by reihenfolge ");
if ($anzahl_creator_name > 0) {
$opus->data_seek($autor, 0);
$mrow = $opus->fetch_row($autor);
$creator_name = $mrow[0];
# A. Maile, 6.8.2007: Ersten Autor speichern für Google Scholar
$first_creator = $creator_name;
$person = htmlspecialchars(rawurlencode($creator_name));
fwrite($fd, "<B>Autor(in): <A HREF=\"{$link}{$person}\">{$creator_name}</A></B>");
$pod_creator_names = $person;
if ($anzahl_creator_name > 1) {
$i = 1;
while ($i < $anzahl_creator_name) {
$i++;
$mrow = $opus->fetch_row($autor);
$creator_name = $mrow[0];
$person = htmlspecialchars(rawurlencode($creator_name));
fwrite($fd, " ; \n<B>Autor(in): <A HREF=\"{$link}{$person}\">{$creator_name}</A></B>");
$pod_creator_names .= " ; " . $person;
}
}
}
$opus->free_result($autor);
fwrite($fd, "<P><FONT class=\"fr_font_klein\">");
if ($contributors_name != "") {
# fwrite($fd,"<BR>Weitere Beteiligte (Hrsg. etc.): $contributors_name \n");
fwrite($fd, "{$t_weitere_beteiligte} {$contributors_name} <BR> \n");
}
if ($creator_corporate != "") {
fwrite($fd, "{$creator_corporate} <BR> \n");
}
fwrite($fd, "</B> \n");
fwrite($fd, "<P>\n");
fwrite($fd, "<TABLE> \n");
if ($source_title != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_quelle}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "<B>({$date_year})</B> <I>{$source_title}</I> </TD>\n");
fwrite($fd, "</TR> \n");
}
/* Es werden die Formate, die in der Tabelle Format im Feld extension stehen */
/* in der Frontdoor angezeigt. Es wird geschaut, ob das jeweilige Directory */
/* exisitiert und die darin enthaltenen Dateien in einer Tabelle ausgegeben */
$format = $opus->query("select extension from format where name <> 'Originalformat' ");
$num_format = $opus->num_rows($format);
$f = 0;
while ($f < $num_format) {
$f++;
$mrow = $opus->fetch_row($format);
$ext = $mrow[0];
if (file_exists("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}") == 1) {
/* Falls Startfile .*.anzeigen vorhanden, dann nur dieses anzeigen */
/* hauptsaechlich bei html */
$handle = opendir("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}");
while ($file = readdir($handle)) {
if (preg_match("/\\.anzeigen/", $file)) {
$startfile = $file;
}
}
closedir($handle);
if ($startfile != "") {
/* fuehrenden Punkt und .anzeigen entfernen = Startfile des html-Dokuments */
$startfile = str_replace(".anzeigen", "", $startfile);
$startfile = substr($startfile, 1);
fwrite($fd, "<TR>\n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$ext}-{$t_format}:</B> \n</TD>\n");
fwrite($fd, "\n<TD></TD><TD><TABLE BORDER=0>\n<TR>\n");
fwrite($fd, "<TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "<A HREF=\"{$volltext_url}/{$jahr}/{$source_opus}/{$ext}/{$startfile}\">Dokument1.{$ext} </A>\n</TD>\n");
fwrite($fd, "\n</TR>\n</TABLE>\n");
fwrite($fd, "</TD></TR>\n");
} else {
$i = 1;
$j = 1;
/* Verzeichnis in Array einlesen und sortieren */
$handle = opendir("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}");
while ($file = readdir($handle)) {
if ($file != "." && $file != "..") {
/* Dateien, die mit .bem_ beginnen sind Bemerkungen zu den Dateien, */
/* daher werden nur Dateien, die nicht mit .bem_ anfangen in der */
/* Frontdoor aufgelistet. Gepackte Dateien werden separat aufgelistet */
if (!preg_match("/^\\.bem_/", $file) && !preg_match("/\\.zip/i", $file) && !preg_match("/\\.gz/i", $file)) {
$dir_array[count($dir_array)] = $file;
}
}
}
closedir($handle);
$num = count($dir_array);
if ($num > 0) {
sort($dir_array);
fwrite($fd, "<TR>\n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$ext}-{$t_format}:</B> \n</TD>\n");
fwrite($fd, "\n<TD></TD><TD class=\"frontdoor\"><TABLE BORDER=0>\n<TR>\n");
$k = 0;
while ($k < $num) {
$filename = array_shift($dir_array);
$bem_file = "";
if (file_exists("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$filename}")) {
$fd = fopen("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$filename}", "r");
$bem_file = fread($fd, filesize("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$filename}"));
fclose($fd);
}
$file = "{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/{$filename}";
$array = explode(".", $filename);
$last = count($array) - 1;
$ext2 = strtolower($array[$last]);
$size = stat($file);
$filesize = $size[7];
$filesize = $filesize / 1024;
if ($filesize < 1) {
$filesize = number_format($filesize, 1, ",", ".");
} else {
$filesize = number_format($filesize, 0, ",", ".");
}
$format2 = $opus->query("select extension from format where extension like '{$ext2}%' ");
$num_format2 = $opus->num_rows($format2);
if ($num_format2 > 0) {
if ($i > 3) {
fwrite($fd, "\n</TR>\n<TR>\n");
$i = 1;
}
fwrite($fd, "<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<A HREF=\"{$volltext_url}/{$jahr}/{$source_opus}/{$ext}/{$filename}\" target=\"new\">Dokument {$j}.{$ext2} ({$filesize} KB) </A> ");
if ($bem_file != "") {
fwrite($fd, "({$bem_file})");
}
fwrite($fd, "\n</TD>\n");
$i++;
$j++;
}
$k++;
}
fwrite($fd, "\n</TR>\n</TABLE>\n");
fwrite($fd, "</TD></TR>\n");
}
}
/* gezipptes File mit Endung zip bzw. gz einlesen */
$g = 0;
while ($g < 2) {
$g++;
if ($g == 1) {
$z = "zip";
}
if ($g == 2) {
$z = "gz";
}
$handle = opendir("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}");
while ($file = readdir($handle)) {
if (preg_match("/\\.{$z}/i", $file)) {
if (!preg_match("/^\\.bem_/", $file)) {
$line = "{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/{$file}";
$size = stat($line);
$filesize = $size[7];
$filesize = $filesize / 1024;
if ($filesize < 1) {
$filesize = number_format($filesize, 1);
} else {
$filesize = number_format($filesize);
}
$bem_file = "";
if (file_exists("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$file}")) {
$fd = fopen("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$file}", "r");
$bem_file = fread($fd, filesize("{$volltext_pfad}/{$jahr}/{$source_opus}/{$ext}/.bem_{$file}"));
fclose($fd);
}
fwrite($fd, "<TR>\n<TD class=\"frontdoor\">");
fwrite($fd, "<B>{$ext} gepackt:</B> \n</TD>\n");
fwrite($fd, "\n<TD></TD><TD><TABLE BORDER=0>\n<TR>\n");
fwrite($fd, "<TD class=\"frontdoor\">");
fwrite($fd, "<A HREF=\"{$volltext_url}/{$jahr}/{$source_opus}/{$ext}/{$file}\">Dokument1.{$z} ({$filesize} KB) </A> ");
if ($bem_file != "") {
fwrite($fd, "({$bem_file})");
}
fwrite($fd, "\n</TD>\n");
fwrite($fd, "\n</TR>\n</TABLE>\n");
fwrite($fd, "</TD></TR>\n");
}
}
}
closedir($handle);
}
}
}
$opus->free_result($format);
fwrite($fd, "</table>");
fwrite($fd, "<BR> \n");
# Checksummen-Ueberpruefung
if ($mod_gpg == 1 || $mod_checksum == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><A HREF=\"{$url}/dok_unversehrtheit.php?la={$la}&source_opus={$source_opus}\" title=\"{$unv}\"><img src=\"{$url}/Icons/unversehrt.jpg\" border=\"0\"></a> \n");
}
# A. Maile 11.10.05: Link zur Dokumentempfehlung
if ($empfehlen == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><A HREF=\"{$url}/mailform.php?la={$la}&bereich_id={$bereich_id}&jahr={$jahr}&source_opus={$source_opus}\" title=\"{$t_empfehlen}\"><img src=\"{$url}/Icons/hand.jpg\" border=\"0\"></a> \n");
}
# A. Maile 11.10.05: Link zur Statistik-Anzeige
if ($statistik == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><a href=\"{$url}/statistik.php?source_opus={$source_opus}&title=" . htmlspecialchars(rawurlencode($title)) . "&la={$la}\" TARGET=_blank title=\"{$t_statistik}\"><img src=\"{$url}/Icons/statistik.jpg\" border=\"0\"></A> \n");
# Fuer Statistik mit awstats folgende Zeile auskommentieren.
#fwrite($fd,"<img src= \"$url/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><A HREF=\"$awstats_url?urlfilter=/$source_opus/&urlfilterex=&output=urldetail&config=$awstats_config&lang=de \" TARGET=_blank title=\"$t_statistik\"><img src=\"$url/Icons/statistik.jpg\" border=\"0\"></A> $t_statistik \n");
}
# O.Marahrens 30.03.07: Social-Bookmarking-Dienste
if ($social_bookmarking == 1) {
# O.Marahrens 02.02.07: Link zum Connotea-Bookmark
if ($connotea_export == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><!--<a href=\"" . $_SERVER["REQUEST_URI"] . "&show_connotea=1#connotea_interface\" title=\"{$t_connotea_bookmark}\">--><a href=\"{$url}/connotea.php?source_opus={$source_opus}\" title=\"{$t_connotea_bookmark}\" onclick=\"window.open('{$url}/connotea.php?source_opus={$source_opus}','connotea','toolbar=no,width=700,height=400'); return false;\"><img src=\"{$url}/Icons/connotea_icon.jpg\" border=\"0\" alt=\"{$t_connotea_bookmark}\" /></a> \n");
}
# U.Herb: del.icio.us-Bookmarking
if ($delicious_export == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><A HREF=\"http://del.icio.us/post\" title=\"{$t_delicious_bookmark}\"\n\t onclick=\"window.open('http://del.icio.us/post?v=4&noui&jump=close&url='+encodeURIComponent(location.href)+\n\t '&title='+encodeURIComponent(document.title),\n\t 'delicious','toolbar=no,width=700,height=400'); return false;\" alt=\"{$t_delicious_bookmark}\"><img src=\"{$url}/Icons/delicious.jpg\" border=\"0\" alt=\"{$t_delicious_bookmark}\" /></A> \n");
}
}
# A. Maile 6.8.2007: Link auf Google Scholar mit Suche nach exaktem Titel und Autor
if ($google_scholar == 1) {
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\"><a href=\"{$url_google_scholar}%22" . rawurlencode(utf8_encode($title_orig)) . "%22&as_sauthors=%22" . rawurlencode(utf8_encode($first_creator)) . "%22\" target=\"new\" title=\"{$t_google_scholar}\"><img src=\"{$url}/Icons/google_scholar.jpg\" border=\"0\"></a> \n");
}
fwrite($fd, "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\">" . "<a href=\"{$url}/biblio.php?source_opus={$source_opus}&export=" . "bibtex\" title=\"{$t_bibtex}\"><img src=\"{$url}/Icons/bibtex.jpg\" border=\"0\"></a> \n" . "<img src= \"{$url}/Icons/blind.gif\" border=\"0\" width=\"2\" height=\"1\">" . "<a href=\"{$url}/biblio.php?source_opus={$source_opus}&export=ris\" title=\"{$t_ris}\">" . "<img src=\"{$url}/Icons/ris.jpg\" border=\"0\"></a> \n");
fwrite($fd, "<hr> \n");
fwrite($fd, "<table>");
if ($lic_active >= 1) {
$pod_active = $opus->value("pod_active");
if ($pod_active > 0 && $bereich_id == 1) {
// check, ob lic pod erlaubt und Volltext frei zugaenglich
$res = $opus->query("SELECT pod_allowed FROM license_{$la} WHERE shortname='{$lic}'");
$podnum = $opus->num_rows($res);
if ($podnum == 1) {
$mrow = $opus->fetch_row($res);
if ($mrow[0] == 1) {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\">");
fwrite($fd, "<B>{$pod_linkname_1}</B> </TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\">\n<table border=\"0\"><tr><td class=\"frontdoor\">\n");
$pod_info = $opus->value("pod_info");
$tmp_url = "{$volltext_url}/{$jahr}/{$source_opus}/";
$podlink = $pod_info . "?urn=" . urlencode($urn) . "&docurl=" . urlencode($tmp_url) . "&lic=" . $lic . "&aut=" . $pod_creator_names . "&tit=" . htmlspecialchars(rawurlencode($title)) . "&bereich_id=" . $bereich_id . "&la=" . $la;
$pod_uselogos = $opus->value("pod_uselogos");
$pod_partner_logo = $opus->value("pod_partner_logo");
if ($pod_uselogos and strlen($pod_partner_logo) > 0) {
$podlogo_width = $opus->value("pod_logo_width");
$podlogo_height = $opus->value("pod_logo_height");
$podlogo_wh = "";
if ($podlogo_width) {
$podlogo_wh .= " width=\"" . $podlogo_width . "\"";
}
if ($podlogo_height) {
$podlogo_wh .= " height=\"" . $podlogo_height . "\"";
}
fwrite($fd, "<a href=\"{$podlink}\" target=\"_blank\">\n");
fwrite($fd, "<img src=\"" . $pod_partner_logo . "\" alt=\"POD-Logo\" border=\"0\"" . $podlogo_wh . ">");
fwrite($fd, "</a> \n");
}
fwrite($fd, "<a href=\"{$podlink}\" target=\"_blank\">");
fwrite($fd, "{$pod_linkname_2} </a> \n</td>\n</tr>\n</table>\n</TD>\n");
fwrite($fd, "</TR> \n");
}
}
$opus->free_result($res);
}
}
# Zugriff auf Volltexte weltweit/campusweit/weitere Bereiche
# Wenn Zugriffsbeschraenkung besteht ($bereich_id > 1)
# dann diese anzeigen.
if ($bereich_id > 1) {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
# fwrite($fd,"<B>Zugriffsbeschränkung:</B></TD> \n");
fwrite($fd, "<B>{$text3}:</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$bereich} </TD>\n");
fwrite($fd, "</TR> \n");
}
# Ende Zugriff auf Volltexte weltweit/campusweit/weitere Bereiche
if ($subject_swd != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\" width=\"130\">");
fwrite($fd, "<B>{$schlagwoerter_swd}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$subject_swd} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($subject_uncontrolled_german != "") {
fwrite($fd, "<TR>\n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$schlagwoerter_frei}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$subject_uncontrolled_german} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($subject_uncontrolled_english != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$schlagwoerter_engl}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$subject_uncontrolled_english} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($subject_type != "") {
$opustable_subject_type = $opustable . "_" . $subject_type;
$res = $opus->query("SELECT class from {$opustable_subject_type} where source_opus = {$source_opus}");
$num = $opus->num_rows($res);
if ($num > 0) {
$mrow = $opus->fetch_row($res);
$class = $mrow[0];
$i = 1;
while ($i < $num) {
$i++;
$mrow = $opus->fetch_row($res);
$class = "{$class} , {$mrow['0']}";
}
$opus->free_result($res);
$res = $opus->query("SELECT name from klassifikation_{$la} where table_name = '{$subject_type}' ");
$mrow = $opus->fetch_row($res);
$class_name = $mrow[0];
$opus->free_result($res);
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$class_name}:</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$class} </TD>\n");
fwrite($fd, "</TR> \n");
}
}
//Anfang Collections
if ($coll_anzeigen == "true") {
$i = 0;
while ($i < $collnum) {
$i++;
// Wir finden den coll_name der Collection heraus
$res_coll = $opus->query("SELECT coll_name FROM collections WHERE coll_id = {$coll[$i]};");
$mrow_coll = $opus->fetch_row($res_coll);
$coll_name = $mrow_coll[0];
// Wir finden den Namen und die ganze Hierarchie nach oben heraus
$query_eltern = "SELECT a.coll_name, (a.rgt - a.lft ) AS height\n\t\t\t\t\t\t\t\tFROM collections AS a, collections AS b\n\t\t\t\t\t\t\t\tWHERE b.lft BETWEEN a.lft AND a.rgt\n\t\t\t\t\t\t\t\tAND b.coll_id = '{$coll[$i]}'\n\t\t\t\t\t\t\t\tORDER BY height DESC;";
$res_eltern = $opus->query($query_eltern);
$num_eltern = $opus->num_rows($res_eltern);
fwrite($fd, "<tr> \n<td class=\"frontdoor\" valign=\"top\">");
if ($collnum > 1) {
fwrite($fd, "<b>{$t_collection} {$i}:</b></td> \n");
} else {
fwrite($fd, "<b>{$t_collection}:</b></td>\n");
}
fwrite($fd, "<td></td><td class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "<a href=\"{$url}/abfrage_collections.php?coll_id={$coll[$i]}&la={$la}\" target=\"new\">");
$m = 0;
while ($m < $num_eltern) {
$mrow_eltern = $opus->fetch_row($res_eltern);
$coll_name_eltern = $mrow_eltern[0];
if ($coll_name_eltern != $coll_name) {
fwrite($fd, "{$coll_name_eltern} / ");
} else {
fwrite($fd, "{$coll_name_eltern}");
}
$m++;
}
fwrite($fd, "</a></td> \n");
fwrite($fd, "</tr> \n");
}
}
// Ende Collections
$i = 0;
while ($i < $instnum) {
$i++;
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
if ($instnum > 1) {
fwrite($fd, "<B>{$t_institut} {$i}:</B></TD> \n");
} else {
fwrite($fd, "<B>{$t_institut}:</B></TD> \n");
}
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$inst[$i]}</TD>\n");
fwrite($fd, "</TR> \n");
}
if ($publisher_faculty != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_fakultaet}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$publisher_faculty} </TD>\n");
fwrite($fd, "</TR> \n");
}
//***************************************************************************************************************************************
//Änderung TW
//Studiengang, Seitenanzahl, Datum, AC-Nummer und Begutachter eingefügt
if ($studiengang != "" && $studiengang > 0) {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
$res = $opus->query("SELECT * FROM studiengang WHERE stg_nr ='{$studiengang}'");
$rrr = 'name_' . $la;
$mrow = $opus->fetch_object($res);
$name = $mrow->{$rrr};
$typ = $mrow->typ;
fwrite($fd, "<B>{$t_studiengang}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$studiengang}, {$typ} {$name} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($ac_nr != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_acnr}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$ac_nr} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($seitenanzahl != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_sanz}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$seitenanzahl} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($datum != "" && $datum != NULL) {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_datum}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
$datum_obj = new datum();
$datum = $datum_obj->formatDatum($datum, 'd.m.Y');
fwrite($fd, $datum . "</TD>\n");
fwrite($fd, "</TR> \n");
}
if ($gutachter1 != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_gutachter1}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$gutachter1} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($gutachter2 != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_gutachter2}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$gutachter2} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($studiensemester != 0 && $studiensemester != '') {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_studiensemester}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$studiensemester}</TD>\n");
fwrite($fd, "</TR> \n");
}
//****************************************************************************************************************************************
if ($sachgruppe_ddc != "" && $sachgruppe_ddc != "no") {
$res = $opus->query("SELECT sachgruppe FROM sachgruppe_ddc_{$la} where nr = '{$sachgruppe_ddc}'");
$num = $opus->num_rows($res);
if ($num > 0) {
$mrow = $opus->fetch_row($res);
$sachgruppe_ddc = $mrow[0];
}
$opus->free_result($res);
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$ddc_sachgruppe}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$sachgruppe_ddc}</TD>\n");
fwrite($fd, "</TR> \n");
}
if ($contributors_corporate != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$sonstige_institution}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$contributors_corporate} </TD>\n");
fwrite($fd, "</TR> \n");
}
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_dokumentart}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$dokumentart} </TD>\n");
fwrite($fd, "</TR> \n");
/***** Schriftenreihe Start *****/
if ($sr_id != "" && $sr_band != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_schriftenreihe}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "<a href=\"{$url}/schriftenreihen_ebene2.php?sr_id={$sr_id}&la={$la}\" target=\"new\">{$sr_name}</a> </TD>\n");
fwrite($fd, "</TR> \n");
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_bandnr}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$sr_band} </TD>\n");
fwrite($fd, "</TR> \n");
}
/***** Schriftenreihe Stop *****/
if ($advisor != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_hauptberichter}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$advisor} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($isbn != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_isbn}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$isbn} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($issn != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_issn}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$issn} </TD>\n");
fwrite($fd, "</TR> \n");
}
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_sprache}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$sprache} </TD>\n");
fwrite($fd, "</TR> \n");
if ($date_accepted != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_pruefung_muendlich}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
$date_accepted_format = strftime("%d.%m.%Y", $date_accepted);
fwrite($fd, "{$date_accepted_format} </TD>\n");
fwrite($fd, "</TR> \n");
}
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_erstellungsjahr}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$date_year} </TD>\n");
fwrite($fd, "</TR> \n");
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_publikationsdatum}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
$date_creation_format = strftime("%d.%m.%Y", $date_creation);
fwrite($fd, "{$date_creation_format} </TD>\n");
fwrite($fd, "</TR> \n");
if ($date_valid != 0) {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
#fwrite($fd,"<B>Gültig bis:</B></TD> \n");
fwrite($fd, "<B>{$text6}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
$date_valid_format = strftime("%d.%m.%Y", $date_valid);
fwrite($fd, "{$date_valid_format} </TD>\n");
fwrite($fd, "</TR> \n");
}
if ($bem_extern != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$t_bemerkung}</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, "{$bem_extern} </TD>\n");
fwrite($fd, "</TR> \n");
}
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$text4} {$sprache_description}:</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, nl2br($description));
fwrite($fd, "</TD>\n");
fwrite($fd, "</TR> \n");
if ($description2 != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$text4} {$sprache_description2}:</B></TD> \n");
fwrite($fd, "<TD></TD><TD class=\"frontdoor\" valign=\"bottom\">");
fwrite($fd, nl2br($description2));
fwrite($fd, "</TD>\n");
fwrite($fd, "</TR> \n");
}
# Start Lizenzvertrag
if ($lic_active >= 2) {
if ($licname != "") {
fwrite($fd, "<TR> \n<TD class=\"frontdoor\" valign=\"top\">");
fwrite($fd, "<B>{$lizenz}:</B></TD> \n");
fwrite($fd, "<TD></TD>\n<TD class=\"frontdoor\" valign=\"bottom\">");
if (strlen(trim($licdesc_html)) > 0) {
fwrite($fd, "\n" . $licdesc_html . "\n");
}
$lic_uselogos = $opus->value("license_uselogos");
if ($lic_uselogos and strlen($liclogo) > 0) {
$liclogo_width = $opus->value("license_logo_width");
$liclogo_height = $opus->value("license_logo_height");
$liclogo_wh = "";
if ($liclogo_width) {
$liclogo_wh .= " width=\"" . $liclogo_width . "\"";
}
if ($liclogo_height) {
$liclogo_wh .= " height=\"" . $liclogo_height . "\"";
}
fwrite($fd, "<a href=\"{$liclink}?la={$la}\" target=\"_blank\">\n");
fwrite($fd, "<img src=\"" . $liclogo . "\" alt=\"Lizenz-Logo\" border=\"0\"" . $liclogo_wh . ">");
fwrite($fd, "</a> \n");
}
fwrite($fd, "<a href=\"{$liclink}?la={$la}\" target=\"_blank\">\n");
fwrite($fd, "{$licname}</a> \n</td>\n");
fwrite($fd, "</tr> \n");
}
}
fwrite($fd, "</TABLE> \n");
} else {
#fwrite($fd,"IDN $source_opus nicht vorhanden.");
fwrite($fd, "{$text7} {$source_opus} {$text8} ");
}
//$opus->close($sock);
}
function clean_text($string, $min_length = 0, $max_length = 0)
{
$ret = _is_valid($string, $min_length, $max_length, "[a-zA-Z0-9[:space:]@*������������������������������‗אבגדהוזחטיךכלםמןנסעףפץצרשת��`´'():.]+");
if (!$ret) {
$string = ereg_replace("[&\"<>/\\=]+", " ", $string);
}
return $string;
}
