SELECT SecLink FROM Security WHERE SecLink=51 AND UserLink=;OUTPUT NIL
SELECT SecLink FROM Security WHERE SecLink=52 AND UserLink=;OUTPUT NIL
INSERT INTO MapLocationAttach (MapImageLink,MapLocationLink) VALUES (,);FINISHMap Attached
eq '')>
eq '')>
$in{LLPolyCoords}=~s/\,/\ /g;
$in{LngMin}=99999; $in{LatMin}=99999; $in{LngMax}=-99999; $in{LatMax}=-99999;
foreach $pyl (split "\n",$in{LLPolyCoords}) {
if (length($pyl) > 10) {
if (substr($pyl,0,1) eq 'X') { $pyl=substr($pyl,1); }
($lon,$lat)=split(" ",$pyl);
$lon=$lon+0; $lat=$lat+0;
if ($in{LngMin} > $lon) { $in{LngMin}=$lon; }
if ($in{LngMax} < $lon) { $in{LngMax}=$lon; }
if ($in{LatMin} > $lat) { $in{LatMin}=$lat; }
if ($in{LatMax} < $lat) { $in{LatMax}=$lat; }
}
}
INSERT INTO MapLocation (ContainerLink,FirstBy,FirstEnter) VALUES (,,Now());FINISH
UPDATE MapLocation SET StartDate=,EndDate=,Description=,Latitude=,LatMin=,LngMin=,LatMax=,LngMax=,Longitude=,LLPolyCoords=,LMBy=,LastModified=Now() WHERE MapLocationID=;
FINISHMap Location Changes Saved.
if ($in{ReplaceOrig} eq 'Y') {
$tfname=$in{BFDIR}.'/VectorFileOrig/MapLocation'.int($in{MapLocationID}).'.txt';
unlink($tfname);
open ($tfile, '>', $tfname);
print $tfile $in{LLPolyCoords};
close $tfile;
chmod 0764, $tfname;
}
SELECT l.*,f.Nym First_Nym,m.Nym Last_Nym FROM MapLocation as l LEFT JOIN User as f ON f.UserID=FirstBy LEFT JOIN User as m ON m.UserID=LMBy WHERE MapLocationID=;OUTPUT NIL
Return to Container
|