<% ################## Seitennavigation ######################################## my $pagesNR; if ($TRAVEL{maxpage} > 1) { my $s = $TRAVEL{page}-5 >= 1 ? $TRAVEL{page}-5 : 1; my $e = $TRAVEL{page}+5 <= $TRAVEL{maxpage} ? $TRAVEL{page}+5 : $TRAVEL{maxpage}; for (my $i = $s; $i <= $e; $i++) { my $lnk = $TRAVEL{next} ? $TRAVEL{next} : $TRAVEL{prev}; if ($lnk =~ s/([&\?]p=)\d+/$1$i/) { my $pipe = $i > $s ? " | " : " "; $pagesNR .= $i == $TRAVEL{page} ? qq($pipe$i) : qq($pipe$i); } } $pagesNR = qq(... | $pagesNR) if ($s > 1); $pagesNR = qq( $pagesNR | ...) if ($e < $TRAVEL{maxpage}); } my $pages; $pages .= $TRAVEL{prev} ? qq(« $LANG{Zurueck} | ) : ""; $pages .= $pagesNR ? qq($LANG{Seiten}: $pagesNR) : ""; $pages .= $TRAVEL{maxpage} > 1 ? qq( $LANG{von} $TRAVEL{maxpage}) : ""; $pages .= $TRAVEL{next} ? qq( | $LANG{Alle}) : ""; $pages .= $TRAVEL{next} ? qq( | $LANG{Weiter} ») : ""; $pages = $pages ? qq( ) : ""; ################ Suchparameter ############################################## require "se_travel.pl"; my $parameter = &vermittlung_decode_parameter( &vermittlung_encode_parameter ); ################ Sortierung ################################################ my %sortmode; $sortmode{$in{sortmode}} = qq(selected="selected"); foreach (split(/&/,$ENV{QUERY_STRING})) { my ($a,$b) = split(/=/,$_); next if $a =~ /sortmode|action|seite|page/; $hidden_fields .= qq(\n) if $b; } my $sortmodes = join("\n", map( { grep( $_ eq $SE{app}, ref $_->[2] eq "ARRAY" ? @{$_->[2]} : () ) > 0 ? "" : qq([0]} value="$_->[0]" class="$_->[0]">$LANG{"$_->[1]"}) } ( ["fairupdate", "Sortiert_nach_Aktualitaet"], ["random", "Sortiert_nach_Zufall", ["bad-woerishofen.de"]], ["preis", "Sortiert_nach_Preis"], ["ort", "Sortiert_nach_Ort"], ["strasse", "Sortiert_nach_Strasse"], ["betriebsart", "Sortiert_nach_Betriebsart"], ["klasse", "Sortiert_nach_Klassifizierung"], ["alpha", "Sortiert_nach_Alphabet"], ))); ################## zuruecklink ########################################### my $back = $value[5] ? qq(« $LANG{Zurueck_zur_Suchmaske}) : qq( ); ################## Ergebnisse in Karte anzeigen ########################## ################## !!!!!!AUSNAHME FUER OBBERSTDORF!!!!!!!!!!!!!!!!!!!! ### my $resultMap; if ($ENV{QUERY_STRING} =~ /sortmode/ && $SE{lizenznehmer} eq "Kurverwaltung Oberstdorf") { $resultMap = qq($LANG{Treffer_in_Karte_zeigen} Δ); } ################ Template ;) ############################################# return qq( ); %>