Modul:Australian place map

-- This module implements the selection of the location map
-- in [[Template:Infobox Australian place]] and [[Template:Infobox Australian road]]
require('strict')
localp={}
localfunctionisnotblank(s)returnsands~=''end
localstatenames={
sa='South Australia',
vic='Victoria',
nsw='New South Wales',
qld='Queensland',
nt='Northern Territory',
wa='Western Australia',
tas='Tasmania',
act='Australian Capital Territory',
jbt='Jervis Bay Territory',
ni='Norfolk Island'
}
localmapwidths={
sa=230,
qld=190,
nt=190,
wa=180,
tas=210,
act=180
}
functionp.main(frame)
locallargs=frame:getParent().args
localplace_type=(largs.typeor''):lower()
localmap_name=largs.map_typeor''
localmap_type=(largs.map_typeor'auto'):lower()
localstate_abbr=(largs.stateor''):lower()
localmap_width=270
localcoords=largs.coordinatesor''
localcoordsa=largs.coordinates_aor''
localcoordsb=largs.coordinates_bor''
-- Default for LGAs is nomap
-- Default for everywhere else is auto
ifmap_type==''ormap_type=='auto'then
ifplace_type=='lga'then
map_type='nomap'
else
map_type='auto'
end
end
-- Apply legacy parameters
ifisnotblank(largs.alternative_location_map)then
map_type=largs.alternative_location_map
map_name=map_type
elseifisnotblank(largs.force_national_map)then
map_type='national'
map_name='Australia'
elseifisnotblank(largs.use_lga_map)then
map_type='lga'
end
-- Process the value in map_type 
ifmap_type=='state'ormap_type=='auto'ormap_type=='lga'then
map_name='Australia '..(statenames[state_abbr]or'')
map_width=mapwidths[state_abbr]or270
ifmap_type=='lga'then
map_name=map_name..' '..(largs.lgaor'')
map_width=mapwidths[state_abbr]or270
end
elseifmap_type=='national'ormap_type=='australia'then
map_name='Australia'
end
ifisnotblank(coords)orisnotblank(coordsa)then
else
map_type='nomap'
end
-- Finally build the map
ifmap_type~='nomap'then
localcaption=largs.pushpin_map_captionor''
ifcaption~=''thencaption='<small>'..caption..'</small>'end
ifisnotblank(coordsa)then
returnframe:expandTemplate{
title='Location map many',
args={
map_name,
relief=largs.reliefor'',
label1=isnotblank(coordsb)andisnotblank(largs.direction_a)and(largs.direction_a..' end')or(largs.road_nameor''),
coordinates1=coordsa,
position1=isnotblank(largs.pushpin_label_position_a)andlargs.pushpin_label_position_aor'left',
coordinates2=coordsb,
label2=isnotblank(largs.direction_b)and(largs.direction_b..' end')or'',
position2=isnotblank(largs.pushpin_label_position_b)andlargs.pushpin_label_position_bor'left',
marksize=8,
float='center',
caption=caption,
border='infobox',
width=map_width,
alt=largs.map_altor''
}
}
end
returnframe:expandTemplate{
title='Location map',
args={
map_name,
label=largs.nameor'',
relief=largs.reliefor'',
coordinates=coords,
marksize=6,
position=largs.pushpin_label_positionor'',
float='center',
caption=caption,
border='infobox',
width=map_width,
alt=largs.map_altor''
}
}
end
return''
end
returnp