Präsenzseminare

use Time::Local; use Time::localtime; use Imperia; sub trim($); # Konstanten $filemaske = ".*\.shtml"; $root_dir = $imperia->common->{system_conf}->{'SITE-DIR'}; $root_dir =~ s/site/htdocs/; $ssi_dir = $metainfo->getValues("ssiverzeichnis"); @readdir = ($metainfo->getValues("directory") ); $filenameprefix = 'seminare'; $ueberschrift = 'Seminare'; $aktuelleTagen = $metainfo->getValues("tage"); $adressaten_anzeigen = $metainfo->getValues("adressaten_anzeigen"); $rss_on = $metainfo->getValues("rss"); $einrichtung = $metainfo->getValues("einrichtung"); $dir = $metainfo->getValues("directory"); $titel = $metainfo->getValues("titel"); $maxRSS = $metainfo->getValues("maxRSS"); # Anzahl der Nachrichten im RSS-Feed $rss_head = "\n\n\n\n".$einrichtung." - ".$titel."\nhttp://www.fernuni-hagen.de$dir\nRSS 2.0 Feeds\nde\n"; $rss_foot = "\n"; $rss_inhalt = ""; $rss = ""; #Funktion zum Vergleichen Daten in deutschem Format: TT.MM.YYYY HH:MM (leider etwas umstaendlich und trotzdem nicht idiotensicher geworden - wegen der Uhrzeit) sub german2normdate { my $gDate = shift; # @_[0]; my $dateNorm = ""; if ($gDate =~ /\s*([0-9]{1,2})\s*\.\s*([0-9]{1,2})\s*\.\s*([0-9]{2,4})(.*)/) { $dateNorm = ""; $dateNorm .= "20" if (length($3)==2); $dateNorm .= $3; $dateNorm .= "0" if (length($2)<2); $dateNorm .= $2; $dateNorm .= "0" if (length($1)<2); $dateNorm .= $1; my $uhrzeit = $4; $uhrzeit .= ':00' if (not($uhrzeit =~ /\:/)); $uhrzeit =~ s/[^0-9]//g; $uhrzeit = substr($uhrzeit, 0, 4) if (length($uhrzeit)>4); $dateNorm .= sprintf("%04d", $uhrzeit); } if (($gDate =~ /([0-9]{1,2})\.([0-9]{4})/) || ($gDate =~ /([0-9]{1,2})\/([0-9]{4})/)) { $dateNorm .= $2; $dateNorm .= "0" if (length($1)<2); $dateNorm .= $1; $dateNorm .= "28"; my $uhrzeit = $3; $uhrzeit .= ':00' if (not($uhrzeit =~ /\:/)); $uhrzeit =~ s/[^0-9]//g; $uhrzeit = substr($uhrzeit, 0, 4) if (length($uhrzeit)>4); $dateNorm .= sprintf("%04d", $uhrzeit); } if ($gDate =~ /([0-9]{4})/) { $dateNorm .= $1; $dateNorm .= "1231"; my $uhrzeit = $2; $uhrzeit .= ':00' if (not($uhrzeit =~ /\:/)); $uhrzeit =~ s/[^0-9]//g; $uhrzeit = substr($uhrzeit, 0, 4) if (length($uhrzeit)>4); $dateNorm .= sprintf("%04d", $uhrzeit); } return($dateNorm); } sub normdate2time { my $nDate = shift; # @_[0]; if ($nDate =~ /\s*([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2}).*/) { return timelocal(0,$5,$4,$3,$2-1,$1); } return 0; } sub cmp_germandate { my $aDate = $FILE_META_INFO{$a}->getValues('terminvon'); my $bDate = $FILE_META_INFO{$b}->getValues('terminvon'); my $aDateNorm = german2normdate($aDate); my $bDateNorm = german2normdate($bDate); return ($aDateNorm cmp $bDateNorm); } sub nowNormdate { my $tm = localtime(time); my $Sekunden = $tm->sec; my $Minuten = $tm->min; my $Stunden = $tm->hour; my $Monatstag = $tm->mday; my $Monat = $tm->mon + 1; my $Jahr = $tm->year + 1900; $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden; return $Jahr.$Monat.$Monatstag . $Stunden.$Minuten; } sub schreibeSSI { my $inhalt = shift; my $datei_name = shift; &log("Schreibe:" . $datei_name); open(DATEI, ">$datei_name") || die "Kann nicht oeffnen: $datei_name"; print DATEI $inhalt; close(DATEI); } sub log(){ $s = @_[0]; $openString = (($s eq "<--->") ? ">" : ">>" ) .$root_dir.$ssi_dir."/".$filenameprefix."_log.txt"; open(DATEI, $openString) || die "Problem beim Öffnen der Log-Datei!"; print DATEI $s."\n"; close(DATEI); } sub trim($) { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string; } sub tagFilter{ my $text = shift; $text =~ s/<\S*>//g; return $text; } clearlist(); filemask($filemaske); #ireaddir($readdir); foreach my $dir (@readdir) { ireaddir($dir); } @FILELIST = sort(cmp_germandate @FILELIST); &log("<--->"); my $laenge = @FILELIST; my $ssi_zukunft = ''; my $zaehler = 0; my $jetzt = nowNormdate(); my $ssi_stg = ''; my $ssi_stg_kurz = ''; my $ssi_stg_kurz_titel = ''; foreach my $file (@FILELIST) { my $directory = $FILE_META_INFO{$file}->getValues('directory'); my $filename = $FILE_META_INFO{$file}->getValues('filename'); my $thema = $FILE_META_INFO{$file}->getValues('thema'); my $terminvon = $FILE_META_INFO{$file}->getValues('terminvon'); my $terminbis = $FILE_META_INFO{$file}->getValues('terminbis'); my $ort = $FILE_META_INFO{$file}->getValues('ort'); my $adressaten = $FILE_META_INFO{$file}->getValues('adrkreis'); my $imperiablock_count_3 = $FILE_META_INFO{$file}->getValues('imperiablock_count_3'); my $terminvonNorm = german2normdate($terminvon); my $terminbisNorm = german2normdate($terminbis); my $weiteretexte = ($FILE_META_INFO{$file}->getValues('wysiwygcode') || $FILE_META_INFO{$file}->getValues('onlineanmeldung') || $FILE_META_INFO{$file}->getValues('FLEXHISTORY_0')); # Zum Nachpruefen, ob die Seite verlinkt werden soll. Ist wegen der Flexmodule aber unzuverlaessig! $keineIndexseite =(($filename ne '') and not( $filename =~ /^(index|sa_index|index_archiv|index_zukunft|zukunft|archiv|uebersicht|allgemeine_hinweise|faq)\.(shtml|htms)$/ )); $differenzTage = (normdate2time($terminvonNorm) - normdate2time($jetzt)) / (24*60*60); $differenzTage2 = (normdate2time($terminbisNorm) - normdate2time($jetzt)) / (24*60*60); #&log("terminvon=" .$terminvonNorm. " differenz=".$differenzTage. " zukunft=".$zukuenftig . " filename=".$filename . " keineIndexseite=". $keineIndexseite ); $terminvon = trim($terminvon); $terminbis = trim($terminbis); if ($FILE_META_INFO{$file}->getValues('terminbis') ne '') { $zukuenftig = ($jetzt<=$terminbisNorm); $aktuell = ($differenzTage2<=$aktuelleTagen and $differenzTage2>0); }else{ $zukuenftig = ($jetzt<=$terminvonNorm); $aktuell = ($differenzTage<=$aktuelleTagen and $differenzTage>0); } my $adressaten_rewi = ''; $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_100').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_100')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_101').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_101')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_103').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_103')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_104').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_104')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_105').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_105')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_107').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_107')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_108').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_108')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_109').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_109')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_110').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_110')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_111').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_111')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_112').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_112')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_113').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_113')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_204').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_204')); my $adressaten_ksw = ''; if (($FILE_META_INFO{$file}->getValues('babw_1a') || $FILE_META_INFO{$file}->getValues('babw_1b') || $FILE_META_INFO{$file}->getValues('babw_1c') || $FILE_META_INFO{$file}->getValues('babw_1d') || $FILE_META_INFO{$file}->getValues('babw_2a') || $FILE_META_INFO{$file}->getValues('babw_2b') || $FILE_META_INFO{$file}->getValues('babw_2c') || $FILE_META_INFO{$file}->getValues('babw_2d') || $FILE_META_INFO{$file}->getValues('babw_3a') || $FILE_META_INFO{$file}->getValues('babw_3b') || $FILE_META_INFO{$file}->getValues('babw_3c') || $FILE_META_INFO{$file}->getValues('babw_3d') || $FILE_META_INFO{$file}->getValues('babw_3e')) and ($FILE_META_INFO{$file}->getValues('module_babw_anzeigen') eq 'block')){ $adressaten_ksw .= "BA BiWi: "; $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_1a').'; ' if($FILE_META_INFO{$file}->getValues('babw_1a')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_1b').'; ' if($FILE_META_INFO{$file}->getValues('babw_1b')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_1c').'; ' if($FILE_META_INFO{$file}->getValues('babw_1c')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_1d').'; ' if($FILE_META_INFO{$file}->getValues('babw_1d')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_2a').'; ' if($FILE_META_INFO{$file}->getValues('babw_2a')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_2b').'; ' if($FILE_META_INFO{$file}->getValues('babw_2b')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_2c').'; ' if($FILE_META_INFO{$file}->getValues('babw_2c')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_2d').'; ' if($FILE_META_INFO{$file}->getValues('babw_2d')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_3a').'; ' if($FILE_META_INFO{$file}->getValues('babw_3a')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_3b').'; ' if($FILE_META_INFO{$file}->getValues('babw_3b')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_3c').'; ' if($FILE_META_INFO{$file}->getValues('babw_3c')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_3d').'; ' if($FILE_META_INFO{$file}->getValues('babw_3d')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('babw_3e').'; ' if($FILE_META_INFO{$file}->getValues('babw_3e')); } if (($FILE_META_INFO{$file}->getValues('bakw_g1') || $FILE_META_INFO{$file}->getValues('bakw_g2') || $FILE_META_INFO{$file}->getValues('bakw_g3') || $FILE_META_INFO{$file}->getValues('bakw_g4') || $FILE_META_INFO{$file}->getValues('bakw_g5') || $FILE_META_INFO{$file}->getValues('bakw_g6') || $FILE_META_INFO{$file}->getValues('bakw_l1') || $FILE_META_INFO{$file}->getValues('bakw_l2') || $FILE_META_INFO{$file}->getValues('bakw_l3') || $FILE_META_INFO{$file}->getValues('bakw_l4') || $FILE_META_INFO{$file}->getValues('bakw_l5') || $FILE_META_INFO{$file}->getValues('bakw_l6') || $FILE_META_INFO{$file}->getValues('bakw_e3') || $FILE_META_INFO{$file}->getValues('bakw_p1') || $FILE_META_INFO{$file}->getValues('bakw_p2') || $FILE_META_INFO{$file}->getValues('bakw_p3') || $FILE_META_INFO{$file}->getValues('bakw_p4') || $FILE_META_INFO{$file}->getValues('bakw_p5') || $FILE_META_INFO{$file}->getValues('bakw_p6') || $FILE_META_INFO{$file}->getValues('bakw_w1') || $FILE_META_INFO{$file}->getValues('bakw_w2') || $FILE_META_INFO{$file}->getValues('bakw_w3') || $FILE_META_INFO{$file}->getValues('bakw_w4')) and ($FILE_META_INFO{$file}->getValues('module_bakw_anzeigen') eq 'block')) { $adressaten_ksw .= "BA KuWi: "; $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g1')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g2')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g3')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g4')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g5')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_g6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g6')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l1')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l2')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l3')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l4')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l5')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_l6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l6')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p1')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p2')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p3')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p4')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p5')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_p6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p6')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_w1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w1')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_w2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w2')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_w3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w3')); $adressaten_ksw .= $FILE_META_INFO{$file}->getValues('bakw_w4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w4')); } if (($FILE_META_INFO{$file}->getValues('bakwof_3') || $FILE_META_INFO{$file}->getValues('bakwof_4') || $FILE_META_INFO{$file}->getValues('bakwof_5') || $FILE_META_INFO{$file}->getValues('bakwof_6') || $FILE_META_INFO{$file}->getValues('bakwof_7') || $FILE_META_INFO{$file}->getValues('bakwof_8') || $FILE_META_INFO{$file}->getValues('bakwof_9') || $FILE_META_INFO{$file}->getValues('bakwof_l0') || $FILE_META_INFO{$file}->getValues('bakwof_11a') || $FILE_META_INFO{$file}->getValues('bakwof_12a') || $FILE_META_INFO{$file}->getValues('bakwof_11b') || $FILE_META_INFO{$file}->getValues('bakwof_12b') || $FILE_META_INFO{$file}->getValues('bakwof_11c') || $FILE_META_INFO{$file}->getValues('bakwof_12c')) and ($FILE_META_INFO{$file}->getValues('module_bakwof_anzeigen') eq 'block')){ $adressaten_ksw .="BA KuWioF: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_3').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_4').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_5').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_6').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_7').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_8').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_9').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_10').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11a').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12a').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11b').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12b').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11c').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11c')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12c').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12c')); } if (($FILE_META_INFO{$file}->getValues('bapo_b1') || $FILE_META_INFO{$file}->getValues('bapo_b2') || $FILE_META_INFO{$file}->getValues('bapo_b3') || $FILE_META_INFO{$file}->getValues('bapo_b4') || $FILE_META_INFO{$file}->getValues('bapo_ge') || $FILE_META_INFO{$file}->getValues('bapo_m1') || $FILE_META_INFO{$file}->getValues('bapo_m2') || $FILE_META_INFO{$file}->getValues('bapo_p1') || $FILE_META_INFO{$file}->getValues('bapo_p2') || $FILE_META_INFO{$file}->getValues('bapo_p3') || $FILE_META_INFO{$file}->getValues('bapo_phil') || $FILE_META_INFO{$file}->getValues('bapo_re') || $FILE_META_INFO{$file}->getValues('bapo_s1') || $FILE_META_INFO{$file}->getValues('bapo_s2') || $FILE_META_INFO{$file}->getValues('bapo_s3') || $FILE_META_INFO{$file}->getValues('bapo_s4') || $FILE_META_INFO{$file}->getValues('bapo_v1') || $FILE_META_INFO{$file}->getValues('bapo_v2') || $FILE_META_INFO{$file}->getValues('bapo_v3') || $FILE_META_INFO{$file}->getValues('bapo_v4') || $FILE_META_INFO{$file}->getValues('bapo_vp1') || $FILE_META_INFO{$file}->getValues('bapo_vp2') || $FILE_META_INFO{$file}->getValues('bapo_vs1') || $FILE_META_INFO{$file}->getValues('bapo_w1')) and ($FILE_META_INFO{$file}->getValues('module_bapo_anzeigen') eq 'block')){ $adressaten_ksw .="BA PVS: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_ge').'; ' if($FILE_META_INFO{$file}->getValues('bapo_ge')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_m1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_m1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_m2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_m2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_phil').'; ' if($FILE_META_INFO{$file}->getValues('bapo_phil')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_re').'; ' if($FILE_META_INFO{$file}->getValues('bapo_re')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vp1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vp1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vp2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vp2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vs1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vs1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_w1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_w1')); } if (($FILE_META_INFO{$file}->getValues('bapsy_1') || $FILE_META_INFO{$file}->getValues('bapsy_2') || $FILE_META_INFO{$file}->getValues('bapsy_3') || $FILE_META_INFO{$file}->getValues('bapsy_4') || $FILE_META_INFO{$file}->getValues('bapsy_5') || $FILE_META_INFO{$file}->getValues('bapsy_6') || $FILE_META_INFO{$file}->getValues('bapsy_7') || $FILE_META_INFO{$file}->getValues('bapsy_8') || $FILE_META_INFO{$file}->getValues('bapsy_9') || $FILE_META_INFO{$file}->getValues('bapsy_10') || $FILE_META_INFO{$file}->getValues('bapsy_11')) and ($FILE_META_INFO{$file}->getValues('module_bapsy_anzeigen') eq 'block')){ $adressaten_ksw .="BSc Psy: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_1').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_2').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_3').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_4').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_5').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_6').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_7').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_8').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_9').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_10').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_11').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_11')); } if (($FILE_META_INFO{$file}->getValues('basoz_2') || $FILE_META_INFO{$file}->getValues('basoz_3') || $FILE_META_INFO{$file}->getValues('basoz_4') || $FILE_META_INFO{$file}->getValues('basoz_5') || $FILE_META_INFO{$file}->getValues('basoz_6') || $FILE_META_INFO{$file}->getValues('basoz_7') || $FILE_META_INFO{$file}->getValues('basoz_8') || $FILE_META_INFO{$file}->getValues('basoz_9') || $FILE_META_INFO{$file}->getValues('basoz_10') || $FILE_META_INFO{$file}->getValues('basoz_11')) and ($FILE_META_INFO{$file}->getValues('module_basoz_anzeigen') eq 'block')){ $adressaten_ksw .="BA Soz: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_2').'; ' if($FILE_META_INFO{$file}->getValues('basoz_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_3').'; ' if($FILE_META_INFO{$file}->getValues('basoz_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_4').'; ' if($FILE_META_INFO{$file}->getValues('basoz_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_5').'; ' if($FILE_META_INFO{$file}->getValues('basoz_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_6').'; ' if($FILE_META_INFO{$file}->getValues('basoz_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_7').'; ' if($FILE_META_INFO{$file}->getValues('basoz_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_8').'; ' if($FILE_META_INFO{$file}->getValues('basoz_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_9').'; ' if($FILE_META_INFO{$file}->getValues('basoz_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_10').'; ' if($FILE_META_INFO{$file}->getValues('basoz_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_11').'; ' if($FILE_META_INFO{$file}->getValues('basoz_11')); } if (($FILE_META_INFO{$file}->getValues('mabm_1') || $FILE_META_INFO{$file}->getValues('mabm_2') || $FILE_META_INFO{$file}->getValues('mabm_3') || $FILE_META_INFO{$file}->getValues('mabm_4') || $FILE_META_INFO{$file}->getValues('mabm_5') || $FILE_META_INFO{$file}->getValues('mabm_6') || $FILE_META_INFO{$file}->getValues('mabm_7')) and ($FILE_META_INFO{$file}->getValues('module_mabm_anzeigen') eq 'block')){ $adressaten_ksw .="MA BiMe: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_1').'; ' if($FILE_META_INFO{$file}->getValues('mabm_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_2').'; ' if($FILE_META_INFO{$file}->getValues('mabm_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_3').'; ' if($FILE_META_INFO{$file}->getValues('mabm_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_4').'; ' if($FILE_META_INFO{$file}->getValues('mabm_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_5').'; ' if($FILE_META_INFO{$file}->getValues('mabm_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_6').'; ' if($FILE_META_INFO{$file}->getValues('mabm_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_7').'; ' if($FILE_META_INFO{$file}->getValues('mabm_7')); } if (($FILE_META_INFO{$file}->getValues('maem_1e') || $FILE_META_INFO{$file}->getValues('maem_2e') || $FILE_META_INFO{$file}->getValues('maem_3e') || $FILE_META_INFO{$file}->getValues('maem_4g') || $FILE_META_INFO{$file}->getValues('maem_5g') || $FILE_META_INFO{$file}->getValues('maem_6g') || $FILE_META_INFO{$file}->getValues('maem_7g') || $FILE_META_INFO{$file}->getValues('maem_4l') || $FILE_META_INFO{$file}->getValues('maem_5l') || $FILE_META_INFO{$file}->getValues('maem_6l') || $FILE_META_INFO{$file}->getValues('maem_7l')) and ($FILE_META_INFO{$file}->getValues('module_maem_anzeigen') eq 'block')){ $adressaten_ksw .="MA EuMo: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_1e').'; ' if($FILE_META_INFO{$file}->getValues('maem_1e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_2e').'; ' if($FILE_META_INFO{$file}->getValues('maem_2e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_3e').'; ' if($FILE_META_INFO{$file}->getValues('maem_3e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_4g').'; ' if($FILE_META_INFO{$file}->getValues('maem_4g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_5g').'; ' if($FILE_META_INFO{$file}->getValues('maem_5g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_6g').'; ' if($FILE_META_INFO{$file}->getValues('maem_6g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_7g').'; ' if($FILE_META_INFO{$file}->getValues('maem_7g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_4l').'; ' if($FILE_META_INFO{$file}->getValues('maem_4l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_5l').'; ' if($FILE_META_INFO{$file}->getValues('maem_5l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_6l').'; ' if($FILE_META_INFO{$file}->getValues('maem_6l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_7l').'; ' if($FILE_META_INFO{$file}->getValues('maem_7l')); } if (($FILE_META_INFO{$file}->getValues('mage_1') || $FILE_META_INFO{$file}->getValues('mage_2') || $FILE_META_INFO{$file}->getValues('mage_3') || $FILE_META_INFO{$file}->getValues('mage_4') || $FILE_META_INFO{$file}->getValues('mage_5') || $FILE_META_INFO{$file}->getValues('mage_6') || $FILE_META_INFO{$file}->getValues('mage_7') || $FILE_META_INFO{$file}->getValues('mage_8') || $FILE_META_INFO{$file}->getValues('mage_9') || $FILE_META_INFO{$file}->getValues('mage_10')) and ($FILE_META_INFO{$file}->getValues('module_mage_anzeigen') eq 'block')){ $adressaten_ksw .="MA GeEu: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_1').'; ' if($FILE_META_INFO{$file}->getValues('mage_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_2').'; ' if($FILE_META_INFO{$file}->getValues('mage_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_3').'; ' if($FILE_META_INFO{$file}->getValues('mage_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_4').'; ' if($FILE_META_INFO{$file}->getValues('mage_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_5').'; ' if($FILE_META_INFO{$file}->getValues('mage_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_6').'; ' if($FILE_META_INFO{$file}->getValues('mage_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_7').'; ' if($FILE_META_INFO{$file}->getValues('mage_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_8').'; ' if($FILE_META_INFO{$file}->getValues('mage_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_9').'; ' if($FILE_META_INFO{$file}->getValues('mage_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_10').'; ' if($FILE_META_INFO{$file}->getValues('mage_10')); } if (($FILE_META_INFO{$file}->getValues('magov_11') || $FILE_META_INFO{$file}->getValues('magov_12') || $FILE_META_INFO{$file}->getValues('magov_13') || $FILE_META_INFO{$file}->getValues('magov_14') || $FILE_META_INFO{$file}->getValues('magov_15') || $FILE_META_INFO{$file}->getValues('magov_21') || $FILE_META_INFO{$file}->getValues('magov_22') || $FILE_META_INFO{$file}->getValues('magov_23') || $FILE_META_INFO{$file}->getValues('magov_24') || $FILE_META_INFO{$file}->getValues('magov_25')) and ($FILE_META_INFO{$file}->getValues('module_magov_anzeigen') eq 'block')){ $adressaten_ksw .="MA Gov: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_11').'; ' if($FILE_META_INFO{$file}->getValues('magov_11')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_12').'; ' if($FILE_META_INFO{$file}->getValues('magov_12')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_13').'; ' if($FILE_META_INFO{$file}->getValues('magov_13')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_14').'; ' if($FILE_META_INFO{$file}->getValues('magov_14')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_15').'; ' if($FILE_META_INFO{$file}->getValues('magov_15')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_21').'; ' if($FILE_META_INFO{$file}->getValues('magov_21')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_22').'; ' if($FILE_META_INFO{$file}->getValues('magov_22')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_23').'; ' if($FILE_META_INFO{$file}->getValues('magov_23')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_24').'; ' if($FILE_META_INFO{$file}->getValues('magov_24')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_25').'; ' if($FILE_META_INFO{$file}->getValues('magov_25')); } if (($FILE_META_INFO{$file}->getValues('maphil_I') || $FILE_META_INFO{$file}->getValues('maphil_II') || $FILE_META_INFO{$file}->getValues('maphil_III') || $FILE_META_INFO{$file}->getValues('maphil_IV') || $FILE_META_INFO{$file}->getValues('maphil_V') || $FILE_META_INFO{$file}->getValues('maphil_VI') || $FILE_META_INFO{$file}->getValues('maphil_VII') || $FILE_META_INFO{$file}->getValues('maphil_VIII') || $FILE_META_INFO{$file}->getValues('maphil_IX') || $FILE_META_INFO{$file}->getValues('maphil_X')) and ($FILE_META_INFO{$file}->getValues('module_maphil_anzeigen') eq 'block')){ $adressaten_ksw .="MA Phil: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_I').'; ' if($FILE_META_INFO{$file}->getValues('maphil_I')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_II').'; ' if($FILE_META_INFO{$file}->getValues('maphil_II')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_III').'; ' if($FILE_META_INFO{$file}->getValues('maphil_III')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_IV').'; ' if($FILE_META_INFO{$file}->getValues('maphil_IV')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_V').'; ' if($FILE_META_INFO{$file}->getValues('maphil_V')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VI').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VI')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VII').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VII')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VIII').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VIII')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_IX').'; ' if($FILE_META_INFO{$file}->getValues('maphil_IX')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_X').'; ' if($FILE_META_INFO{$file}->getValues('maphil_X')); } if (($FILE_META_INFO{$file}->getValues('at_phil') || $FILE_META_INFO{$file}->getValues('ap_phil')) and ($FILE_META_INFO{$file}->getValues('module_maphil_anzeigen') eq 'block')){ $adressaten_ksw .="AT Phil; " if($FILE_META_INFO{$file}->getValues('at_phil')); $adressaten_ksw .="AP Phil; " if($FILE_META_INFO{$file}->getValues('ap_phil')); } if (($FILE_META_INFO{$file}->getValues('mapsy_1') || $FILE_META_INFO{$file}->getValues('mapsy_2') || $FILE_META_INFO{$file}->getValues('mapsy_3') || $FILE_META_INFO{$file}->getValues('mapsy_4') || $FILE_META_INFO{$file}->getValues('mapsy_5') || $FILE_META_INFO{$file}->getValues('mapsy_6') || $FILE_META_INFO{$file}->getValues('mapsy_7')) and ($FILE_META_INFO{$file}->getValues('module_mapsy_anzeigen') eq 'block')){ $adressaten_ksw .="MSc Psy: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_1').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_2').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_3').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_4').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_5').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_6').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_7').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_7')); } if (($FILE_META_INFO{$file}->getValues('masis_1') || $FILE_META_INFO{$file}->getValues('masis_2') || $FILE_META_INFO{$file}->getValues('masis_3') || $FILE_META_INFO{$file}->getValues('masis_4') || $FILE_META_INFO{$file}->getValues('masis_5') || $FILE_META_INFO{$file}->getValues('masis_e1') || $FILE_META_INFO{$file}->getValues('masis_e2') || $FILE_META_INFO{$file}->getValues('masis_e3') || $FILE_META_INFO{$file}->getValues('masis_6')) and ($FILE_META_INFO{$file}->getValues('module_masis_anzeigen') eq 'block')){ $adressaten_ksw .="MA Soz: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_1').'; ' if($FILE_META_INFO{$file}->getValues('masis_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_2').'; ' if($FILE_META_INFO{$file}->getValues('masis_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_3').'; ' if($FILE_META_INFO{$file}->getValues('masis_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_4').'; ' if($FILE_META_INFO{$file}->getValues('masis_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_5').'; ' if($FILE_META_INFO{$file}->getValues('masis_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e1').'; ' if($FILE_META_INFO{$file}->getValues('masis_e1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e2').'; ' if($FILE_META_INFO{$file}->getValues('masis_e2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e3').'; ' if($FILE_META_INFO{$file}->getValues('masis_e3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_6').'; ' if($FILE_META_INFO{$file}->getValues('masis_6')); } # Ausgabe fuer index.shtml if ($keineIndexseite and $zukuenftig and $aktuell) { if ($zaehler==0){ print "\n\n\n\n\n\n\n"; print "\n" if ($adressaten_anzeigen); print "\n" ; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($adressaten_anzeigen){ print "\n" ; } print "\n"; $zaehler++; } # if index my $s = "\n"; $s .= "\n"; $s .= "\n"; $s .= "'."\n"; if ($adressaten_anzeigen){ $s .= "\n" ; } $s .= "\n"; my $stg = "
  • "; $stg .= "$terminvon $ort
    \n"; $stg .= "$thema
    \n"; if ($adressaten_anzeigen){ $stg .= "Adressaten: Studierende $adressaten_ksw" if($adressaten_ksw); $stg .= "Adressaten: Studierende $adressaten_rewi" if($adressaten_rewi); $stg .= "$adressaten" if($adressaten); } $stg .= "
  • \n"; my $stg_k = "
  • \n"; $stg_k .= "$terminvon $ort
    \n"; $stg_k .= "$thema\n"; $stg_k .= "
  • \n"; my $rss_content = "\n";; $rss_content .= ""; $rss_content .= tagFilter($thema); $rss_content .= "\nhttp://www.fernuni-hagen.de$directory/$filename\n{"leitung_3_$i"}.', '; } $rss_content .= $FILE_META{$file}->{"leitung_3_$i"}; $rss_content .= "]]>\n\n"; # Ausgabe RSS philosophie if ($keineIndexseite && $aktuell && $weiteretexte && $rss_on) { $rss_inhalt .= $rss_content; } # Ausgabe fuer BA KuWi if ($keineIndexseite and $zukuenftig and $aktuell and $zaehler<5) { $ssi_stg .= $stg; } if ($keineIndexseite and $zukuenftig and $aktuell and $zaehler<3) { $ssi_stg_kurz .= $stg_k; } # Ausgabe fuer Zukunft-SSI if ($keineIndexseite and $zukuenftig and $differenzTage>$aktuelleTagen) { $ssi_zukunft .= $s; } } # foreach file if ($zaehler == 0){ print "\n"; }else{ print "
    "; print "Termin(e)"; print "OrtThemaLeitungAdressaten
    $terminvon"; print "-
    $terminbis" if ($terminbis); print "
    $ort$thema"; for($i=0;$i<$imperiablock_count_3-1;$i++) { print $FILE_META{$file}->{"leitung_3_$i"}.',
    '; } print $FILE_META{$file}->{"leitung_3_$i"}; print "
    "; print "Studierende $adressaten_ksw" if($adressaten_ksw); print "Studierende $adressaten_rewi" if($adressaten_rewi); print $adressaten if($adressaten); print "
    $terminvon"; $s .= "-
    $terminbis" if ($terminbis); $s .= "
    $ort{"leitung_3_$i"}.',
    '; } $s .= $FILE_META{$file}->{"leitung_3_$i"}.'
    "; $s .= "Studierende $adressaten_ksw" if($adressaten_ksw); $s .= "Studierende $adressaten_rewi" if($adressaten_rewi); $s .= "$adressaten" if($adressaten); $s .= "
    \n"; } # Ausgabe fuer Archiv-SSI clearlist(); filemask($filemaske); #ireaddir($readdir); foreach my $dir (@readdir) { ireaddir($dir); } @FILELIST = sort(cmp_germandate @FILELIST); reverse_list(); &log("<--->"); my $laenge = @FILELIST; my $ssi_archiv = ''; my $zaehler = 0; my $jetzt = nowNormdate(); foreach my $file (@FILELIST) { my $directory = $FILE_META_INFO{$file}->getValues('directory'); my $filename = $FILE_META_INFO{$file}->getValues('filename'); my $thema = $FILE_META_INFO{$file}->getValues('thema'); my $terminvon = $FILE_META_INFO{$file}->getValues('terminvon'); my $terminbis = $FILE_META_INFO{$file}->getValues('terminbis'); my $ort = $FILE_META_INFO{$file}->getValues('ort'); my $adressaten = $FILE_META_INFO{$file}->getValues('adrkreis'); my $terminvonNorm = german2normdate($terminvon); my $imperiablock_count_3 = $FILE_META_INFO{$file}->getValues('imperiablock_count_3'); my $weiteretexte = (($FILE_META_INFO{$file}->getValues('wysiwygcode'))||($FILE_META_INFO{$file}->getValues('onlineanmeldung'))||($FILE_META{$file}->{'FLEXHISTORY_0'})); # Zum Nachpruefen, ob die Seite verlinkt werden soll. Ist wegen der Flexmodule aber unzuverlaessig! $keineIndexseite =(($filename ne "") and not( $filename =~ /^(index|sa_index|index_archiv|index_zukunft|zukunft|archiv|uebersicht|allgemeine_hinweise|faq)\.(shtml|htms)$/ )); $differenzTage = (normdate2time($terminvonNorm) - normdate2time($jetzt)) / (24*60*60); $archiv = ($differenzTage<0); #$terminvon =~ s/\s*//g; #$terminbis =~ s/\s*//g; $terminvon = trim($terminvon); $terminbis = trim($terminbis); my $adressaten_rewi = ""; $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_100').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_100')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_101').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_101')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_103').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_103')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_104').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_104')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_105').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_105')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_107').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_107')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_108').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_108')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_109').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_109')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_110').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_110')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_111').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_111')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_112').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_112')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_113').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_113')); $adressaten_rewi .= $FILE_META_INFO{$file}->getValues('rewi_modul_204').'; ' if($FILE_META_INFO{$file}->getValues('rewi_modul_204')); my $adressaten_ksw = ''; if (($FILE_META_INFO{$file}->getValues('babw_1a') || $FILE_META_INFO{$file}->getValues('babw_1b') || $FILE_META_INFO{$file}->getValues('babw_1c') || $FILE_META_INFO{$file}->getValues('babw_1d') || $FILE_META_INFO{$file}->getValues('babw_2a') || $FILE_META_INFO{$file}->getValues('babw_2b') || $FILE_META_INFO{$file}->getValues('babw_2c') || $FILE_META_INFO{$file}->getValues('babw_2d') || $FILE_META_INFO{$file}->getValues('babw_3a') || $FILE_META_INFO{$file}->getValues('babw_3b') || $FILE_META_INFO{$file}->getValues('babw_3c') || $FILE_META_INFO{$file}->getValues('babw_3d') || $FILE_META_INFO{$file}->getValues('babw_3e')) and ($FILE_META_INFO{$file}->getValues('module_babw_anzeigen') eq 'block')){ $adressaten_ksw .="BA BiWi: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_1a').'; ' if($FILE_META_INFO{$file}->getValues('babw_1a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_1b').'; ' if($FILE_META_INFO{$file}->getValues('babw_1b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_1c').'; ' if($FILE_META_INFO{$file}->getValues('babw_1c')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_1d').'; ' if($FILE_META_INFO{$file}->getValues('babw_1d')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_2a').'; ' if($FILE_META_INFO{$file}->getValues('babw_2a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_2b').'; ' if($FILE_META_INFO{$file}->getValues('babw_2b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_2c').'; ' if($FILE_META_INFO{$file}->getValues('babw_2c')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_2d').'; ' if($FILE_META_INFO{$file}->getValues('babw_2d')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_3a').'; ' if($FILE_META_INFO{$file}->getValues('babw_3a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_3b').'; ' if($FILE_META_INFO{$file}->getValues('babw_3b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_3c').'; ' if($FILE_META_INFO{$file}->getValues('babw_3c')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_3d').'; ' if($FILE_META_INFO{$file}->getValues('babw_3d')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('babw_3e').'; ' if($FILE_META_INFO{$file}->getValues('babw_3e')); } if (($FILE_META_INFO{$file}->getValues('bakw_g1') || $FILE_META_INFO{$file}->getValues('bakw_g2') || $FILE_META_INFO{$file}->getValues('bakw_g3') || $FILE_META_INFO{$file}->getValues('bakw_g4') || $FILE_META_INFO{$file}->getValues('bakw_g5') || $FILE_META_INFO{$file}->getValues('bakw_g6') || $FILE_META_INFO{$file}->getValues('bakw_l1') || $FILE_META_INFO{$file}->getValues('bakw_l2') || $FILE_META_INFO{$file}->getValues('bakw_l3') || $FILE_META_INFO{$file}->getValues('bakw_l4') || $FILE_META_INFO{$file}->getValues('bakw_l5') || $FILE_META_INFO{$file}->getValues('bakw_l6') || $FILE_META_INFO{$file}->getValues('bakw_e3') || $FILE_META_INFO{$file}->getValues('bakw_p1') || $FILE_META_INFO{$file}->getValues('bakw_p2') || $FILE_META_INFO{$file}->getValues('bakw_p3') || $FILE_META_INFO{$file}->getValues('bakw_p4') || $FILE_META_INFO{$file}->getValues('bakw_p5') || $FILE_META_INFO{$file}->getValues('bakw_p6') || $FILE_META_INFO{$file}->getValues('bakw_w1') || $FILE_META_INFO{$file}->getValues('bakw_w2') || $FILE_META_INFO{$file}->getValues('bakw_w3') || $FILE_META_INFO{$file}->getValues('bakw_w4')) and ($FILE_META_INFO{$file}->getValues('module_bakw_anzeigen') eq 'block')) { $adressaten_ksw .="BA KuWi: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_g6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_g6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_l6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_l6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p5').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_p6').'; ' if($FILE_META_INFO{$file}->getValues('bakw_p6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_w1').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_w2').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_w3').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakw_w4').'; ' if($FILE_META_INFO{$file}->getValues('bakw_w4')); } if (($FILE_META_INFO{$file}->getValues('bakwof_3') || $FILE_META_INFO{$file}->getValues('bakwof_4') || $FILE_META_INFO{$file}->getValues('bakwof_5') || $FILE_META_INFO{$file}->getValues('bakwof_6') || $FILE_META_INFO{$file}->getValues('bakwof_7') || $FILE_META_INFO{$file}->getValues('bakwof_8') || $FILE_META_INFO{$file}->getValues('bakwof_9') || $FILE_META_INFO{$file}->getValues('bakwof_l0') || $FILE_META_INFO{$file}->getValues('bakwof_l1a') || $FILE_META_INFO{$file}->getValues('bakwof_12a') || $FILE_META_INFO{$file}->getValues('bakwof_11b') || $FILE_META_INFO{$file}->getValues('bakwof_12b') || $FILE_META_INFO{$file}->getValues('bakwof_11c') || $FILE_META_INFO{$file}->getValues('bakwof_12c')) and ($FILE_META_INFO{$file}->getValues('module_bakwof_anzeigen') eq 'block')){ $adressaten_ksw .="BA KuWioF: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_3').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_4').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_5').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_6').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_7').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_8').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_9').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_10').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11a').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12a').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12a')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11b').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12b').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12b')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_11c').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_11c')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bakwof_12c').'; ' if($FILE_META_INFO{$file}->getValues('bakwof_12c')); } if (($FILE_META_INFO{$file}->getValues('bapo_b1') || $FILE_META_INFO{$file}->getValues('bapo_b2') || $FILE_META_INFO{$file}->getValues('bapo_b3') || $FILE_META_INFO{$file}->getValues('bapo_b4') || $FILE_META_INFO{$file}->getValues('bapo_ge') || $FILE_META_INFO{$file}->getValues('bapo_m1') || $FILE_META_INFO{$file}->getValues('bapo_m2') || $FILE_META_INFO{$file}->getValues('bapo_p1') || $FILE_META_INFO{$file}->getValues('bapo_p2') || $FILE_META_INFO{$file}->getValues('bapo_p3') || $FILE_META_INFO{$file}->getValues('bapo_phil') || $FILE_META_INFO{$file}->getValues('bapo_re') || $FILE_META_INFO{$file}->getValues('bapo_s1') || $FILE_META_INFO{$file}->getValues('bapo_s2') || $FILE_META_INFO{$file}->getValues('bapo_s3') || $FILE_META_INFO{$file}->getValues('bapo_s4') || $FILE_META_INFO{$file}->getValues('bapo_v1') || $FILE_META_INFO{$file}->getValues('bapo_v2') || $FILE_META_INFO{$file}->getValues('bapo_v3') || $FILE_META_INFO{$file}->getValues('bapo_v4') || $FILE_META_INFO{$file}->getValues('bapo_vp1') || $FILE_META_INFO{$file}->getValues('bapo_vp2') || $FILE_META_INFO{$file}->getValues('bapo_vs1') || $FILE_META_INFO{$file}->getValues('bapo_w1')) and ($FILE_META_INFO{$file}->getValues('module_bapo_anzeigen') eq 'block')){ $adressaten_ksw .="BA PVS: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_b4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_b4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_ge').'; ' if($FILE_META_INFO{$file}->getValues('bapo_ge')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_m1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_m1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_m2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_m2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_p3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_p3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_phil').'; ' if($FILE_META_INFO{$file}->getValues('bapo_phil')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_re').'; ' if($FILE_META_INFO{$file}->getValues('bapo_re')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_s4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_s4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v3').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_v4').'; ' if($FILE_META_INFO{$file}->getValues('bapo_v4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vp1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vp1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vp2').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vp2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_vs1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_vs1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapo_w1').'; ' if($FILE_META_INFO{$file}->getValues('bapo_w1')); } if (($FILE_META_INFO{$file}->getValues('bapsy_1') || $FILE_META_INFO{$file}->getValues('bapsy_2') || $FILE_META_INFO{$file}->getValues('bapsy_3') || $FILE_META_INFO{$file}->getValues('bapsy_4') || $FILE_META_INFO{$file}->getValues('bapsy_5') || $FILE_META_INFO{$file}->getValues('bapsy_6') || $FILE_META_INFO{$file}->getValues('bapsy_7') || $FILE_META_INFO{$file}->getValues('bapsy_8') || $FILE_META_INFO{$file}->getValues('bapsy_9') || $FILE_META_INFO{$file}->getValues('bapsy_10') || $FILE_META_INFO{$file}->getValues('bapsy_11')) and ($FILE_META_INFO{$file}->getValues('module_bapsy_anzeigen') eq 'block')){ $adressaten_ksw .="BSc Psy: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_1').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_2').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_3').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_4').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_5').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_6').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_7').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_8').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_9').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_10').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('bapsy_11').'; ' if($FILE_META_INFO{$file}->getValues('bapsy_11')); } if (($FILE_META_INFO{$file}->getValues('basoz_2') || $FILE_META_INFO{$file}->getValues('basoz_3') || $FILE_META_INFO{$file}->getValues('basoz_4') || $FILE_META_INFO{$file}->getValues('basoz_5') || $FILE_META_INFO{$file}->getValues('basoz_6') || $FILE_META_INFO{$file}->getValues('basoz_7') || $FILE_META_INFO{$file}->getValues('basoz_8') || $FILE_META_INFO{$file}->getValues('basoz_9') || $FILE_META_INFO{$file}->getValues('basoz_10') || $FILE_META_INFO{$file}->getValues('basoz_11')) and ($FILE_META_INFO{$file}->getValues('module_basoz_anzeigen') eq 'block')){ $adressaten_ksw .="BA Soz: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_2').'; ' if($FILE_META_INFO{$file}->getValues('basoz_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_3').'; ' if($FILE_META_INFO{$file}->getValues('basoz_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_4').'; ' if($FILE_META_INFO{$file}->getValues('basoz_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_5').'; ' if($FILE_META_INFO{$file}->getValues('basoz_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_6').'; ' if($FILE_META_INFO{$file}->getValues('basoz_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_7').'; ' if($FILE_META_INFO{$file}->getValues('basoz_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_8').'; ' if($FILE_META_INFO{$file}->getValues('basoz_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_9').'; ' if($FILE_META_INFO{$file}->getValues('basoz_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_10').'; ' if($FILE_META_INFO{$file}->getValues('basoz_10')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('basoz_11').'; ' if($FILE_META_INFO{$file}->getValues('basoz_11')); } if (($FILE_META_INFO{$file}->getValues('mabm_1') || $FILE_META_INFO{$file}->getValues('mabm_2') || $FILE_META_INFO{$file}->getValues('mabm_3') || $FILE_META_INFO{$file}->getValues('mabm_4') || $FILE_META_INFO{$file}->getValues('mabm_5') || $FILE_META_INFO{$file}->getValues('mabm_6') || $FILE_META_INFO{$file}->getValues('mabm_7')) and ($FILE_META_INFO{$file}->getValues('module_mabm_anzeigen') eq 'block')){ $adressaten_ksw .="MA BiMe: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_1').'; ' if($FILE_META_INFO{$file}->getValues('mabm_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_2').'; ' if($FILE_META_INFO{$file}->getValues('mabm_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_3').'; ' if($FILE_META_INFO{$file}->getValues('mabm_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_4').'; ' if($FILE_META_INFO{$file}->getValues('mabm_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_5').'; ' if($FILE_META_INFO{$file}->getValues('mabm_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_6').'; ' if($FILE_META_INFO{$file}->getValues('mabm_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mabm_7').'; ' if($FILE_META_INFO{$file}->getValues('mabm_7')); } if (($FILE_META_INFO{$file}->getValues('maem_1e') || $FILE_META_INFO{$file}->getValues('maem_2e') || $FILE_META_INFO{$file}->getValues('maem_3e') || $FILE_META_INFO{$file}->getValues('maem_4g') || $FILE_META_INFO{$file}->getValues('maem_5g') || $FILE_META_INFO{$file}->getValues('maem_6g') || $FILE_META_INFO{$file}->getValues('maem_7g') || $FILE_META_INFO{$file}->getValues('maem_4l') || $FILE_META_INFO{$file}->getValues('maem_5l') || $FILE_META_INFO{$file}->getValues('maem_6l') || $FILE_META_INFO{$file}->getValues('maem_7l')) and ($FILE_META_INFO{$file}->getValues('module_maem_anzeigen') eq 'block')){ $adressaten_ksw .="MA EuMo: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_1e').'; ' if($FILE_META_INFO{$file}->getValues('maem_1e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_2e').'; ' if($FILE_META_INFO{$file}->getValues('maem_2e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_3e').'; ' if($FILE_META_INFO{$file}->getValues('maem_3e')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_4g').'; ' if($FILE_META_INFO{$file}->getValues('maem_4g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_5g').'; ' if($FILE_META_INFO{$file}->getValues('maem_5g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_6g').'; ' if($FILE_META_INFO{$file}->getValues('maem_6g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_7g').'; ' if($FILE_META_INFO{$file}->getValues('maem_7g')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_4l').'; ' if($FILE_META_INFO{$file}->getValues('maem_4l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_5l').'; ' if($FILE_META_INFO{$file}->getValues('maem_5l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_6l').'; ' if($FILE_META_INFO{$file}->getValues('maem_6l')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maem_7l').'; ' if($FILE_META_INFO{$file}->getValues('maem_7l')); } if (($FILE_META_INFO{$file}->getValues('mage_1') || $FILE_META_INFO{$file}->getValues('mage_2') || $FILE_META_INFO{$file}->getValues('mage_3') || $FILE_META_INFO{$file}->getValues('mage_4') || $FILE_META_INFO{$file}->getValues('mage_5') || $FILE_META_INFO{$file}->getValues('mage_6') || $FILE_META_INFO{$file}->getValues('mage_7') || $FILE_META_INFO{$file}->getValues('mage_8') || $FILE_META_INFO{$file}->getValues('mage_9') || $FILE_META_INFO{$file}->getValues('mage_10')) and ($FILE_META_INFO{$file}->getValues('module_mage_anzeigen') eq 'block')){ $adressaten_ksw .="MA GeEu: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_1').'; ' if($FILE_META_INFO{$file}->getValues('mage_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_2').'; ' if($FILE_META_INFO{$file}->getValues('mage_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_3').'; ' if($FILE_META_INFO{$file}->getValues('mage_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_4').'; ' if($FILE_META_INFO{$file}->getValues('mage_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_5').'; ' if($FILE_META_INFO{$file}->getValues('mage_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_6').'; ' if($FILE_META_INFO{$file}->getValues('mage_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_7').'; ' if($FILE_META_INFO{$file}->getValues('mage_7')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_8').'; ' if($FILE_META_INFO{$file}->getValues('mage_8')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_9').'; ' if($FILE_META_INFO{$file}->getValues('mage_9')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mage_10').'; ' if($FILE_META_INFO{$file}->getValues('mage_10')); } if (($FILE_META_INFO{$file}->getValues('magov_11') || $FILE_META_INFO{$file}->getValues('magov_12') || $FILE_META_INFO{$file}->getValues('magov_13') || $FILE_META_INFO{$file}->getValues('magov_14') || $FILE_META_INFO{$file}->getValues('magov_15') || $FILE_META_INFO{$file}->getValues('magov_21') || $FILE_META_INFO{$file}->getValues('magov_22') || $FILE_META_INFO{$file}->getValues('magov_23') || $FILE_META_INFO{$file}->getValues('magov_24') || $FILE_META_INFO{$file}->getValues('magov_25')) and ($FILE_META_INFO{$file}->getValues('module_magov_anzeigen') eq 'block')){ $adressaten_ksw .="MA Gov: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_11').'; ' if($FILE_META_INFO{$file}->getValues('magov_11')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_12').'; ' if($FILE_META_INFO{$file}->getValues('magov_12')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_13').'; ' if($FILE_META_INFO{$file}->getValues('magov_13')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_14').'; ' if($FILE_META_INFO{$file}->getValues('magov_14')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_15').'; ' if($FILE_META_INFO{$file}->getValues('magov_15')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_21').'; ' if($FILE_META_INFO{$file}->getValues('magov_21')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_22').'; ' if($FILE_META_INFO{$file}->getValues('magov_22')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_23').'; ' if($FILE_META_INFO{$file}->getValues('magov_23')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_24').'; ' if($FILE_META_INFO{$file}->getValues('magov_24')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('magov_25').'; ' if($FILE_META_INFO{$file}->getValues('magov_25')); } if (($FILE_META_INFO{$file}->getValues('maphil_I') || $FILE_META_INFO{$file}->getValues('maphil_II') || $FILE_META_INFO{$file}->getValues('maphil_III') || $FILE_META_INFO{$file}->getValues('maphil_IV') || $FILE_META_INFO{$file}->getValues('maphil_V') || $FILE_META_INFO{$file}->getValues('maphil_VI') || $FILE_META_INFO{$file}->getValues('maphil_VII') || $FILE_META_INFO{$file}->getValues('maphil_VIII') || $FILE_META_INFO{$file}->getValues('maphil_IX') || $FILE_META_INFO{$file}->getValues('maphil_X')) and ($FILE_META_INFO{$file}->getValues('module_maphil_anzeigen') eq 'block')){ $adressaten_ksw .="MA Phil: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_I').'; ' if($FILE_META_INFO{$file}->getValues('maphil_I')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_II').'; ' if($FILE_META_INFO{$file}->getValues('maphil_II')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_III').'; ' if($FILE_META_INFO{$file}->getValues('maphil_III')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_IV').'; ' if($FILE_META_INFO{$file}->getValues('maphil_IV')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_V').'; ' if($FILE_META_INFO{$file}->getValues('maphil_V')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VI').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VI')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VII').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VII')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_VIII').'; ' if($FILE_META_INFO{$file}->getValues('maphil_VIII')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_IX').'; ' if($FILE_META_INFO{$file}->getValues('maphil_IX')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('maphil_X').'; ' if($FILE_META_INFO{$file}->getValues('maphil_X')); } if (($FILE_META_INFO{$file}->getValues('at_phil') || $FILE_META_INFO{$file}->getValues('ap_phil')) and ($FILE_META_INFO{$file}->getValues('module_maphil_anzeigen') eq 'block')){ $adressaten_ksw .="AT Phil; " if($FILE_META_INFO{$file}->getValues('at_phil')); $adressaten_ksw .="AP Phil; " if($FILE_META_INFO{$file}->getValues('ap_phil')); } if (($FILE_META_INFO{$file}->getValues('mapsy_1') || $FILE_META_INFO{$file}->getValues('mapsy_2') || $FILE_META_INFO{$file}->getValues('mapsy_3') || $FILE_META_INFO{$file}->getValues('mapsy_4') || $FILE_META_INFO{$file}->getValues('mapsy_5') || $FILE_META_INFO{$file}->getValues('mapsy_6') || $FILE_META_INFO{$file}->getValues('mapsy_7')) and ($FILE_META_INFO{$file}->getValues('module_mapsy_anzeigen') eq 'block')){ $adressaten_ksw .="MSc Psy: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_1').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_2').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_3').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_4').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_5').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_6').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_6')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('mapsy_7').'; ' if($FILE_META_INFO{$file}->getValues('mapsy_7')); } if (($FILE_META_INFO{$file}->getValues('masis_1') || $FILE_META_INFO{$file}->getValues('masis_2') || $FILE_META_INFO{$file}->getValues('masis_3') || $FILE_META_INFO{$file}->getValues('masis_4') || $FILE_META_INFO{$file}->getValues('masis_5') || $FILE_META_INFO{$file}->getValues('masis_e1') || $FILE_META_INFO{$file}->getValues('masis_e2') || $FILE_META_INFO{$file}->getValues('masis_e3') || $FILE_META_INFO{$file}->getValues('masis_6')) and ($FILE_META_INFO{$file}->getValues('module_masis_anzeigen') eq 'block')){ $adressaten_ksw .="MA Soz: "; $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_1').'; ' if($FILE_META_INFO{$file}->getValues('masis_1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_2').'; ' if($FILE_META_INFO{$file}->getValues('masis_2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_3').'; ' if($FILE_META_INFO{$file}->getValues('masis_3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_4').'; ' if($FILE_META_INFO{$file}->getValues('masis_4')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_5').'; ' if($FILE_META_INFO{$file}->getValues('masis_5')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e1').'; ' if($FILE_META_INFO{$file}->getValues('masis_e1')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e2').'; ' if($FILE_META_INFO{$file}->getValues('masis_e2')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_e3').'; ' if($FILE_META_INFO{$file}->getValues('masis_e3')); $adressaten_ksw .=$FILE_META_INFO{$file}->getValues('masis_6').'; ' if($FILE_META_INFO{$file}->getValues('masis_6')); } my $ar = "\n"; $ar .= "$terminvon"; $ar .= "-
    $terminbis\n" if ($terminbis); $ar .= "$ort\n"; $ar .= "{"leitung_3_$i"}.',
    '; } $ar .= $FILE_META{$file}->{"leitung_3_$i"}.''."\n"; if ($adressaten_anzeigen){ $ar .= ""; $ar .= "Studierende $adressaten_ksw" if($adressaten_ksw); $ar .= "Studierende $adressaten_rewi" if($adressaten_rewi); $ar .= "$adressaten" if($adressaten); $ar .= "\n" ; } $ar .= "\n"; # Ausgabe fuer Archiv-SSI if ($keineIndexseite and $archiv) { $ssi_archiv .= $ar; } } # foreach file if ($readdir eq "/geschichte/praesenzen"){ $ssi_stg_kurz_titel = "Geschichte"; }elsif ($readdir eq "/literatur/veranstaltungen"){ $ssi_stg_kurz_titel = "Literaturwissenschaft"; }elsif ($readdir eq "/polis/praesenzen"){ $ssi_stg_kurz_titel = "Politikwissenschaft"; }elsif ($readdir eq "/philosophie/praesenzen"){ $ssi_stg_kurz_titel = "Philosophie"; }elsif ($readdir eq "/soziologie/praesenzen"){ $ssi_stg_kurz_titel = "Soziologie"; } if ($adressaten_anzeigen){ $ssi_archiv = "\n\n\n\n\n\n\n\n\n$ssi_archiv
    TerminOrtThemaLeitungAdressaten
    " if ($ssi_archiv); $ssi_zukunft = "\n\n\n\n\n\n\n\n\n$ssi_zukunft
    TerminOrtThemaLeitungAdressaten
    " if ($ssi_zukunft); $ssi_zukunft = "

    keine weitere Veranstaltungen

    " if not($ssi_zukunft); }else{ $ssi_archiv = "\n\n\n\n\n\n\n\n$ssi_archiv
    TerminOrtThemaLeitung
    " if ($ssi_archiv); $ssi_zukunft = "\n\n\n\n\n\n\n\n$ssi_zukunft
    TerminOrtThemaLeitung
    " if ($ssi_zukunft); $ssi_zukunft = "

    keine weitere Veranstaltungen

    " if not($ssi_zukunft); } $ssi_stg = "
      $ssi_stg
    " if($ssi_stg); $ssi_stg_kurz = "

    $ssi_stg_kurz_titel

      $ssi_stg_kurz
    " if($ssi_stg_kurz); $rss = "$rss_head\n$rss_inhalt\n$rss_foot" if($rss_inhalt); schreibeSSI($ssi_archiv, $root_dir.$ssi_dir."/".$filenameprefix."_archiv.ssi"); schreibeSSI($ssi_zukunft, $root_dir.$ssi_dir."/".$filenameprefix."_zukunft.ssi"); schreibeSSI($ssi_stg, $root_dir.$ssi_dir."/".$filenameprefix."_stg.ssi") if ($ssi_stg); schreibeSSI($ssi_stg_kurz, $root_dir.$ssi_dir."/".$filenameprefix."_stg_kurz.ssi") if ($ssi_stg_kurz); schreibeSSI($rss, $root_dir.$ssi_dir."/rss.xml") if ($rss_inhalt);