Module:Gutenberg

From Zoophilia Wiki
Revision as of 16:57, 4 October 2015 by meta>GreenC
Jump to navigationJump to search

Documentation for this module may be created at Module:Gutenberg/doc

local p = {}
 
function p.author(frame)
  
  local pframe = frame:getParent()
  local args = pframe.args
 
  local tname = "Gutenberg author" -- name of calling template. Change if template is renamed.
 
  local id       = nil -- author name, or author number. The later will go direct to the author page, the former to a search results page.
  local name     = nil -- display name on Wikipedia (default: article title)
  local url      = nil
  local tagline  = "at [[Project Gutenberg]]"
  local urlheadname  = "//www.gutenberg.org/author/"
  local urlheadnumb  = "//www.gutenberg.org/ebooks/author/"
  local urlhead  = nil

  args.id = trimArg(args.id)
  if not args.id then
    return error("Parameter id is missing. See [[Template:" .. tname .. "]] documentation")
  else
    id = args.id
    if tonumber(id) ~= nil then -- it's a number
      urlhead = urlheadnumb
    else
      urlhead = urlheadname
    end
  end 

  args.name = trimArg(args.name)
  if not args.name then
    name = mw.title.getCurrentTitle().basePageTitle.text
  else
    name = args.name
  end

  url = "[" .. urlhead .. id .. " Works by " .. name .. "] " .. tagline

  return url

end

function trimArg(arg)

  if arg == "" or arg == nil then
    return nil
  else
    return mw.text.trim(arg)
  end

end

return p