var startpic=1;
var picbase='picprefix/PHPpicbase_';
var currpic=1;
var picref;
var s;
var link = new Array();
var vlink = new Array();
var nlinks=linkmenu;
var nvars=varmenu;
var thetitle='maintitle';
var altstatus='';
var videoactive='video';
var videostring;
var IntervalID;
var piccount=51;
var thescript;
function get_count()
{
//alert("Q");
if (piccount>0)
{
document.getElementById('pcount').innerHTML = "View count = " + piccount;
clearInterval(IntervalID);
}
}
function IsNumeric(sText)
{
var ValidChars = "0123456789.";
var IsNumber=true;
var Char;
for (i = 0; i < sText.length && IsNumber == true; i++)
{
Char = sText.charAt(i);
if (ValidChars.indexOf(Char) == -1)
{
IsNumber = false;
}
}
return IsNumber;
}
function gettext(thearray,picno)
{
var inf;
inf=thearray[picno-1];
if (inf.charAt(0)=="=")
{
inf=thearray[inf.slice(1)];
}
return inf;
}
function nics(t)
{
n=s.indexOf(t);
if (n>=0)
{
ss=s.slice(0,n);
s=s.slice(n+1);
return ss;
}
else
{
ss=s;
s="";
return ss;
}
}
function pbrowse(inc)
{
if (inc==-2)
{
currpic=1;
}
else if (inc==2)
{
currpic=picmax;
}
else if (inc==0)
{
currpic=startpic;
}
else if (inc==1)
{
currpic=currpic+1;
}
else
{
currpic=currpic-1;
}
if (currpic>picmax)
{
currpic=picmax;
}
if (currpic<1)
{
currpic=1;
}
pgo(inc);
}
function pgo(cflag)
{
var tstring;
if (videoactive == "True")
{
videostring=gettext(videos,currpic);
if (videostring != "")
{
picref=document.getElementById("vplay");
picref.innerHTML="Play Video";
picref=document.getElementById("vstop");
picref.innerHTML="Exit Video";
picref=document.getElementById("videonotice");
picref.innerHTML="This is a video, click to play";
}
else
{
picref=document.getElementById("vplay");
picref.innerHTML="";
picref=document.getElementById("vstop");
picref.innerHTML="";
picref=document.getElementById("videonotice");
picref.innerHTML="";
}
}
picref=document.getElementById("pic");
picref.src="images/" + picbase + pic[currpic-1] + ".jpg"
picref.alt=gettext(picalt,currpic);
picref.title=gettext(pictitle,currpic);
picref=document.getElementById("pno");
picref.innerHTML="Picture " + currpic + " of " + picmax;
picref=document.getElementById("id");
picref.innerHTML=parseInt(pic[currpic-1],16);
inf=gettext(phot,currpic);
if (photlink[currpic-1] != "")
{
inf='' + inf + '<\/a>';
}
picref=document.getElementById("phot");
picref.innerHTML=inf;
picref=document.getElementById("cr");
inf=gettext(sdate,currpic);
picref.innerHTML=gettext(phot,currpic) + " " + inf.slice(inf.length-5);
picref=document.getElementById("info");
picref.innerHTML=gettext(info,currpic);
picref=document.getElementById("groups");
picref.innerHTML=gettext(groups,currpic);
inf='Enquiry via my blog<\/a>';
picref=document.getElementById("enq");
picref.innerHTML=inf;
inf=" ";
if (alamy[currpic-1]==1)
{
inf='Buy picture at Alamy<\/a>';
}
if (alamy[currpic-1]==9)
{
inf="Not for sale";
}
picref=document.getElementById("alamy");
picref.innerHTML=inf;
picref=document.getElementById("sdate");
picref.innerHTML=gettext(sdate,currpic);
picref=document.getElementById("warn");
picref.innerHTML=gettext(warn,currpic);
picref=document.getElementById("sect");
picref.innerHTML=gettext(sect,currpic);
picref=document.getElementById("status");
picref.innerHTML=gettext(statuses,currpic);
picref=document.getElementById("cam");
picref.innerHTML=gettext(cam,currpic);
picref=document.getElementById("parts");
picref.innerHTML=gettext(parts,currpic);
textgenus="genus";
textspecies="species";
textgenusstace2="";
textspeciesstace2="";
textaltg="altgenus";
textalts="altspecies";
if (textspecies.indexOf(" x ")>-1)
{
hybrid=true;
alttext="Or ";
}
else
{
hybrid=false;
if (altstatus.indexOf("Was")>-1)
{
alttext="Was known as ";
}
else if (altstatus.indexOf("Or")>-1)
{
alttext="Or ";
}
else
{
alttext="Was ";
}
}
//if (wlgenus[currpic-1])
//{
textlatin='' + textgenus + '<\/a>';
//}
//else
//{
// textlatin=textgenus;
//}
if (wlspecies[currpic-1])
{
textlatin=textlatin + ' ' + '' + textspecies + '<\/a>';
}
else
{
textlatin=textlatin + ' ' + textspecies + '<\/a>';
}
if (subspecies[currpic-1] != "")
{
textlatin=textlatin + " subsp. " + gettext(subspecies,currpic);
}
if (svar[currpic-1] != "")
{
tstring=gettext(svar,currpic);
if (tstring.substr(0,5)=="forma")
{
textlatin=textlatin + " " + gettext(svar,currpic);
}
else
{
textlatin=textlatin + " var. " + gettext(svar,currpic);
}
}
if (sform[currpic-1] != "")
{
textlatin=textlatin + " " + gettext(sform,currpic);
}
if (textgenusstace2 != "" || textspeciesstace2 != "")
{
textlatin=textlatin + " See more of these categories:
(";
if (textgenusstace2 != "")
{
textlatin=textlatin + textgenusstace2;
}
else
{
textlatin=textlatin + textgenus;
}
if (textspeciesstace2 != "")
{
textlatin=textlatin + " " + textspeciesstace2;
}
else
{
textlatin=textlatin + " " + textspecies;
}
if (subspeciesstace2[currpic-1] != "")
{
textlatin=textlatin + " subsp. " + gettext(subspeciesstace2,currpic);
}
if (svarstace2[currpic-1] != "")
{
textlatin=textlatin + " var. " + gettext(svarstace2,currpic);
}
textlatin=textlatin + ")<\/font>";
}
if (textaltg != "" || textalts != "")
{
textlatin=textlatin + "
" + alttext;
if (textaltg != "")
{
textlatin=textlatin + textaltg;
}
else
{
textlatin=textlatin + textgenus;
}
if (textalts != "")
{
textlatin=textlatin + " " + textalts;
}
else
{
textlatin=textlatin + " " + textspecies;
}
textlatin=textlatin + "<\/font>";
}
picref=document.getElementById("latin");
picref.innerHTML=textlatin;
picref=document.getElementById("common");
picref.innerHTML=gettext(common,currpic);;
inf=copyright[currpic-1];
if (inf=="f")
{
inf='FloralImages
<\/a>
Protected by a Creative Commons Licence<\/a>.';
}
picref=document.getElementById("copyright");
picref.innerHTML=inf;
s=links[currpic-1];
nn=0;
while (s.length>0)
{
link[nn]=nics(",");
st=nics(",");
x="m";
x=x+nn;
picref=document.getElementById(x);
if (picref != null) {
picref.innerHTML=st;
}
nn+=1;
}
s=vlinks[currpic-1];
nn=0;
while (s.length>0)
{
vlink[nn]=nics(",");
st=nics(",");
x="v";
x=x+nn;
picref=document.getElementById(x);
if (picref != null) {
picref.innerHTML=st;
}
nn+=1;
}
inf=thetitle + ", " + currpic + " of " + picmax;
picref=document.getElementById("tit");
picref.innerHTML=inf;
if (cflag != 0)
{
piccount=-1;
thescript = document.createElement('script'); // Create an element
thescript.src = "/cgi-bin/counters/unipic2.pl?name=picprefix_" + pic[currpic-1] + "&trackip=8&pos=1&code=" + code[currpic-1];
thescript.type = "text/javascript";
//// Now add the script element in the head section which automatically updates the value
document.getElementsByTagName('head')[0].appendChild(thescript);
//// Do as you will with the value;
IntervalID = setInterval("get_count()", 500);
//alert(IntervalID);
//// Now get rid of the element so as not to create multiple iterations
document.getElementsByTagName('head')[0].removeChild(thescript);
}
}
function pgoto(m)
{
currpic=m;
pgo(-1);
}
function plink(m)
{
currpic=link[m];
pgo(-1);
}
function pvlink(m)
{
if (IsNumeric(vlink[m]))
{
currpic=vlink[m];
pgo(-1);
}
else
{
window.location="page.php?taxon=" + vlink[m] + ",1";
}
}
maintitle, 1 of 0
Home
Flower Colour
Common name
Latin name
Desktop background
Recent
Gallery
Flowering now
About FloralImages
Contact
<< First
< Previous
Picture number 1
Next >
Last >>
This picture shows:
View count =
Image ID = 0
©
kingdom
genus species
altgenus altspecies
Family: family
Category:
Enquiry / feedback
Photographer:
About the picture: