function show_patent(url)
{
var winname = "PATENT_WINDOW";
var country = url.substring(0,2);
var patnum = url.substring(3);
if (country == "us") {show_us(patnum, winname); return;}
if (country == "ca") {show_ca(patnum, winname); return;}
if (country == "gb") {show_gb(patnum, winname); return;}
if (country == "at") {show_wo(patnum, winname); return;}
if (country == "ch") {show_wo(patnum, winname); return;}

alert('Invalid country code=' + country + "\n\nContact: www.Antique-Padlocks.com");
}

function show_us(patnum, winname)
{
// United States
var i = 0;
if ((patnum.substring(0,2) == "AI") || (patnum.substring(0,2) == "RE")) i = 2;
else if ((patnum.substring(0,1) == "D") || (patnum.substring(0,1) == "X")) i = 1;
while (patnum.length < 7) {patnum = patnum.substring(0,i) + "0" + patnum.substring(i);}
var url = "http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO1&Sect2=HITOFF" +
      "&d=PALL&p=1&u=%2Fnetahtml%2FPTO%2Fsrchnum.htm&r=1&f=G&l=50&s1=" +
      patnum + ".PN.&OS=PN/" + patnum + "&RS=PN/" + patnum;
window.open(url, winname);
}

function show_ca(patnum, winname)
{
// Canada

var url = "http://brevets-patents.ic.gc.ca/opic-cipo/cpd/eng/patent/" + patnum + "/summary.html?type=number_search"
window.open(url, winname);
}

function show_gb(patnum, winname)
{
// Great Britain
var url = "http://v3.espacenet.com/textdoc?DB=EPODOC&IDX=GB" + patnum + "&F=0";
window.open(url, winname);
}

function show_wo(patnum, winname)
{
// World
var url = "http://v3.espacenet.com/results?sf=a&FIRST=1&CY=gb&LG=en&DB=EPODOC&TI=&AB=&PN=" + patnum.toLowerCase() + "&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=";
window.open(url, winname);
}