baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
foreach $k (sort %Name}
foreach $k (sort %namen)
|
Alle Einträge zum Thema: | Zur Liste |
<html> <head><title>Linkliste Test</title> <include src=style></head>
<div align="left">
<tr>
<td width="50%" bgcolor="#ff9900">
<perl>
</font></td>
<tr> <td width="50%"></td> <td width="50%"></td> </tr> </table>
<font face="Verdana" size="1">
EOF $cnt=0; #Zähler Spalte
$v=$v||0; # Startwert vorgeben, wenn $v leer ist get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel
{ out "<br>$Kategorie" if $Kategorie ne $Kategorie_alt;
<font color='000000' face='Verdana' size='2'>$Kategorie<br></font>
<font face='verdana' arial size='2'><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> Internet:<a href=http://$URL target=\"_blank\">$URL</a></font>";
if ($cnt==1) #Zähler Spalte
out "</tr><tr>";
}else
$cnt++;
} out <<EOF; <td></td></tr></table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
EOF
my $blaettern=$_range_length; my $blaetter_lang=$range*10; my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length; my $color='#CCCCCC'; my $color_vonbis='#FFFFFF'; my $color_zahl='#CCCCCC'; my $color_vorzu='#CCCCCC'; my $color_balken='#CCCCCC'; my $table=''; my $table_align='left'; out "<div align=$table_align>";
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>"; $ende=substr($_amount_query,0,length($_amount_query)-1);
out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
</a>":">|";
$_amount_query</td>"; if ($_amount)
$vr=int($v/$blaetter_lang) unless $_range==0;
out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
}
}
</perl>
</font> <include src=footer> </body></html>
get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel while(get_next("Linkliste")) { $namen{$Kategorie}.="$Name#"; $links{$Kategorie}.="$Link#"; }
{ @namen=split /#/,$namen{$k}; @links=split /#/,$namen{$k};
out "<p><b>Kategorie: $k</b><br>"; foreach $n (@namen) { $l=shift @links; out "Name: $n - Link: $l<br>"; } }
<html><head><title>Linkliste Test</title> </head><body bgcolor="#ffffff"> <include src=style> <html>
<div align="left">
<tr>
<td width="50%" bgcolor="#ff9900">
<perl> out <<EOF;
</tr>
<td width="50%"></td>
</tr>
</div>
<font face="Verdana" size="1">
EOF
$v=$v||0; # Startwert vorgeben, wenn $v leer ist
get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel while(get_next("Linkliste")) { $namen{$Kategorie}.="$Name#"; $links{$Kategorie}.="$Link#"; }
{ @namen=split /#/,$namen{$k}; @links=split /#/,$namen{$k};
out "<p><b>Kategorie: $k</b><br>"; foreach $n (@namen) { $l=shift @links; out "Name: $n - Link: $l<br>"; } }
<td></td></tr></table>
<tr>
my $range=$_range_length;
my $blaetter_lang=$range*10;
my $oldrange=$_range-$_range_length;
my $color_vonbis='#FFFFFF';
my $color_vorzu='#CCCCCC';
my $table='';
out "<div align=$table_align>";
out "<table width=$table cellpadding=3 cellspacing=3 cellpadding=3><tr align=left><td bgcolor=$color align='center'><font face=verdana, arial font size=1>"; $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length; out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
$ende=substr($_amount_query,0,length($_amount_query)-1);
out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
</a>":">|";
$_amount_query</td>"; if ($_amount)
$vr=int($v/$blaetter_lang) unless $_range==0;
out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
{
}
}
</perl>
</font> <include src=footer> </body></html>
foreach $k (sort %Name}
foreach $k (sort %namen)
<font face="Verdana" size="1">
EOF
$v=$v||0; # Startwert vorgeben, wenn $v leer ist
get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel while(get_next("Linkliste")) { $namen{$Kategorie}.="$Name#"; $links{$Kategorie}.="$Link#"; }
{ @namen=split /#/,$namen{$k}; @links=split /#/,$namen{$k};
out "<p><b>Kategorie: $k</b><br>"; foreach $n (@namen) { $l=shift @links; out "Name: $n - Link: $l<br>"; } }
out <<EOF;
<td></td></tr></table>
<perl> # Seiten-Farbstiel grün oder violett (später mehr)# $s=g; #g für grün, #v für violett $fvh = "bgcolor=ffccff"; # Farbe_Violett_hell $fvd = "bgcolor=800080"; # Farbe_Violett_dunkel $fvw = "bgcolor=ffffff"; # Farbe_weiß $fgnh = "bgcolor=ccff99"; # Farbe_Hellgruen $fgnd = "bgcolor=009900"; # Farbe_Dunkelgrün $fgh = "bgcolor=ffffef"; # Farbe_hellgelb
# Trennzeilen für Ausgabe gleich in Vars speichern, damit code überschaubear bleibt # $pix="http://www.kirchen-im-erzgebirge.de/vk_pic/cpix1.gif";
$tz5h = "<tr><td id=hgr colspan=2 $fgh><img height=5 src=$pix></td></tr>"; $tz1d = "<tr><td id=dgr colspan=2 $fgnd><img height=1 src=$pix></td></tr>"; $tz5d = "<tr><td id=hgr colspan=2 $fgnd><img height=5 src=$pix></td></tr>"; $tz1m = "<tr><td id=dgr colspan=2 $fgnh><img height=1 src=$pix></td></tr>"; $tz5m = "<tr><td id=hgr colspan=2 $fgnh><img height=5 src=$pix></td></tr>"; # ----------------------------------------------------------------------# # Vorbelegung der Variablen die uebergeben werden # um Fehlfunktion vorzubeugen $a_offset = 1; # (Ausgabeoffset für Abzug) #-- Range-Start --# $ra = 0 + $a_offset if ($ra < $a_offset); #-- Range Länge --# $ra_l = 10 if $ra_l eq "";
# <!-- Datenbank abrufen um bp-Spezialvariablen mit den richtigen Werten zu füllen --> init andacht;
# Hilfsvariablen fuer Ausgabe des Anzeigebereiches # $anz_anz=$_amount_all-$a_offset; $anza = $ra-$a_offset + 1 if $ra <= $a_offset; #Anzeige Anzahl Anfang $anza = $ra if $ra > $a_offset;
$anze = $_amount_all - $a_offset if $ra+$ra_l > $_amount_all - $a_offset; $anz_ds = $_amount_all - $a_offset;
#-- Zaehler fuer Ausgabespalte 1 links--# $lcnt = 0;
$rcnt = 0;
#### und hier jetzt losmachen mit Daten holen und Ausgabevars generieren #### #############################################################################
while(get_next("andacht")) { ##### Ausgabe der linken Spalte in Var a_linhalt (Tabellenzeilen) ##### $inf = $lcnt % 2; if ($inf eq 0) {$a_linhalt.=<<EOF; <tr><td valign=top> <p class=klein><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/hempelr/andachten/andacht&id=$_id&ra=$_range&ra_l=$_range_length>$Sonntag_im_KJ</b></a></td></tr> EOF $a_linhalt.="<tr><td><p class=klein><span class=gruen><b><i>$Andacht_Thema</i></b></span></p></td></tr>" if $Andacht_Thema ne ""; $a_linhalt.="<tr><td><p class=klein><span class=gruen>$Andacht_Bibelstelle</span></p></td></tr>" if $Andacht_Bibelstelle ne ""; $a_linhalt.="<tr><td><p class=klein><span class=gruen>".$Andacht_Intro."</span></p></td></tr>" if $Andacht_Intro ne ""; $a_linhalt.="<tr><td><p class=klein><span class=gruen>".$Andacht_von. $Name."</span></p></td></tr>" if $Andacht_von ne ""; $a_linhalt.= "<tr><td id=hgr $fgh><img height=5 src=$pix></td></tr>"; } $lcnt++; #### Ausgabe der rechten Spalte in Var a_rinhalt (Tabellenzeilen)#### $inf2 = $rcnt % 2; if ($inf2 eq 1) {$a_rinhalt.=<<EOF; <tr><td valign=top> <p class=klein><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/hempelr/andachten/andacht&id=$_id&ra=$_range&ra_l=$_range_length>$Sonntag_im_KJ</b></a></td></tr> EOF $a_rinhalt.="<tr><td><p class=klein><span class=gruen><b><i>$Andacht_Thema</i></b></span></p></td></tr>" if $Andacht_Thema ne ""; $a_rinhalt.="<tr><td><p class=klein><span class=gruen>$Andacht_Bibelstelle</span></p></td></tr>" if $Andacht_Bibelstelle ne ""; $a_rinhalt.="<tr><td><p class=klein><span class=gruen>$Andacht_Intro</span></p></td></tr>" if $Andacht_Intro ne ""; $a_rinhalt.="<tr><td><p class=klein><span class=gruen>$Andacht_von $Name</span></p></td></tr>" if $Andacht_von ne ""; $a_rinhalt.="<tr><td id=hgr $fgh><img height=5 src=$pix></td></tr>"; } $rcnt++;
##### Hier beginnt die Ausgabe der HTML-Seite ##### out<<EOF; <html><head> <title>baseportal Datenbank (/test/html_anzeige)</title> EOF </perl> <include src=/hempelr/viskart/styles> <perl> out<<EOF; </head> <body bgcolor=ffffef topmargin=0 leftmargin=0>
$tz5h <TR> <TD valign=middle align=right $fgh colspan=2><p class=orange><p class="gross"><span class=orange><i>Archiv Hingehört</i> - <b>Andachten im Lauf des Kirchenjahres</b></span></p> </TD> </tr> $tz5h <TR> <TD align="right" $fgh colspan=2><p class=klein><span class=orange>Insgesamt $anz_ds Beiträge im Archiv vorhanden </span></p></b> </TD> </tr> $tz5h <tr> <td colspan=2 $fgh align=right valign=middle><p class=klein><p class=klein><span class=orange><b>Beitrag $anza bis $anze </b></span></p> </td> </tr> $tz5h <tr> <td colspan=2 align=center> <table width=90% cellspacing=0 cellpadding=0> <tr> <td width=50% align=center valign=top> <table border=0 width=95% align=center cellpadding=0 cellspacing=0> $a_linhalt </table> </td> <td align=center valign=top width=50%> <table align=center border=0 width=95% cellpadding=0 cellspacing=0> $a_rinhalt </table> </td> </tr> $tz5h $tz1d <tr> <td $fgh colspan=2 align=center> EOF
my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length; $oldrange=$a_offset if $oldrange<$a_offset && $oldrange>-$_range_length+$a_offset;
out "<span class=klein>[ <a href=\"$_link&range=$oldrange,$_range_length&ra=$oldrange&ra_l=$_range_length\">Zurück</a> ] </font></span>" if $oldrange>=$a_offset;
out<<EOF; </td></tr> $tz1h <tr> <td align=center colspan=2 $fgh><p class=klein>[ <a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/hempelr/andachten/andacht">aktuelle Andacht</a> ] [ <a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/hempelr/verans_kirch/vkirch_nutz&ra=$_range&ra_l=$_range_length&fa=$fa&flk=$flk">Nutzerbereich</a> ]</p></td></tr> $tz1d $tz5h </table> </table> </body></html> EOF </perl>
<perl> get "sort=$ort", "viskart"; while(get_next("viskart")) { push @ArrOrt, $ort if index("@ArrOrt", "$ort")<0; } out @ArrOrt; foreach $l_ort (@ArrOrt) { get "ort==$l_ort", "viskart"; while(get_next("viskart")) {$cnt_ort++; $inf = $lcnt % 2; if ($inf eq 0) { $a_linhalt.="<tr valign=top><td>Bezeichnung: $bezeichnun<br>Name: $name</td></tr>"; } $lcnt++; $inf2 = $rcnt % 2; if ($inf2 eq 1) { $a_rinhalt.="<tr valign=top><td>Bezeichnung: $bezeichnun<br>Name: $name</td></tr>"; } $rcnt++; } out "<table border=1 width=800><tr><td colspan=2 align=center><p><b>Ort: $l_ort im Landkreis $landkreis</b></td></tr>";
$a_linhalt=""; $a_rinhalt=""; $cnt_ort="0"; $lcnt=0; $rcnt=0; } </perl>
<perl> get "sort=$ort", "viskart"; while(get_next("viskart")) { $h_bezeich{$ort}.="$bezeichnun#"; $h_name{$ort}.="$name#"; } foreach $k (sort (keys %h_bezeich)) { @a_bezeich=split /#/,$h_bezeich{$k}; @a_name=split /#/,$h_name{$k}; $l_ort=$k; foreach $n (@a_bezeich) { $cnt_ort++; $l=shift @a_name; $inf = $lcnt % 2; if ($inf eq 0) { $a_linhalt.="<tr valign=top><td>Bezeichnung: $n<br>Name: $l</td></tr>"; } $lcnt++; $inf2 = $rcnt % 2; if ($inf2 eq 1) { $a_rinhalt.="<tr valign=top><td>Bezeichnung: $n<br>Name: $l</td></tr>"; } $rcnt++; } $cnt_ges=$cnt_ges+$cnt_ort; out "<br><table border=1 width=800><tr><td colspan=2 align=center><p><b>Ort: $l_ort </b></td></tr>";
$a_linhalt=""; $a_rinhalt=""; $cnt_ort="0"; $lcnt=0; $rcnt=0; } out "Insgesamt wurden $cnt_ges Datensätze gefunden"; </perl>
get "Id==* sort=Kategorie,Name", "Linkliste"; while(get_next("Linkliste"))
$h_namen{$Kategorie}.="$Name#"; $h_links{$Kategorie}.="$URL#"; } foreach $k(sort(keys %h_namen))
@a_namen=split /#/,$h_namen{$k}; @a_links=split /#/,$h_links{$k}; $l_Kategorie=$k; foreach $n (@a_namen) { $cnt_Kategorie++; $l=shift@a_links; $inf=$lcnt%2; if($inf eq 0) { $a_linhalt.="<tr valign=top><td>Bezeichnung: $n<br>Name: $l</td></tr>"; } $lcnt++; $inf2=$rcnt%2; if ($inf2 eq 1) { $a_rinhalt.="<tr valign=top><td>Bezeichnung: $n<br>Name: $l</td></tr>"; } $rcnt++; } $cnt_ges=$cnt_ges+$cnt_Kategorie; out "<br><table border=0 width=80% font=Verdana, Arial, Helvetica size=1><tr><td colspan=2 align=left><p><b>Kategorie: $l_Kategorie </b></td></tr>"; out "<tr valign=top><td align=center><table border=0 width=90%>$a_linhalt</table></td><td align=center><table border=0 width=90%>$a_rinhalt</table></td></tr><tr><td colspan=2 align=left>Insgesamt $cnt_Kategorie Links in der Kategorie $k vorhanden</td></tr></table>"; $a_linhalt=""; $a_rinhalt=""; $cnt_Kategorie="0"; $lcnt=0; $rcnt=0; } out "Insgesamt wurden $cnt_ges Datensätze gefunden";
> Eindeutiger Länderpunkt für Thüringen!
Liste der Einträge von 46575 bis 46650: | 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 |