//     Title: Show Patents
// File Name: show_patent.js
//    Author: David J. Heuermann
//       Use: Private - Antique Padlocks

function show_patent(patent_code)
{
var url = get_patent_url(patent_code);
if (url == "") return;
var winname = "patent_window_" + patent_code.toLowerCase();
var w = window.open(url, winname);
// w.focus();
}

function get_patent_url(patent_code)
// Called also by patentents_parser.htm
{
var country = patent_code.substring(0,2);
var patnum = patent_code.substring(3);

if (country == "us") {return us_patent_url(patnum);}
if (country == "ca") {return ca_patent_url(patnum);}
if (country == "gb") {return europe_patent_url(patnum, country);}
if (country == "at") {return europe_patent_url(patnum, country);}
if (country == "ch") {return europe_patent_url(patnum, country);}
alert('Invalid country code=' + country + "\n\nContact: www.Antique-Padlocks.com");
return "";
}
function us_patent_url(patnum)
{
// United States Patent and Trademark Office
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;
return url;
}

function ca_patent_url(patnum)
{
// Canadian Intellectual Property Office
var url = "http://brevets-patents.ic.gc.ca/opic-cipo/cpd/eng/patent/"
	    + patnum + "/summary.html?type=number_search"
return url;
}

function europe_patent_url(patnum, country)
{
// European Patent Office
var url = "http://v3.espacenet.com/searchResults?bookmarkedResults=true&submitted"
	    + "=true&DB=EPODOC&locale=en_gb&sf=a&FIRST=1&CY=gb&LG=en&&TI=&AB=&PN="
	    + country.toLowerCase() + patnum.toLowerCase()
	    + "&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&="
return url;
}