Module:InfoboxImage

 -- Inputs:
 -- image - Can either be a bare filename (with or without the File:/Image: prefix) or a fully formatted image link
 -- page - page to display for multipage images (DjVu)
 -- size - size to display the image
 -- maxsize - maximum size for image
 -- sizedefault - default size to display the image if size param is blank
 -- alt - alt text for image
 -- title - title text for image
 -- border - set to yes if border
 -- center - set to yes, if the image has to be centered
 -- upright - upright image param
 -- suppressplaceholder - if yes then checks to see if image is a placeholder and suppresses it
 -- link - page to visit when clicking on image
 -- class - HTML classes to add to the image
 -- Outputs:
 -- Formatted image.
 -- More details available at the "Module:InfoboxImage/doc" page

 locali={};

 localplaceholder_image={
 "Blue - Replace this image female.svg",
 "Blue - Replace this image male.svg",
 "Flag of None (square).svg",
 "Flag of None.svg",
 "Flag of.svg",
 "Green - Replace this image female.svg",
 "Green - Replace this image male.svg",
 "Image is needed female.svg",
 "Image is needed male.svg",
 "Location map of None.svg",
 "Male no free image yet.png",
 "Missing flag.png",
 "No flag.svg",
 "No free portrait.svg",
 "No portrait (female).svg",
 "No portrait (male).svg",
 "Red - Replace this image female.svg",
 "Red - Replace this image male.svg",
 "Replace this image female.svg",
 "Replace this image male (blue).svg",
 "Replace this image male.svg",
 "Silver - Replace this image female.svg",
 "Silver - Replace this image male.svg",
 "Replace this image.svg",
 "Cricket no pic.png",
 "CarersLogo.gif",
 "Diagram Needed.svg",
 "Example.jpg",
 "Image placeholder.png",
 "No male portrait.svg",
 "Nocover-upload.png",
 "NoDVDcover copy.png",
 "Noribbon.svg",
 "No portrait-BFD-test.svg",
 "Placeholder barnstar ribbon.png",
 "Project Trains no image.png",
 "Image-request.png",
 "Sin bandera.svg",
 "Sin escudo.svg",
 "Replace this image - temple.png",
 "Replace this image butterfly.png",
 "Replace this image.svg",
 "Replace this image1.svg",
 "Resolution angle.png",
 "Image-No portrait-text-BFD-test.svg",
 "Insert image here.svg",
 "No image available.png",
 "NO IMAGE YET square.png",
 "NO IMAGE YET.png",
 "No Photo Available.svg",
 "No Screenshot.svg",
 "No-image-available.jpg",
 "Null.png",
 "PictureNeeded.gif",
 "Place holder.jpg",
 "Unbenannt.JPG",
 "UploadACopyrightFreeImage.svg",
 "UploadAnImage.gif",
 "UploadAnImage.svg",
 "UploadAnImageShort.svg",
 "CarersLogo.gif",
 "Diagram Needed.svg",
 "No male portrait.svg",
 "NoDVDcover copy.png",
 "Placeholder barnstar ribbon.png",
 "Project Trains no image.png",
 "Image-request.png",
 "Noimage.gif",
 }

 localcategories={
 url_image_links="[[Category:Pages using infoboxes with URL in image parameter]]",
 thumbnail_images="[[Category:Pages using infoboxes with thumbnail images]]",
 }

 localfunctiontrackable()
 localns=mw.title.getCurrentTitle().nsText:lower()
 returnnot(ns=='user'orns=='user talk')
 end

 functioni.IsPlaceholder(image)
 -- change underscores to spaces
 image=mw.ustring.gsub(image,"_"," ");
 assert(image~=nil,'mw.ustring.gsub(image, "_", " ") must not return nil')
 -- if image starts with [[ then remove that and anything after |
 ifmw.ustring.sub(image,1,2)=="[["then
 image=mw.ustring.sub(image,3);
 image=mw.ustring.gsub(image,"([^|]*)|.*","%1");
 assert(image~=nil,'mw.ustring.gsub(image, "([^|]*)|.*", "%1") must not return nil')
 end
 -- Trim spaces
 image=mw.ustring.gsub(image,'^[ ]*(.-)[ ]*$','%1');
 assert(image~=nil,"mw.ustring.gsub(image, '^[ ]*(.-)[ ]*$', '%1') must not return nil")
 -- remove prefix if exists
 localallNames=mw.site.namespaces[6].aliases
 allNames[#allNames+1]=mw.site.namespaces[6].name
 allNames[#allNames+1]=mw.site.namespaces[6].canonicalName
 fori,nameinipairs(allNames)do
 ifmw.ustring.lower(mw.ustring.sub(image,1,mw.ustring.len(name)+1))==mw.ustring.lower(name..":")then
 image=mw.ustring.sub(image,mw.ustring.len(name)+2);
 break
 end
 end
 -- Trim spaces
 image=mw.ustring.gsub(image,'^[ ]*(.-)[ ]*$','%1');
 -- capitalise first letter
 image=mw.ustring.upper(mw.ustring.sub(image,1,1))..mw.ustring.sub(image,2);

 fori,jinpairs(placeholder_image)do
 ifimage==jthen
 returntrue
 end
 end
 returnfalse
 end

 localfunctionisempty(x)
 return(notx)orx==""
 end

 functioni.InfoboxImage(frame)
 localimage=frame.args["image"];

 ifisempty(image)then
 return"";
 end
 ifimage==" "then
 returnimage;
 end
 ifframe.args["suppressplaceholder"]~="no"then
 ifi.IsPlaceholder(image)==truethen
 return"";
 end
 end

 ifstring.find(image,"^%[*https?:")then
 -- Error category.
 returntrackable()andcategories.url_image_linksor""
 end

 ifmw.ustring.sub(image,1,2)=="[["then
 -- search for thumbnail images and add to tracking cat if found
 localcat="";
 ifmw.title.getCurrentTitle().namespace==0and(mw.ustring.find(image,"|%s*thumb%s*[|%]]")ormw.ustring.find(image,"|%s*thumbnail%s*[|%]]"))then
 cat=trackable()andcategories.thumbnail_imagesor""
 end
 returnimage..cat;
 elseifmw.ustring.sub(image,1,2)=="{{"andmw.ustring.sub(image,1,3)~="{{{"then
 returnimage;
 elseifmw.ustring.sub(image,1,1)=="<"then
 returnimage;
 elseifmw.ustring.sub(image,1,8)==mw.ustring.char(127).."'\"`UNIQ"then
 -- Found strip marker at begining, so pass don't process at all
 returnimage;
 else
 localresult="";
 localpage=frame.args["page"];
 localupright=frame.args["upright"]or""
 localsize=frame.args["size"];
 localmaxsize=frame.args["maxsize"];
 localsizedefault=frame.args["sizedefault"];
 localalt=frame.args["alt"];
 locallink=frame.args["link"];
 localtitle=frame.args["title"];
 localborder=frame.args["border"];
 localthumbtime=frame.args["thumbtime"]or"";
 localcenter=frame.args["center"];
 localclass=frame.args["class"];

 -- remove prefix if exists
 localallNames=mw.site.namespaces[6].aliases
 allNames[#allNames+1]=mw.site.namespaces[6].name
 allNames[#allNames+1]=mw.site.namespaces[6].canonicalName
 fori,nameinipairs(allNames)do
 ifmw.ustring.lower(mw.ustring.sub(image,1,mw.ustring.len(name)+1))==mw.ustring.lower(name..":")then
 image=mw.ustring.sub(image,mw.ustring.len(name)+2);
 break
 end
 end

 ifnotisempty(maxsize)then
 -- if no sizedefault nor upright, then set to maxsize
 ifisempty(sizedefault)andisempty(upright)then
 sizedefault=maxsize
 end
 -- check to see if size bigger than maxsize
 localmaxsizenumber=tonumber(mw.ustring.match(maxsize,"%d*"))or0;
 ifnotisempty(size)then
 localsizenumber=tonumber(mw.ustring.match(size,"%d*"))or0;
 ifsizenumber>maxsizenumberandmaxsizenumber>0then
 size=maxsize;
 end
 end
 -- check to see if upright bigger than maxsize (at default preferred size)
 ifnotisempty(upright)then
 localuprightnumber=tonumber(upright)or(upright=="yes"and0.75)or0
 ifuprightnumber*220>maxsizenumberandmaxsizenumber>0then
 upright=tostring(maxsizenumber/220)
 end
 end
 end
 -- add px to size if just a number
 if(tonumber(size)or0)>0then
 size=size.."px";
 end
 -- add px to sizedefault if just a number
 if(tonumber(sizedefault)or0)>0then
 sizedefault=sizedefault.."px";
 end

 result="[[File:"..image;
 ifnotisempty(page)then
 result=result.."|page="..page;
 end
 ifnotisempty(size)then
 result=result.."|"..size;
 elseifnotisempty(sizedefault)andisempty(upright)then
 result=result.."|"..sizedefault;
 else
 result=result.."|frameless";
 end
 ifcenter=="yes"then
 result=result.."|center"
 end
 ifnotisempty(alt)then
 result=result.."|alt="..alt;
 end
 ifnotisempty(link)then
 result=result.."|link="..link;
 end
 ifborder=="yes"then
 result=result.."|border";
 end
 ifupright=="yes"then
 result=result.."|upright";
 elseifupright~=""then
 result=result.."|upright="..upright;
 end
 ifthumbtime~=""then
 result=result.."|thumbtime="..thumbtime;
 end
 ifnotisempty(class)then
 result=result.."|class="..class;
 end
 -- if alt value is a keyword then do not use as a description
 ifalt=="thumbnail"oralt=="thumb"oralt=="frameless"oralt=="left"oralt=="center"oralt=="right"oralt=="upright"oralt=="border"ormw.ustring.match(altor"",'^[0-9]*px$',1)~=nilthen
 alt=nil;
 end
 ifnotisempty(title)then
 -- does title param contain any templatestyles? If yes then set to blank.
 ifmw.ustring.match(frame:preprocess(title),'UNIQ%-%-templatestyles',1)~=nilthen
 title=nil;
 end
 end
 ifnotisempty(title)then
 result=result.."|"..title;
 end
 result=result.."]]";

 returnresult;
 end
 end

 returni;