// Neuerwerbungslisten
         // 02.2010 Sven Koesling
         // Kantonsbibliothek Graubuenden
         //
         // Man ruft in der Seite den Titel mit der Funktion titel 
         // und der Anzahl der Monate in der Vergangenheit auf.
         // Es funktioniert bis zu 12 Monate zurueck.
         // Die Links darunter werden automatisch gesetzt,
         // wenn man die Funktion alephlink mit dem entsprechenden Fachcode und dem zaehler (genua wie im titel!) aufruft:
         //    <a href="javascript:alephlink('bvbbe',2)">Hier der Link</a>  (am Beispiel eines Codes aus der BVB)
         // Der erneute zaehler muss sein, damit das Script bei mehrfachem Aufruf (z.B. fuer zwei Monate)
         // nicht durcheinander kommt.
         //
         function titel (zaehler){
                   heute = new Date();
                   if (heute.getMonth() - zaehler < 0){
                            Jahr = heute.getFullYear() -1;
                            mzahl = 12 + heute.getMonth() - zaehler;
                   }
                   else {
                            Jahr = heute.getFullYear();
                            mzahl = heute.getMonth() - zaehler;
                   }
                   var Monate = new Array("Januar","Februar","M&auml;rz","April","Mai","Juni",
                            "Juli","August","September","Oktober","November","Dezember");
                   document.write(Monate[mzahl] + " " + Jahr);
         }
         function alephlink(ccl,counter){
                   bib = "PFH";
                   bib = ((bib.length > 3)? "KBG" : bib );
                   today = new Date();
                   if (today.getMonth() - counter < 0){
                            year = today.getFullYear() -1;
                            mnumber = 13 + today.getMonth() - counter;
                   }
                   else {
                            year = today.getFullYear();
                            mnumber = 1 + today.getMonth() - counter;
                   }
                   ajahr = (year - 2000);
                   ajahr = ((ajahr < 10)? "0" + ajahr : ajahr);
                   amonat = mnumber;
                   amonat = ((amonat < 10)? "0" + amonat : amonat);
                   window.open("http://aleph.gr.ch/F?func=find-c&ccl_term=wne=wnel" + bib + ajahr + amonat + "%20and%20wfc%3D" + ccl);
         }