baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
$cnt_ges = 0 ; foreach(@l_ort) { my $akt_ort = $_; $anz_gruppe=<<EOF; <table width=100% align=center cellspacing=0 cellpadding=0> ${ \&_tz(1,5) } <tr><td class=dunkel><span class=mittelg><b> Veranstaltungen in $akt_ort:</b></span></td></tr> ${ \&_tz(1,5) } EOF # Filterwerte f. Datum für Vergleich formatieren, Workaround f. bp-Datumsvergleich einbauen ($fzeit_e1 auf letzte Minute vom Vergleichstag setzen) my $fzeit_a =substr(datum($fzeit_a, intern),0,10); my $fzeit_e1= datum("$fzeit_e,23:59", intern); my $fzeit_e = substr(datum($fzeit_e, intern),0,10); get "verans_ort==$_ resu_id==!$r verans_ort~=$fort verans_art~=$fkat k_veranstalter~=$fvst verans_datum<=$fzeit_e1 sort=verans_datum ", "$db1"; $cnt_ds = 0; while(get_next("$db1")) { my $datum1 = datum($verans_datum,intern); my $datum2 = datum($verans_datum2,intern); if ($datum2 le $datum1){ $vstat = 0 }elsif ($datum2 ge $datum1){ $vstat = 1; }else{ $vstat = "ungültig!"; # else-Zweig nur für Debugging, kann entfallen } if ( ($vstat == 0 && $datum1 ge $fzeit_a) || ($vstat == 1 && $datum2 ge $fzeit_a) ) { $cnt_ds++; # Datensatz-Zähler f. gef. Datensätze der Gruppe my $anz_datum = datum($verans_datum, "Wochentag, Tag.Monat.Jahr"); # Ausgabe f. Datum formatieren my $anz_datum2 = datum($verans_datum2, "Wochentag, Tag.Monat.Jahr"); my $a_verans_datum2 = " <br> bis<br> $anz_datum2" if datum($verans_datum2, "intern") ge datum($verans_datum, "intern"); my $anz_zeit = datum($verans_datum, "Stunde:Minute")." Uhr"; # Ausgabe f. Zeit formatieren $verans_bild=~s/\s//; my $bild_breite = 120; my $anz_verans_bild ="<img src=/files/$verans_bild width=$bild_breite>" if $verans_bild ne "";
$anz_ortstab.=<<EOF; <table>
</table> EOF } #ende if datum } #ende while get next if ($cnt_ds > 0) {# Gruppen-Überschrift mit Anker auf Ort und Link zum Seitenanfang am Ende der Gruppe - Zusammenstellg. aller Gruppenanzeigen zur Gesamtanzeige $anz_atab.= "<a name=$akt_ort> </a>$anz_gruppe<br>$anz_ortstab<table width=95% border=0 cellspacing=2 cellpadding=2><tr><td class=klein align=left><a href=#oben>Seitenanfang</a></td></tr></table>"; # interne Links f. Seiten"kopf", damit Sprung zur Gruppe erfolgen kann $linkreihe.= " [ <a href=#$akt_ort>$akt_ort</a> ] "; } # Gruppenanzeige leeren, damit neue Gruppe im nächsten Schleifendurchlauf ausgegeben werden kann $anz_ortstab = ""; $cnt_ges = $cnt_ges + $cnt_ds; #Datensatzzähler f. ges. gef. Datens. } #ende foreach ort # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
Alle Einträge zum Thema: | Zur Liste |
foreach(@l_ort) { get "verans_ort==$_ resu_id==!$r sort=-verans_datum verans_ort~=$fort verans_art~=$fkat k_veranstalter~=$fvst", "$db1"; while(get_next("$db1") { if (datum($verans_datum, "intern") ge datum($fzeit_a, "intern") && datum ($verans_datum, "intern") le datum($fzeit_e, "intern")) { gib das Zeug aus ... } } }
foreach(@l_ort) { $fzeit_a = datum($fzeit_a, intern); $fzeit_e = datum($fzeit_e, intern); get "verans_ort==$_ resu_id==!$r verans_ort~=$fort verans_art~=$fkat k_veranstalter~=$fvst sort=-verans_datum ", "$db1"; $cnt_ds = 0; while(get_next("$db1")) { my $datum1 = datum($datBeginn,intern); my $datum2 = datum($datEnde,intern); #Datum zum Vergleich wandeln my $vstat = $datum1 ge $datum2 ? $vstat = "eintag" : $vstat = "mehrtag"; #Status des Termins bestimmen if ( ($vstat eq "eintag" && $datum1 >= $fzeit_a && $datum1 le $fzeit_e) || ($vstat eq "mehrtag" && $datum2 ge $fzeit_a && $datum1 le $fzeit_e) ) { $cnt_ds++; # Datensatz-Zähler f. gef. Datensätze gib das zeugs aus } } }
$cnt_ges = 0 ; foreach(@l_ort) { my $akt_ort = $_; $anz_gruppe=<<EOF; <table width=100% align=center cellspacing=0 cellpadding=0> ${ \&_tz(1,5) } <tr><td class=dunkel><span class=mittelg><b> Veranstaltungen in $akt_ort:</b></span></td></tr> ${ \&_tz(1,5) } EOF # Filterwerte f. Datum für Vergleich formatieren, Workaround f. bp-Datumsvergleich einbauen ($fzeit_e1 auf letzte Minute vom Vergleichstag setzen) my $fzeit_a =substr(datum($fzeit_a, intern),0,10); my $fzeit_e1= datum("$fzeit_e,23:59", intern); my $fzeit_e = substr(datum($fzeit_e, intern),0,10); get "verans_ort==$_ resu_id==!$r verans_ort~=$fort verans_art~=$fkat k_veranstalter~=$fvst verans_datum<=$fzeit_e1 sort=verans_datum ", "$db1"; $cnt_ds = 0; while(get_next("$db1")) { my $datum1 = datum($verans_datum,intern); my $datum2 = datum($verans_datum2,intern); if ($datum2 le $datum1){ $vstat = 0 }elsif ($datum2 ge $datum1){ $vstat = 1; }else{ $vstat = "ungültig!"; # else-Zweig nur für Debugging, kann entfallen } if ( ($vstat == 0 && $datum1 ge $fzeit_a) || ($vstat == 1 && $datum2 ge $fzeit_a) ) { $cnt_ds++; # Datensatz-Zähler f. gef. Datensätze der Gruppe my $anz_datum = datum($verans_datum, "Wochentag, Tag.Monat.Jahr"); # Ausgabe f. Datum formatieren my $anz_datum2 = datum($verans_datum2, "Wochentag, Tag.Monat.Jahr"); my $a_verans_datum2 = " <br> bis<br> $anz_datum2" if datum($verans_datum2, "intern") ge datum($verans_datum, "intern"); my $anz_zeit = datum($verans_datum, "Stunde:Minute")." Uhr"; # Ausgabe f. Zeit formatieren $verans_bild=~s/\s//; my $bild_breite = 120; my $anz_verans_bild ="<img src=/files/$verans_bild width=$bild_breite>" if $verans_bild ne "";
$anz_ortstab.=<<EOF; <table>
</table> EOF } #ende if datum } #ende while get next if ($cnt_ds > 0) {# Gruppen-Überschrift mit Anker auf Ort und Link zum Seitenanfang am Ende der Gruppe - Zusammenstellg. aller Gruppenanzeigen zur Gesamtanzeige $anz_atab.= "<a name=$akt_ort> </a>$anz_gruppe<br>$anz_ortstab<table width=95% border=0 cellspacing=2 cellpadding=2><tr><td class=klein align=left><a href=#oben>Seitenanfang</a></td></tr></table>"; # interne Links f. Seiten"kopf", damit Sprung zur Gruppe erfolgen kann $linkreihe.= " [ <a href=#$akt_ort>$akt_ort</a> ] "; } # Gruppenanzeige leeren, damit neue Gruppe im nächsten Schleifendurchlauf ausgegeben werden kann $anz_ortstab = ""; $cnt_ges = $cnt_ges + $cnt_ds; #Datensatzzähler f. ges. gef. Datens. } #ende foreach ort # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
Liste der Einträge von 39001 bis 39151: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |