<% # Oberstdorf-Only unless ( $SE{app} eq "oberstdorf.de"){ my $out = qq(
); require SE::GeoData::Lib; require SE::GeoData::GeoData; my $geo = getGeoData( origin => "betrieb", origin_id => $VERMIETER{gid} ); $out .= getGeoDataMap( id => $geo->{id}, NOTREE => 1 ) if $geo->{origin_id} == $VERMIETER{gid}; $out .= qq(
); return $out; } my $frameSRC; $a = $VERMIETER{betriebsname}; $a =~ s/&/ und /g; $a =~ s/["']//g; $frameSRC = qq(http://80.81.28.120/mapbender2/frames/login.php?name=oberstdorf_gastgeber&password=gast); $frameSRC .= qq(&parameter=$a,$VERMIETER{gis_y},$VERMIETER{gis_x}); qq( ); %> <% # Oberstdorf-Only return unless $SE{app} eq "oberstdorf.de"; $strasse = $VERMIETER{strasse}; $strasse =~ s/ß/ss/g; # trailing space $strasse =~ s/^(\D+)\d[\d-]+(.*)/$1/g; # nummer weg $strasse =~ s/str\./strasse/g; # str. zu strasse $strasse =~ s/Str\./Strasse/g; # str. zu strasse $strasse =~ s/\s+$//g; # trailing space $dbh = &mysql_connect; $sth = $dbh->prepare( qq( SELECT * FROM ufstrasse WHERE strasse = '$strasse' ) ); $sth->execute; $weg = $sth->fetchrow_arrayref; return "$strasse" unless $sth->rows; $wegstring = "$$weg[2] $$weg[3] $$weg[4] $$weg[5]"; $wegstring2 = "$$weg[6] $$weg[7] $$weg[8] $$weg[9]"; $wegstring = &wegbooster($wegstring); $wegstring2 = &wegbooster($wegstring2); $wegbeschreibung = qq(

$LANG{Anfahrtsbeschreibung}

Mit dem Auto vom Bahnhof

BAHNHOF ➠ $wegstring
Sie haben das Ziel erreicht...

Mit dem Auto
vom Ortseingang

ORTSEINGANG ➠ $wegstring2
Sie haben das Ziel erreicht...

Lage des Hauses

Planquadrat: $VERMIETER{lage}

); sub wegbooster { $wegbooster_string = $_[0]; # spaces $wegbooster_string =~ s/ / /g; #rechts oder links $wegbooster_string =~ s/;\s?rechts\s?oder\s?links|;links oder rechts/
rechts<\/span> oder links<\/span><\/b>/g; #geradeaus $wegbooster_string =~ s/;\s?geradeaus\s?weiter/
geradeaus<\/span><\/b>/g; #Kreisverkehr $wegbooster_string =~ s/im\s?Kreisverkehr/
Kreisverkehr<\/span><\/b>/g; # 2. links $wegbooster_string =~ s/;\s?2.\s?links/
2te links<\/span><\/b>/g; # links $wegbooster_string =~ s/;\s?links/
nach<\/span> links<\/span><\/b>/g; #rechts $wegbooster_string =~ s/;\s?rechts/
nach<\/span> rechts<\/span><\/b>/g; $wegbooster_string =~ s/-\s+//g; # trailing space $wegbooster_string =~ s/;/; /g; # trailing space return $wegbooster_string; } %>