// Copyright (c) 2002 ITEMS sàrl - 2024 St-Aubin - Switzerland - info@items.ch

// common functions

function prototypeLastIndexOf0(searchValue,indexOf){var i=this.lastIndexOf(searchValue, indexOf);return (i>=0)?i:0}
function prototypeLastIndexOf1(searchValue,indexOf){var i=this.lastIndexOf(searchValue, indexOf);return (i>=0)?i:this.length}
function prototypeLeft(len){var l=this.length;return len<0?"":len>l?this:this.substring(0,len)}
function prototypeRight(len){var l=this.length;return len<0?"":len>l?this:this.substring(l-len)}
String.prototype.lastIndexOf0=prototypeLastIndexOf0;
String.prototype.lastIndexOf1=prototypeLastIndexOf1;
String.prototype.left=prototypeLeft;
String.prototype.right=prototypeRight;

function GetDirectory(url){return url.substring(0,url.lastIndexOf('/')+1)}
function GetParentDir(url){return url.substring(0,url.lastIndexOf('/',url.lastIndexOf('/')-1)+1)}
function GetFilename(url){return url.substring(url.lastIndexOf('/')+1)}

// global constants

var defaultExtension='.html';
var nbPages=5; // nb de pages du document sauf index, glossaire, etc...
var avecIndex=true;
var avecGlossaire=false;

// global readonly variables

var sDirectory=GetDirectory(window.location.pathname);
var sFilename=window.location.pathname.substring(sDirectory.length);
var sFileOnly=sFilename.substring(0,sFilename.lastIndexOf1('.'));
var sExtension=sFilename.substring(sFileOnly.length);

var currentPage=0;
if (sFileOnly.substring(0,4).toLowerCase()=='page') {currentPage=eval(sFileOnly.substring(4))};

var dLastModified=new Date(Date.parse(window.document.lastModified));
var sLastModified=new String(("00"+dLastModified.getDate()).right(2)+"."+("00"+(dLastModified.getMonth()+1)).right(2)+"."+("00"+dLastModified.getYear()).right(2)+" "+("00"+dLastModified.getHours()).right(2)+":"+("00"+dLastModified.getMinutes()).right(2)+":"+("00"+dLastModified.getSeconds()).right(2));

// global and local functions

function sTitle() {
	var s="";
	s+=window.document.title;
	switch (sFileOnly.toLowerCase()) {
	case '':
	case 'index':
	//case 'default':
	case 'page0':
		s+=' - Index'; break;
	case 'glossaire':
		s+=' - Glossaire'; break;
	default:
		if (currentPage>0) {s+=' - Page ' + currentPage + ' de ' + nbPages}
		else {s+=' - ' + sFileOnly[0].toUpperCase() + sFileOnly.substring(1)};
	}
	return s;
}

function sLinks() {
	var s="";
	var sep='&#91; ';
	//s+=sep+'Retour'.link('../');
	//sep=' &#124; ';
	//s+=sep+'Retour'.link('javascript:history.go(-1)');
	//sep=' &#124; ';
	s+=sep+'Imprimer'.link('javascript:window.print()');
	sep=' &#124; ';
	//if (avecIndex) {s+=sep+((sFileOnly!=''&&sFileOnly.toLowerCase()!='index'&&sFileOnly.toLowerCase()!='default')?'Index'.link('./'):'Index')};
	//if (avecIndex) {s+=sep+((sFileOnly!=''&&sFileOnly.toLowerCase()!='index'&&sFileOnly.toLowerCase()!='default')?'Index'.link('index'+defaultExtension):'Index')};
	if (avecIndex) {s+=sep+((sFileOnly.toLowerCase()!='page0')?'Index'.link('page0'+defaultExtension):'Index')};
	if (nbPages>5) {
		s+=sep+(currentPage>1?'<<<<'.link('page'+(1)+defaultExtension):'<<<<');
		//s+=sep+(currentPage>1||(currentPage==1&&avecIndex)?'<<'.link(currentPage>1?'page'+(currentPage-1)+defaultExtension:'./'):'<<')};
		s+=sep+(currentPage>1?'<<'.link('page'+(currentPage-1)+defaultExtension):'<<')};
	for (var p=(nbPages>5?(currentPage>1?currentPage-1:1):1); p<=(nbPages>5?(currentPage<nbPages?currentPage+1:nbPages):nbPages); p++) {s+=sep+((p!=currentPage)?('Page ' + p).link('page' + p + defaultExtension):('Page ' + p))};
	if (nbPages>5) {
		s+=sep+(currentPage<nbPages?'>>'.link('page'+(currentPage+1)+defaultExtension):'>>');
		s+=sep+(currentPage<nbPages?'>>>>'.link('page'+(nbPages)+defaultExtension):'>>>>')};
	if (avecGlossaire) {s+=sep+((sFileOnly.toLowerCase()!='glossaire')?'Glossaire'.link('glossaire' + defaultExtension):'Glossaire')};
	s+=' &#93;';
	return s;
};

function sRevision() {
	return "Rév. "+sLastModified;
}

function sCopyright() {
	return "Copyright 2002-2004 &copy; ITEMS s&agrave;rl - 2024 St-Aubin - Switzerland - " + "www.items.ch".link("http://www.items.ch");
}

function sComments() {
	return "Send any comments to " + "info@items.ch".link("mailto:info@items.ch");
}

// 23.11.2001 jmparatte