//*****************************************************
// Functies voor het weergeven van de FOTO's
//
// Martin Mollet, Nov 2005
//
// Historie 
//----------------------------------------------------
// 27 apr 07 V1.10
//   
// FotoDsp aanroepen met URL-parameter ipv met cookie
// 'WRHWo_FotoNum'. aanroepen kan met:
//   ...html?$14    14 =fotonummer vanaf 0  
//   ...html?Bu34   in fototab vastgelegde namen  
//   
//----------------------------------------------------
// 4 maart 09 V1.20
// 
//  Overslaan bit geimplementeerd.
// 
//----------------------------------------------------
// 
// 
// 
// 
// 
//*****************************************************


//*****************************************************
// TYPE definitie van een foto
//*****************************************************
function TFoto (FotoID, BestandsNaam, Overslaan, Tekst1, Tekst2, Tekst3)
{
   this.FotoID=       FotoID;        // string om makkelijk te kunnen adresseren
   this.BestandsNaam= BestandsNaam;
   this.Overslaan=    Overslaan;     // TRUE = foto overslaan bij het doorbladeren: foto is alleen weer te geven door direct te adreseren
   this.Tekst1=       Tekst1;
   this.Tekst2=       Tekst2;
   this.Tekst3=       Tekst3;
}


//*****************************************************
// Alle Foto's 
//*****************************************************
var FotoTab = new Array
(

   new TFoto( 'Bu1'  ,'foto/_03-05-27-01',   0,'Jonge buizerd', 'Dit jong lijkt het allemaal wel interessant te vinden.','27 mei 2003') ,
   new TFoto( 'Bu2'  ,'foto/04-10-30-01',    0,'Volwassen donkere buizerd', 'Volwassen: brede eindband op de staart, donker oog.', 'Hoekseweg, 30 oktober 2004') ,
   new TFoto( 'Bu3'  ,'foto/03-05-27',       0,'Jonge buizerd met z.g.n. hongermaliën in de staart', 'Hongermaliën worden veroorzaakt door voedselgebrek', 'Oude Land van Strijen, 11 juni 2004') ,
   new TFoto( 'Bu4'  ,'foto/07-06-22-15',    0,'Volwassen buizerd','Volwassen: donkere ogen en brede donkere eindband op de staart','nabij Booonsweg, Heinenoord,  22 juli 2007') ,
   new TFoto( 'Bu5'  ,'foto/07-12-15-09',    0,'Lichte buizerd','De dekveren van de vleugel en de rug vertonen ook veel wit','Oost Middelweg, Numansdorp, 15 december 2007') ,
   new TFoto( 'Bu6'  ,'foto/08-02-03-01',    0,'Jonge buizerd','Opmerkelijk hoe zo\'n vogel op zo\'n klein takje kan zitten.','Lugtenburgsedijk, Strijen , 3 februari 2008') ,
   new TFoto( 'Bu7'  ,'foto/08-02-16-15',    0,'Jonge buizerd aast op een haas','De haas is een verkeersslachtoffer, een volwassen haas is eigenlijk te groot voor een buizerd','Varkensdijk, Strijen, 16 februari 2008') ,
   new TFoto( 'Bu8'  ,'foto/08-03-08-22',    0,'Buizerd vertrekt van straatnaambordje','','Moricaanseweg (denk ik), Strijen, 8 maart 2008') ,
   new TFoto( 'Bu9'  ,'foto/08-07-02-12',    0,'Jonge buizerd doet vliegoefeningen op het nest','En doet letterlijk \'stof opwaaien\'','Nabij suikerfabriek, 2 juli 2008') ,
   new TFoto( 'Bu10' ,'foto/08-07-18-16',    0,'Zojuist losgelaten jonge buizerd','Deze vogel was gerevalideerd in de vogelopvang \'Karel Schot\'','Nabij suikerfabriek, 18 juli 2008') ,
   new TFoto( 'Bu11' ,'foto/08-09-04-09',    0,'Biddende (stilhangen in de lucht) buizerd','Buizerds bidden, in tegenstelling tot torenvalken, maar zeldzaam','Langeweg, Binenmaas, 4 september 2008') ,
   new TFoto( 'Bu12' ,'foto/08-09-19-05',    0,'Buizerd','','Langeweg, Binenmaas, 19 september 2008') ,
   new TFoto( 'Bu13' ,'foto/08-10-17-04',    0,'Jonge Buizerd','Het is altijd gokken waar zo\'n vogel gaat landen, en soms heb je geluk...','N217 ter hooogte van Heinenoord, 17 oktober 2008') ,
   new TFoto( 'Bu14' ,'foto/08-10-30-01',    0,'Jonge Buizerd','te herkennen aan: lichte ogen en druppelvormige vlekken op de borst','Langeweg, Binenmaas, 30 oktober 2008') ,
   new TFoto( 'Bu15' ,'foto/08-11-08-33',    0,'Jonge Buizerd eet van haas','Volwassen hazen zijn eigenlijk te groot, net zoals hier gaat het meestal om een verkeersslachtoffer.','Langeweg, Binenmaas, 8 november 2008') ,
   new TFoto( 'Bu16' ,'foto/08-11-22-06',    0,'Jonge Buizerd','De Lange weg en omgeving herbergde deze winter bijzonder veel jeugdige buizerds.','Langeweg, Binenmaas, 22 november 2008') ,
   new TFoto( 'Bu17' ,'foto/08-12-28-20',    0,'Buizerd pakt watersnip','Buizerds zijn niet de trage, slechte jagers waarvoor ze vaak worden versleten.','Slikken van Flakkee, 28 december 2008') ,
   new TFoto( 'Bu18' ,'foto/09-02-08-14',    0,'Buizerd','Vanaf een lage tak de omgeving afzoekend naar prooi.','Polderweg, Binnenmaas, 8 februari 2009') ,
   new TFoto( 'Bu19' ,'foto/09-07-13-09',    0,'Twee recent uitgevlogen buizerds, 58 en 60 dagen oud', '13 juli 2009', 'Platte Reedijk') ,
   new TFoto( 'Bu20' ,'foto/09-12-12-06',    0,'Buizerd', 'Lantaarnpaal langs de A29, 12 december 2009' , 'Helaas is deze buizerd een paar dagen later doodgereden, waarschijnlijk omdat hij at van een doodgereden fazant'),

   new TFoto( 'Ha1'   ,'foto/_04-06-25',     0,'Jonge havik', '25 juni 2004',' '),
   new TFoto( 'Ha2'   ,'foto/_04-06-09',     0,'Klauw van een jonge havik', 'Iets om rekening mee te houden bij het ringen dus !','4 juni 2004') ,
   new TFoto( 'Ha3'   ,'foto/09-06-27-06',   0,'Volwassen havik', '','27 juni 2009'),
   new TFoto( 'Ha4'   ,'foto/09-07-03-06',   0,'Jonge havik', 'Klaar om uit te vliegen','3 juli 2009'),
   new TFoto( 'Ha5'   ,'foto/09-07-03-16',   0,'Jonge havik', 'Zelfde jong, ondertussen inderdaad in een boom ernaast !','3 juli 2009'),
   new TFoto( 'Ha6'   ,'foto/09-07-10-01',   0,'Jonge havik', 'Zelfde nest, de jongen (2) zijn nog steeds in de buurt','10 juli 2009'),
   new TFoto( 'Ha7'   ,'foto/09-07-11-25',   0,'Volwassen havik (mannetje)', '','11 juli 2009') ,
   new TFoto( 'Ha8'   ,'foto/09-07-11-29',   0,'Jonge havik', 'met een houtduif als prooi','11 juli 2009') ,

   new TFoto( 'Sp1'   ,'foto/_03-12-13-08',  0,'Volwassen man sperwer', 'Mijn achtertuin !!! Puttershoek','13 december 2003') ,
   new TFoto( 'Sp2'   ,'foto/_03-04-25-02',  0,'Sperwer Prooi, mijn 1e gedachte: Oeps, dat was een ijsvogel !', 'Het bleek een ontsnapte kooivogel te zijn (prooi van sperwer)','\'s Gravendeel, 25 april 2003') ,
   new TFoto( 'Sp3'   ,'foto/_04-06-27-01',  0,'Jonge sperwer op nest', 'Numansdorp','27 juni 2004') ,
   new TFoto( 'Sp4'   ,'foto/_05-03-25-15',  0,'Sperwer aan rand van het nestbosje', '\'s Gravendeel','25 maart 2005') ,
   new TFoto( 'Sp5'   ,'foto/_05-05-06-03',  0,'Vliegbeeld sperwer','6 mei 2005','') ,
   new TFoto( 'Sp6'   ,'foto/08-02-01-21',   0,'Volwassen vrouwtje sperwer','met kiviet als prooi','1 februari 2008') ,
   new TFoto( 'Sp7'   ,'foto/08-05-24-05',   0,'Volwassen sperwer vrouw op nest','','24 mei 2008') ,
   new TFoto( 'Sp8'   ,'foto/09-06-24-14',   0,'Jong sperwer vrouwtje op tortel','','24 juni 2009') ,
   new TFoto( 'Sp9'   ,'foto/09-06-24-19',   0,'Jong sperwer vrouwtje op tortel','','24 juni 2009') ,
   new TFoto( 'Sp10'  ,'foto/09-06-24-32',   0,'Jong sperwer vrouwtje','jong van vorig jaar (2e kalender jaar)','24 juni 2009') ,
   new TFoto( 'Sp11'  ,'foto/09-07-03-22',   0,'Jong sperwer vrouwtje','tijdens loslaten, nadat ze is hersteld in de vogelopvang','3 juli 2009') ,
   new TFoto( 'Sp12'  ,'foto/09-07-03-26',   0,'2 jonge sperwers op nest','Eerste keer dat wij een sperwernest in een den vinden','3 juli 2009') ,

   new TFoto( 'Tv1'   ,'foto/_04-07-31-08',  0,'Mannetje(L) en vrouwtje torenvalk', '31 juli 2004','Lange Dam, Strijen') ,
   new TFoto( 'Tv2'   ,'foto/_04-12-18-04',  0,'Vrouwtje torenvalk', '18 december 2004','Nabij suikerfabriek, Puttershoek') ,
   new TFoto( 'Tv3'   ,'foto/_04-12-18-09',  0,'Mannetje torenvalk', '18 december 2004','Nabij suikerfabriek, Puttershoek') ,
   new TFoto( 'Tv4'   ,'foto/_04-12-29-32',  0,'Mannetje torenvalk', '29 december 2004','Schenkeldijk, Strijen') ,
   new TFoto( 'Tv5'   ,'foto/_05-05-11-12',  0,'Torenvalk','Waarschijnlijk een jong mannetje: 1 grijze staartpen','Polder Nieuw Bonaventura, 11 mei 2005') ,
   new TFoto( 'Tv6'   ,'foto/_06-01-14-04',  0,'Torenvalk','Wielweg, Strijen','14 januari 2006') ,
   new TFoto( 'Tv7'   ,'foto/_06-01-13-13',  0,'Mannetje torenvalk','Hoekse Weg, Strijen','13 januari 2006') ,
   new TFoto( 'Tv8'   ,'foto/06-03-04-16',   0,'Mannetje torenvalk','3e Kruisweg/Boendersweg, Maasdam','4 maart 2006') ,
   new TFoto( 'Tv9'   ,'foto/06-10-27-09',   0,'Torenvalk met veldmuis','Kuipersveer , Puttershoek','27 oktober 2006') ,
   new TFoto( 'Tv10'  ,'foto/06-11-03-09',   0,'Torenvalk (jong: licht randen aan rug- en vleugelveren)','Oude Land van  Strijen','3 november 2006') ,

   new TFoto( 'Bv1'   ,'foto/_04-08-10-34',  0,'Jonge Boomvalk (tijdens het ringen)', '10 augustus 2004','Middelharnis') ,
   new TFoto( 'Bv2'   ,'foto/_04-08-10-26',  0,'Jonge Boomvalken (tijdens het ringen)', '10 augustus 2004','Middelharnis') ,
   new TFoto( 'Bv3'   ,'foto/_bv',           0,'Boomvalk','30 juli 2005','Nabij Mookhoek') ,
   new TFoto( 'Bv4'   ,'foto/_bvvb',         0,'Boomvalk','30 juli 2005','Nabij Mookhoek') ,
   new TFoto( 'Bv5'   ,'foto/_bvvb2',        0,'Boomvalk','30 juli 2005','Nabij Mookhoek') ,
   new TFoto( 'Bv6'   ,'foto/09-04-18-04',   0,'Volwassen boomvalk', 'Bayersche Wald, Duitsland', '18 april 2009') ,
   new TFoto( 'Bv7'   ,'foto/09-08-09-06',   0,'Jonge boomvalk', 'nabij Maasweg', '9 augustus 2009') ,
   new TFoto( 'Bv8'   ,'foto/09-08-15-32',   0,'Jonge boomvalk', 'met de donsresten nog op zijn kop, nabij A29', '15 augustus 2009') ,

   new TFoto( 'Sv1'   ,'foto/_04-01-10-06',  0,'Slechtvalk', '10 januari 2004 (tijdens de roofvogeltelling)','Oude Land van Strijen') ,
   new TFoto( 'Sv2'   ,'foto/_06-06-13-10',  0,'Slechtvalk (vrouwtje)', '13 juni 2006','E-On Centrale Maasvlakte') , 
   new TFoto( 'Sv3'   ,'foto/_05-03-19-18',  0,'Slechtvalk', '19 maart 2005','Polder Nieuw Bonaventura') ,
   new TFoto( 'Sv4'   ,'foto/_SvQ6',         0,'Jong mannetje slechtvalk (Q6, zie kleurring)', 'Op 17 mei 2005 geringd op industieterrein Moerdijk','9 juli 2005, Oude Land van Strijen') ,
   new TFoto( 'Sv5'   ,'foto/_06-01-15-05',  0,'Volwassen slechtvalk', 'Maasdam en de suikerfabriek op de achtergrond', 'Langedam, 15 januari 2006') ,
   new TFoto( 'Sv6'   ,'foto/09-06-17-06',  0,'Volwassen Slechtvalk vrouw (oranje kleurring K9)', '17 juni 2009', 'E-On Centrale Maasvlakte') ,
   new TFoto( 'Sv7'   ,'foto/09-11-21-26',  0,'Volwassen Slechtvalk', '21 november 2009', 'Slikken van Flakkee') ,

   new TFoto( 'Bk1'   ,'foto/_04-07-10-03',  0,'Mannetje bruine kiekendief', '10 juli 2004','Boendersweg, nabij Maasdam') ,
   new TFoto( 'Bk2'   ,'foto/_05-04-02-10',  0,'Mannetje bruine kiekendief','2 april 2005','') ,

   new TFoto( 'Div1'  ,'foto/_03-05-10-01',  0,'ECO-Terrorisme van huttenbouwende kinderen', 'Deze bomen gaan zeker dood!','10 mei 2004, nabij \'s-Gravendeel'),  
   new TFoto( 'Div2'  ,'foto/_05-07-29-05',  0,'Zonnende blauwe reiger','29 juli 2005','Nabij \'s Gravendeel'),
   new TFoto( 'Div3'  ,'foto/_06-01-21-ks',  0,'Zeearend en Slechtvalk','Tijdens vaarexcursie van StaatsBosBeheer','21 jan 2006, Korendijkse Slikken'), 
   new TFoto( 'Div4'  ,'foto/06-12-09-c',    0,'Torenvalk pakt spreeuw...','maar laat hem ontsnappen waarna een buizerd alsnog de spreeuw pakt','9 december 2006, Buitendijk bij APL polder') 
);
//   new TFoto( ''   ,'foto/',  'T1','T2','T3') ,

                                         
var URL_FotoId = "";
var iFotoNum = -1;
var fToonFoto = false;

       
//*****************************************************
// interpreteer de vars in de URL
//*****************************************************
function GetUrlVariabelen()
{  
   var iVraagtekenPos = document.URL.indexOf('?');
   var iImmPos;
   var ParamStr;
   var iAantalFotos= FotoTab.length;
   var i;
   var fGevonden= false;

   if (iVraagtekenPos != -1)
   {
      ParamStr = document.URL.substring(iVraagtekenPos+1, document.URL.length);
      iImmPos= ParamStr.indexOf('$');
      fToonFoto = false;
      //alert("URL-Parameter=" + ParamStr); 

      if (iImmPos != -1)
      {  // # gegeven direct fotonummer
         iFotoNum = parseFloat(ParamStr.substr(iImmPos+1));

         if ( (iFotoNum >=0) && (iFotoNum < iAantalFotos) )
         {  // OK geldig nummer
            fToonFoto = true;
            //alert("URL-INPUT $= " + iFotoNum); 
         }
         else
         {
            alert("URL-INPUT $Fotonummer (" + iFotoNum + ") is ongeldig !"); 
            fToonFoto = true;
            iFotoNum = 0;
         }
      }
      else
      {  // Kijk of het een correct foto-id is en zoek dan het juiste nummer op
         URL_FotoId = ParamStr ;
   
         for (i=0; (i<iAantalFotos) && (!fGevonden) ;)
         {
            if (FotoTab[i].FotoID.toLowerCase()== URL_FotoId.toLowerCase())
               fGevonden= true;
            else 
               i++;
         }
      
         if (fGevonden)
         {
            iFotoNum= i; // 0..... OK
            fToonFoto = true;
            //alert("URL-NUM=" + iFotoNum); 
         }
         else
         {
            alert("Foto-ID (" + URL_FotoId + ") is niet bekend !"); 
         }
      } 
   }
   else
   {  // geen URL-param: begin bij foto 0
      iFotoNum = 0;
      fToonFoto = true;
   }
}

                             

//*****************************************************
// Selecteer Vorige Foto 
//*****************************************************
function VorigeFoto (iHuidigeFotoNum)
{
  var iVorige;

   if (iHuidigeFotoNum > 0)
   {
      iVorige= (iHuidigeFotoNum - 1);  
      while ( (iVorige > 0) && (FotoTab[iVorige].Overslaan==1))
      {
         iVorige= (iVorige - 1); 
      }
   }
   return iVorige;
}


//*****************************************************
// Selecteer Volgende Foto 
//*****************************************************
function VolgendeFoto (iHuidigeFotoNum)
{
   var iAantalFotos= FotoTab.length;
   var iVolgende;

   if ( (iHuidigeFotoNum+1) < iAantalFotos)
   {
      iVolgende= (iHuidigeFotoNum + 1);
      while ( ((iVolgende+1) < iAantalFotos) && (FotoTab[iVolgende].Overslaan==1))
      {
         iVolgende= (iVolgende + 1); 
      }
   }
   return iVolgende;
}



//*****************************************************
// Toon Foto 
//*****************************************************
function ToonFoto ()
{
   if (fToonFoto)
   {
      iFotoNum= parseInt(iFotoNum);
      document.FotoDisplay.src= FotoTab[iFotoNum].BestandsNaam + ".jpg";
      document.write('<B>'+ FotoTab[iFotoNum].Tekst1 + '</B><BR>');
      document.write(FotoTab[iFotoNum].Tekst2 + '<BR>');
      document.write(FotoTab[iFotoNum].Tekst3 + '<BR>');
      //document.write("<FONT SIZE=2><B> Foto " + (iFotoNum + 1) + " van " + iAantalFotos + "</B></FONT>");
      document.FotoDisplay.alt= FotoTab[iFotoNum].Tekst1;
      document.FotoDisplay.title= FotoTab[iFotoNum].Tekst1;
      window.status='';
   }
   else
   {
      document.write('Deze pagina moet worden benaderd via de <A HREF=foto.html><B>Fotopagina</B></A>,');
      document.write('met een geldig Foto-ID of een geldig $fotonummer!');
   }
}


//*****************************************************
// Toon FotoNummer 
//*****************************************************
function ToonFotoNummer()
{
   var iAantalFotos= FotoTab.length;
   var iToonbareFotoTeller = 0;
   var i;

   if (FotoTab[iFotoNum].Overslaan==0)
   {
      for (i=0; i<iFotoNum ;i++)
      {
         if (FotoTab[i].Overslaan==0) iToonbareFotoTeller++;
      }
      document.write("<FONT SIZE=4><B> Foto " + (iToonbareFotoTeller+1) + " van " + iAantalFotos + "</B></FONT>");
   }
   else
      document.write("&nbsp;");
}



//*****************************************************
// Display KNOP voor Vorige Foto 
//*****************************************************
function KnopVorigeFoto ()
{
   var iAantalFotos= FotoTab.length;
   var iVorigFotoNum = VorigeFoto(iFotoNum);

   if ((iFotoNum > 0) && (FotoTab[iFotoNum].Overslaan==0) )
      document.write("<A HREF=fotodsp.html?$" + (iVorigFotoNum) + "><IMG BORDER=0 id='img90' SRC='image/butPijl-LinksR.jpg' height=25 width=47 alt='naar vorige foto' title='naar vorige foto' onmouseover=SwapImage(1,0,'img90','image/butPijl-LinksRH.jpg'); onmouseout=SwapImage(0,0,'img90','image/butPijl-LinksR.jpg');></A> ");
   else
      document.write("&nbsp;");
}


//*****************************************************
// Display KNOP voor Volgende Foto 
//*****************************************************
function KnopVolgendeFoto ()
{
   var iAantalFotos= FotoTab.length;
   var iVolgendeFotoNum = VolgendeFoto(iFotoNum); 

   if ( ((iFotoNum+1) < iAantalFotos) && (FotoTab[iFotoNum].Overslaan==0) )
      document.write("<A HREF=fotodsp.html?$" + (iVolgendeFotoNum) + "><IMG BORDER=0 id='img91' SRC='image/butPijl-RechtsR.jpg' height=25 width=47 alt='naar volgende foto' title='naar volgende foto' onmouseover=SwapImage(1,0,'img91','image/butPijl-RechtsRH.jpg'); onmouseout=SwapImage(0,0,'img91','image/butPijl-RechtsR.jpg');></A> ");
   else
      document.write("&nbsp;");
}


//*****************************************************
// Zet een FotoThumb met ID 
//*****************************************************
function ZetFotoThumbID (FotoID)
{
   var iAantalFotos= FotoTab.length;
   var i;
   var fGevonden= false;

   for (i=0; (i<iAantalFotos) && (!fGevonden) ;)
   {
      if (FotoTab[i].FotoID== FotoID)
         fGevonden= true;
      else 
         i++;
   }

   if (fGevonden)
   {
      var iThumbFotoNum= i;
      document.write( "<A HREF='fotodsp.html?$" + iThumbFotoNum + "'><IMG BORDER='0' SRC='" + FotoTab[iThumbFotoNum].BestandsNaam + "k.jpg'  height='140'  width='140' alt='" +FotoTab[iThumbFotoNum].Tekst1 + "'  title='" +FotoTab[iThumbFotoNum].Tekst1 + "' onMouseOver='window.status=\"" + FotoTab[iThumbFotoNum].Tekst1 + "\";return true;'  onMouseOut='window.status=\"\";return true;' > <A>" );
   }
   else
   {
      document.write("ZetFotoThumbID(ongeldig Foto-ID)");
   }
}