Open main menu
Home
Random
Donate
Recent changes
Special pages
Community portal
Preferences
About Stockhub
Disclaimers
Search
User menu
Talk
Contributions
Create account
Log in
Editing
Module:LCCN
Warning:
You are not logged in. Your IP address will be publicly visible if you make any edits. If you
log in
or
create an account
, your edits will be attributed to your username, along with other benefits.
Anti-spam check. Do
not
fill this in!
require('strict') local p = {} local function blank_to_nil(s) if s and #s > 0 then return s end end local function pad(padlen, ...) padlen = tonumber(padlen) or 0 if 1 > select('#', ...) then return ("0"):rep(padlen) end local padsrc = tostring((...)) local srclen = mw.ustring.len(padsrc) if 1 > padlen or 1 > srclen then return "" end return mw.ustring.sub(mw.ustring.rep(padsrc, math.ceil(padlen / srclen)), 1, padlen) end local function padleft(str, ...) str = tostring(str) if 1 > select('#', ...) then return str end local strlen = mw.ustring.len(str) if 1 > strlen then return pad((...), select(2, ...)) end return pad((tonumber((...)) or 0) - strlen, select(2, ...)) .. str end local function padright(str, ...) str = tostring(str) if 1 > select('#', ...) then return str end local strlen = mw.ustring.len(str) if 1 > strlen then return pad((...), select(2, ...)) end return str .. pad((tonumber((...)) or 0) - strlen , select(2, ...)) end local function expr(...) return mw.ext.ParserFunctions.expr( ... ) end function p.main(frame) local args = frame:getParent().args local id = blank_to_nil(args[1] or args.id) local title = blank_to_nil(args[2] or args.title or args.name) local left_part, right_part, url if id then local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2 left_part = id:sub(1, letter_width + 2) right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8)) url = "https://lccn.loc.gov/" .. left_part .. padleft(right_part, 6, 0) else url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl() end if args.long == "yes" then return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)|Library of Congress]]"):format( url, title or mw.title.getCurrentTitle().text) end if not left_part then error("Template:LCCN: You must provide an ID.") end return ("[[LCCN (identifier)|LCCN]] [%s %s-%s]%s"):format( url, left_part, right_part, title and (' – ' .. title) or '') end return p
Summary:
Please note that all contributions to Stockhub may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see
Stockhub:Copyrights
for details).
Do not submit copyrighted work without permission!
Cancel
Editing help
(opens in new window)
Templates used on this page:
Template:Module other
(
edit
)
Template:Module rating
(
edit
)
Template:Ombox
(
edit
)
Template:Sandbox other
(
edit
)
Module:Arguments
(
edit
)
Module:LCCN/doc
(
edit
)
Module:Message box
(
edit
)
Module:Message box/configuration
(
edit
)
Module:Message box/ombox.css
(
edit
)
Module:String
(
edit
)
Module:Yesno
(
edit
)