// Decide if the names are links or just the icons
USETEXTLINKS = 1  //replace 0 with 1 for hyperlinks

ICONPATH = 'icons/' //change if the gif's folder is a subfolder, for example: 'images/'


foldersTree = gFld("CIC/1983", "javascript:parent.op()")

  insDoc(foldersTree, gLnk("R", "Divinus perfectionis magister (deutsch)", "buch0a.htm"))
  insDoc(foldersTree, gLnk("R", "Sacrae disciplinae leges (deutsch)", "buch0b.htm"))

  ebene1 = insFld(foldersTree, gFld("Buch 1: Allgemeine Normen", "buch1.htm"))
    insDoc(ebene1, gLnk("R", "Titel 1: Kirchliche Gesetze", "buch1.htm#01"))
    insDoc(ebene1, gLnk("R", "Titel 2: Gewohnheit", "buch1.htm#02"))
    insDoc(ebene1, gLnk("R", "Titel 3: Allgemeine Dekrete und Instruktionen", "buch1.htm#03"))
    ebene2 = insFld(ebene1, gFld("Titel 4: Verwaltungsakte für Einzelfälle", "buch1.htm#04"))
      insDoc(ebene2, gLnk("R", "Kapitel 1: Gemeinsame Normen", "buch1.htm#0401"))
      insDoc(ebene2, gLnk("R", "Kapitel 2: Dekrete und Verwaltungsbefehle für Einzelfälle", "buch1.htm#0402"))
      insDoc(ebene2, gLnk("R", "Kapitel 3: Reskripte", "buch1.htm#0403"))
      insDoc(ebene2, gLnk("R", "Kapitel 4: Privilegien", "buch1.htm#0404"))
      insDoc(ebene2, gLnk("R", "Kapitel 5: Dispensen", "buch1.htm#0405"))   
    insDoc(ebene1, gLnk("R", "Titel 5: Statuten und Ordnungen", "buch1.htm#05"))
    ebene2 = insFld(ebene1, gFld("Titel 6: Physische und Juristische Personen", "buch1.htm#06"))
      insDoc(ebene2, gLnk("R", "Kapitel 1: Die Rechtsstellung physischer Personen", "buch1.htm#0601"))
      insDoc(ebene2, gLnk("R", "Kapitel 2: Juristische Personen", "buch1.htm#0602"))
    insDoc(ebene1, gLnk("R", "Titel 7: Rechtshandlungen", "buch1.htm#07"))
    insDoc(ebene1, gLnk("R", "Titel 8: Leitungsgewalt", "buch1.htm#08"))
    ebene2 = insFld(ebene1, gFld("Titel 9: Kirchenämter", "buch1.htm#09"))
      ebene3 = insFld(ebene2, gFld("Kapitel 1: Übertragung eines Kirchenamtes", "buch1.htm#0901"))
        insDoc(ebene3, gLnk("R", "Artikel 1: Freie Amtsübertragung", "buch1.htm#090101"))
        insDoc(ebene3, gLnk("R", "Artikel 2: Präsentation", "buch1.htm#090102"))
        insDoc(ebene3, gLnk("R", "Artikel 3: Wahl", "buch1.htm#090103"))
        insDoc(ebene3, gLnk("R", "Artikel 4: Wahlbitte", "buch1.htm#090104"))
      ebene3 = insFld(ebene2, gFld("Kapitel 2: Verlust eines Kirchenamtes", "buch1.htm#0902"))
        insDoc(ebene3, gLnk("R", "Artikel 1: Amtsverzicht", "buch1.htm#090201"))
        insDoc(ebene3, gLnk("R", "Artikel 2: Versetzung", "buch1.htm#090202"))
        insDoc(ebene3, gLnk("R", "Artikel 3: Amtsenthebung", "buch1.htm#090203"))
        insDoc(ebene3, gLnk("R", "Artikel 4: Absetzung", "buch1.htm#090204"))
    insDoc(ebene1, gLnk("R", "Titel 10: Ersitzung und Verjährung", "buch1.htm#10"))
    insDoc(ebene1, gLnk("R", "Titel 11: Zeitberechnung", "buch1.htm#11"))

  ebene1 = insFld(foldersTree, gFld("Buch 2: Volk Gottes", "buch2.htm"))
    ebene2 = insFld(ebene1, gFld("Teil 1: Die Gläubigen", "buch2.htm#01"))
      insDoc(ebene2, gLnk("R", "Titel 1: Pflichten und Rechte aller Gläubigen", "buch2.htm#0101"))
      insDoc(ebene2, gLnk("R", "Titel 2: Pflichten und Rechte der Laien", "buch2.htm#0102"))
      ebene3 = insFld(ebene2, gFld("Titel 3: Geistliche Amtsträger oder Kleriker", "buch2.htm#0103"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Ausbildung der Kleriker", "buch2.htm#010301"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Zugehörigkeit der Kleriker oder Inkardination", "buch2.htm#010302"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Pflichten und Rechte der Kleriker", "buch2.htm#010303"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Verlust des klerikalen Standes", "buch2.htm#010304"))
      insDoc(ebene2, gLnk("R", "Titel 4: Personalprälaturen", "buch2.htm#0104"))
      ebene3 = insFld(ebene2, gFld("Titel 5: Vereine von Gläubigen", "buch2.htm#0105"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Allgemeine Bestimmungen", "buch2.htm#010501"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Öffentliche Vereine von Gläubigen", "buch2.htm#010502"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Private Vereine von Gläubigen", "buch2.htm#010503"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Besondere Bestimmungen über Laienvereine", "buch2.htm#010504"))
    ebene2 = insFld(ebene1, gFld("Teil 2: Hierarchische Verfassung der Kirche", "buch2.htm#02"))
      ebene3 = insFld(ebene2, gFld("Sektion 1: Die höchste Autorität der Kirche", "buch2.htm#0201"))
        ebene4 = insFld(ebene3, gFld("Kapitel 1: Papst und Bischofskollegium", "buch2.htm#020101"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Der Papst", "buch2.htm#02010101"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Bischofskollegium", "buch2.htm#02010102"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Bischofssynode", "buch2.htm#020102"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Kardinäle der heiligen römischen Kirche", "buch2.htm#020103"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Römische Kurie", "buch2.htm#020104"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Gesandte des Papstes", "buch2.htm#020105"))
      ebene3 = insFld(ebene2, gFld("Sektion 2: Teilkirchen und deren Verbände", "buch2.htm#0202"))
        ebene4 = insFld(ebene3, gFld("Titel 1: Teilkirchen und die in ihnen eingesetzte Autorität", "buch2.htm#020201"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Teilkirchen", "buch2.htm#02020101"))
          ebene5 = insFld(ebene4, gFld("Kapitel 2: Bischöfe", "buch2.htm#02020102"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Bischöfe im allgemeinen", "buch2.htm#0202010201"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Diözesanbischöfe", "buch2.htm#0202010202"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Bischofskoadjutoren und Auxiliarbischöfe", "buch2.htm#0202010203"))
          ebene5 = insFld(ebene4, gFld("Kapitel 3: Behinderung und Vakanz des bischöflichen Stuhls", "buch2.htm#02020103"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Behinderung des bischöflichen Stuhls", "buch2.htm#0202010301"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Vakanz des bischöflichen Stuhls", "buch2.htm#0202010302"))
        ebene4 = insFld(ebene3, gFld("Titel 2: Teilkirchenverbände", "buch2.htm#020202"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Kirchenprovinzen und Kirchenregionen", "buch2.htm#02020201"))
          insDoc(ebene4, gLnk("R", "Kapitel 2: Metropoliten", "buch2.htm#02020202"))
          insDoc(ebene4, gLnk("R", "Kapitel 3: Partikularkonzilien", "buch2.htm#02020203"))
          insDoc(ebene4, gLnk("R", "Kapitel 4: Bischofskonferenzen", "buch2.htm#02020204"))
        ebene4 = insFld(ebene3, gFld("Titel 3: Innere Ordnung der Teilkirchen", "buch2.htm#020203"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Diözesansynode", "buch2.htm#02020301"))
          ebene5 = insFld(ebene4, gFld("Kapitel 2: Diözesankurie", "buch2.htm#02020302"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Generalvikare und Bischofsvikare", "buch2.htm#0202030201"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Kanzler und andere Notare sowie Archive", "buch2.htm#0202030202"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Vermögensverwaltungsrat und Ökonom", "buch2.htm#0202030203"))
          insDoc(ebene4, gLnk("R", "Kapitel 3: Priesterrat und Konsultorenkollegium", "buch2.htm#02020303"))
          insDoc(ebene4, gLnk("R", "Kapitel 4: Kanonikerkapitel", "buch2.htm#02020304"))
          insDoc(ebene4, gLnk("R", "Kapitel 5: Pastoralrat", "buch2.htm#02020305"))
          insDoc(ebene4, gLnk("R", "Kapitel 6: Pfarreien, Pfarrer und Pfarrvikare", "buch2.htm#02020306"))
          insDoc(ebene4, gLnk("R", "Kapitel 7: Dechanten", "buch2.htm#02020307"))
          ebene5 = insFld(ebene4, gFld("Kapitel 8: Kirchenrektoren und Kapläne", "buch2.htm#02020308"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Kirchenrektoren", "buch2.htm#0202030801"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Kapläne", "buch2.htm#0202030802"))
    ebene2 = insFld(ebene1, gFld("Teil 3: Institute des geweihten Lebens und Gesellschaften des apostolischen Lebens", "buch2.htm#03"))
      ebene3 = insFld(ebene2, gFld("Sektion 1: Institute des geweihten Lebens", "buch2.htm#0301"))
        insDoc(ebene3, gLnk("R", "Titel 1: Gemeinsame Normen für alle Institute des geweihten Lebens", "buch2.htm#030101"))
        ebene4 = insFld(ebene3, gFld("Titel 2: Ordensinstitute", "buch2.htm#030102"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Ordensniederlassungen, ihre Errichtung und Aufhebung", "buch2.htm#03010201"))
          ebene5 = insFld(ebene4, gFld("Kapitel 2: Leitung der Institute", "buch2.htm#03010202"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Obere und Räte", "buch2.htm#0301020201"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Kapitel", "buch2.htm#0301020202"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Vermögen und Vermögensverwaltung", "buch2.htm#0301020203"))
          ebene5 = insFld(ebene4, gFld("Kapitel 3: Zulassung der Kandidaten und Ausbildung der Mitglieder", "buch2.htm#03010203"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Zulassung zum Noviziat", "buch2.htm#0301020301"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Noviziat und Ausbildung der Novizen", "buch2.htm#0301020302"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Ordensprofeß", "buch2.htm#0301020303"))
            insDoc(ebene5, gLnk("R", "Artikel 4: Ausbildung der Ordensleute", "buch2.htm#0301020304"))
          insDoc(ebene4, gLnk("R", "Kapitel 4: Pflichten und Rechte der Institute und ihrer Mitglieder", "buch2.htm#03010204"))
          insDoc(ebene4, gLnk("R", "Kapitel 5: Apostolat der Institute", "buch2.htm#03010205"))
          ebene5 = insFld(ebene4, gFld("Kapitel 6: Trennung der Mitglieder vom Institut", "buch2.htm#03010206"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Übertritt in ein anderes Institut", "buch2.htm#0301020601"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Austritt aus einem Institut", "buch2.htm#0301020602"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Entlassung von Mitgliedern", "buch2.htm#0301020603"))
          insDoc(ebene4, gLnk("R", "Kapitel 7: In das Bischofsamt berufene Ordensangehörige", "buch2.htm#03010207"))
          insDoc(ebene4, gLnk("R", "Kapitel 8: Konferenzen der höheren Oberen", "buch2.htm#03010208"))
        insDoc(ebene3, gLnk("R", "Titel 3: Säkularinstitute", "buch2.htm#030103"))
      insDoc(ebene2, gLnk("R", "Sektion 2: Gesellschaften des apostolischen Lebens", "buch2.htm#0302"))

  ebene1 = insFld(foldersTree, gFld("Buch 3: Verkündigungsdienst der Kirche", "buch3.htm"))
    ebene2 = insFld(ebene1, gFld("Titel 1: Dienst am Wort Gottes", "buch3.htm#01"))
      insDoc(ebene2, gLnk("R", "Kapitel 1: Predigt des Wortes Gottes", "buch3.htm#0101"))
      insDoc(ebene2, gLnk("R", "Kapitel 2: Katechetische Unterweisung", "buch3.htm#0102"))
    insDoc(ebene1, gLnk("R", "Titel 2: Missionstätigkeit der Kirche", "buch3.htm#02"))
    ebene2 = insFld(ebene1, gFld("Titel 3: Katholische Erziehung", "buch3.htm#03"))
      insDoc(ebene2, gLnk("R", "Kapitel 1: Schulen", "buch3.htm#0301"))
      insDoc(ebene2, gLnk("R", "Kapitel 2: Katholische Universitäten und andere Hochschuleinrichtungen", "buch3.htm#0302"))
      insDoc(ebene2, gLnk("R", "Kapitel 3: Kirchliche Universitäten und Fakultäten", "buch3.htm#0303"))
    insDoc(ebene1, gLnk("R", "Titel 4: Soziale Kommunikationsmittel, insbesondere Bücher", "buch3.htm#04"))
    insDoc(ebene1, gLnk("R", "Titel 5: Ablegung des Glaubensbekenntnisses", "buch3.htm#05"))

  ebene1 = insFld(foldersTree, gFld("Buch 4: Heiligungsdienst der Kirche", "buch4.htm"))
    ebene2 = insFld(ebene1, gFld("Teil 1: Sakramente", "buch4.htm#01"))
      ebene3 = insFld(ebene2, gFld("Titel 1: Taufe", "buch4.htm#0101"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Feier der Taufe", "buch4.htm#010101"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Spender der Taufe", "buch4.htm#010102"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Empfänger der Taufe", "buch4.htm#010103"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Paten", "buch4.htm#010104"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Nachweis und Eintragung der Taufspendung", "buch4.htm#010105"))
      ebene3 = insFld(ebene2, gFld("Titel 2: Sakrament der Firmung", "buch4.htm#0102"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Feier der Firmung", "buch4.htm#010201"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Spender der Firmung", "buch4.htm#010202"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Empfänger der Firmung", "buch4.htm#010203"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Paten", "buch4.htm#010204"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Nachweis und Eintragung der Firmspendung", "buch4.htm#010205"))
      ebene3 = insFld(ebene2, gFld("Titel 3: Heiligste Eucharistie", "buch4.htm#0103"))
        ebene4 = insFld(ebene3, gFld("Kapitel 1: Feier der Eucharistie", "buch4.htm#010301"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Zelebrant und Spender der heiligsten Eucharistie", "buch4.htm#01030101"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Teilnahme an der heiligsten Eucharistie", "buch4.htm#01030102"))
          insDoc(ebene4, gLnk("R", "Artikel 3: Riten und Zeremonien der Feier der Eucharistie", "buch4.htm#01030103"))
          insDoc(ebene4, gLnk("R", "Artikel 4: Zeit und Ort der Feier der Eucharistie", "buch4.htm#01030104"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Aufbewahrung und Verehrung der heiligsten Eucharistie", "buch4.htm#010302"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Meßstipendium", "buch4.htm#010303"))
      ebene3 = insFld(ebene2, gFld("Titel 4: Sakrament der Buße", "buch4.htm#0104"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Feier des Sakramentes", "buch4.htm#010401"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Spender des Bußsakramentes", "buch4.htm#010402"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Pönitent", "buch4.htm#010403"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Ablässe", "buch4.htm#010404"))
      ebene3 = insFld(ebene2, gFld("Titel 5: Sakrament der Krankensalbung", "buch4.htm#0105"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Feier des Sakramentes", "buch4.htm#010501"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Spender der Krankensalbung", "buch4.htm#010502"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Empfänger der Krankensalbung", "buch4.htm#010503"))
      ebene3 = insFld(ebene2, gFld("Titel 6: Weihe", "buch4.htm#0106"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Weihespendungsfeier und Weihespender", "buch4.htm#010601"))
        ebene4 = insFld(ebene3, gFld("Kapitel 2: Weihebewerber", "buch4.htm#010602"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Anforderungen an die Weihebewerber", "buch4.htm#01060201"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Voraussetzungen für die Weihespendung", "buch4.htm#01060202"))
          insDoc(ebene4, gLnk("R", "Artikel 3: Irregularitäten und andere Hindernisse", "buch4.htm#01060203"))
          insDoc(ebene4, gLnk("R", "Artikel 4: Erforderliche Dokumente und Skrutinium", "buch4.htm#01060204"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Eintragung und Zeugnis über die vollzogene Weihespendung", "buch4.htm#010603"))
      ebene3 = insFld(ebene2, gFld("Titel 7: Ehe", "buch4.htm#0107"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Seelsorge und Vorbereitung zur Eheschließung", "buch4.htm#010701"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Die trennenden Hindernisse im allgemeinen", "buch4.htm#010702"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Die trennenden Hindernisse im einzelnen", "buch4.htm#010703"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Ehekonsens", "buch4.htm#010704"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Eheschließungsform", "buch4.htm#010705"))
        insDoc(ebene3, gLnk("R", "Kapitel 6: Mischehen", "buch4.htm#010706"))
        insDoc(ebene3, gLnk("R", "Kapitel 7: Geheime Eheschließung", "buch4.htm#010707"))
        insDoc(ebene3, gLnk("R", "Kapitel 8: Wirkungen der Ehe", "buch4.htm#010708"))
        ebene4 = insFld(ebene3, gFld("Kapitel 9: Trennung der Ehegatten", "buch4.htm#010709"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Auflösung des Ehebandes", "buch4.htm#01070901"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Trennung bei bleibendem Eheband", "buch4.htm#01070902"))
        ebene4 = insFld(ebene3, gFld("Kapitel 10: Gültigmachung der Ehe", "buch4.htm#010710"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Einfache Gültigmachung", "buch4.htm#01071001"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Heilung in der Wurzel", "buch4.htm#01071002"))
    ebene2 = insFld(ebene1, gFld("Teil 2: Sonstige gottesdienstliche Handlungen", "buch4.htm#02"))
      insDoc(ebene2, gLnk("R", "Titel 1: Sakramentalien", "buch4.htm#0201"))
      insDoc(ebene2, gLnk("R", "Titel 2: Feier des Stundengebetes", "buch4.htm#0202"))
      ebene3 = insFld(ebene2, gFld("Titel 3: Kirchliches Begräbnis", "buch4.htm#0203"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Begräbnisfeier", "buch4.htm#020301"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Gewährung und Verweigerung des kirchlichen Begräbnisses", "buch4.htm#020302"))
      insDoc(ebene2, gLnk("R", "Titel 4: Heiligen-, Bilder- und Reliquienverehrung", "buch4.htm#0204"))
      ebene3 = insFld(ebene2, gFld("Titel 5: Gelübde und Eid", "buch4.htm#0205"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Gelübde", "buch4.htm#020501"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Eid", "buch4.htm#020502"))
    ebene2 = insFld(ebene1, gFld("Teil 3: Heilige Orte und Zeiten", "buch4.htm#03"))
      ebene3 = insFld(ebene2, gFld("Titel 1: Heilige Orte", "buch4.htm#0301"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Kirchen", "buch4.htm#030101"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Kapellen und Privatkapellen", "buch4.htm#030102"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Heiligtümer", "buch4.htm#030103"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Altäre", "buch4.htm#030104"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Friedhöfe", "buch4.htm#030105"))
      ebene3 = insFld(ebene2, gFld("Titel 2: Heilige Zeiten", "buch4.htm#0302"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Feiertage", "buch4.htm#030201"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Bußtage", "buch4.htm#030202"))

  ebene1 = insFld(foldersTree, gFld("Buch 5: Kirchenvermögen", "buch5.htm"))
    insDoc(ebene1, gLnk("R", "Titel 1: Vermögenserwerb", "buch5.htm#01"))
    insDoc(ebene1, gLnk("R", "Titel 2: Vermögensverwaltung", "buch5.htm#02"))
    insDoc(ebene1, gLnk("R", "Titel 3: Verträge, insbesondere die Veräußerung", "buch5.htm#03"))
    insDoc(ebene1, gLnk("R", "Titel 4: Fromme Verfügungen im allgemeinen sowie fromme Stiftungen", "buch5.htm#04"))

  ebene1 = insFld(foldersTree, gFld("Buch 6: Strafbestimmungen in der Kirche", "buch6.htm"))
    ebene2 = insFld(ebene1, gFld("Teil 1: Straftaten und Strafen im allgemeinen", "buch6.htm#01"))
      insDoc(ebene2, gLnk("R", "Titel 1: Bestrafung von Straftaten im allgemeinen", "buch6.htm#0101"))
      insDoc(ebene2, gLnk("R", "Titel 2: Strafgesetz und Strafgebot", "buch6.htm#0102"))
      insDoc(ebene2, gLnk("R", "Titel 3: Straftäter", "buch6.htm#0103"))
      ebene3 = insFld(ebene2, gFld("Titel 4: Strafen und andere Maßregelungen", "buch6.htm#0104"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Beugestrafen", "buch6.htm#010401"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Sühnestrafen", "buch6.htm#010402"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Strafsicherungsmittel und Bußen", "buch6.htm#010403"))
      insDoc(ebene2, gLnk("R", "Titel 5: Strafverhängung", "buch6.htm#0105"))
      insDoc(ebene2, gLnk("R", "Titel 6: Straferlaß", "buch6.htm#0106"))
    ebene2 = insFld(ebene1, gFld("Teil 2: Strafen für einzelne Straftaten", "buch6.htm#02"))
      insDoc(ebene2, gLnk("R", "Titel 1: Straftaten gegen die Religion und die Einheit der Kirche", "buch6.htm#0201"))
      insDoc(ebene2, gLnk("R", "Titel 2: Straftaten gegen die kirchlichen Autoritäten und die Freiheit der Kirche", "buch6.htm#0202"))
      insDoc(ebene2, gLnk("R", "Titel 3: Amtsanmaßung und Amtspflichtverletzung", "buch6.htm#0203"))
      insDoc(ebene2, gLnk("R", "Titel 4: Fälschungsdelikt", "buch6.htm#0204"))
      insDoc(ebene2, gLnk("R", "Titel 5: Straftaten gegen besondere Verpflichtungen", "buch6.htm#0205"))
      insDoc(ebene2, gLnk("R", "Titel 6: Straftaten gegen Leben und Freiheit des Menschen", "buch6.htm#0206"))
      insDoc(ebene2, gLnk("R", "Titel 7: Allgemeine Norm", "buch6.htm#0207"))

  ebene1 = insFld(foldersTree, gFld("Buch 7: Prozesse", "buch7.htm"))
    ebene2 = insFld(ebene1, gFld("Teil 1: Gerichtswesen im allgemeinen", "buch7.htm#01"))
      insDoc(ebene2, gLnk("R", "Titel 1: Zuständigkeit", "buch7.htm#0101"))
      ebene3 = insFld(ebene2, gFld("Titel 2: Die verschiedenen Instanzen und Arten der Gerichte", "buch7.htm#0102"))
        ebene4 = insFld(ebene3, gFld("Kapitel 1: Gericht erster Instanz", "buch7.htm#010201"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Richter", "buch7.htm#01020101"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Vernehmungsrichter und Berichterstatter", "buch7.htm#01020102"))
          insDoc(ebene4, gLnk("R", "Artikel 3: Kirchenanwalt, Bandverteidiger und Notar", "buch7.htm#01020103"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Gericht zweiter Instanz", "buch7.htm#010202"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Gerichte des Apostolischen Stuhles", "buch7.htm#010203"))
      ebene3 = insFld(ebene2, gFld("Titel 3: Gerichtsordnung", "buch7.htm#0103"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Aufgaben der Richter und des Gerichtspersonals", "buch7.htm#010301"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Reihenfolge der Untersuchungen", "buch7.htm#010302"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Termine und Fristen", "buch7.htm#010303"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Gerichtsort", "buch7.htm#010304"))
        insDoc(ebene3, gLnk("R", "Kapitel 5: Berechtigung zur Teilnahme am Prozeß; Anfertigung und Aufbewahrung von Akten", "buch7.htm#010305"))
      ebene3 = insFld(ebene2, gFld("Titel 4: Prozeßparteien", "buch7.htm#0104"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Kläger und belangte Partei", "buch7.htm#010401"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Prozeßbevollmächtigte und Anwälte", "buch7.htm#010402"))
      ebene3 = insFld(ebene2, gFld("Titel 5: Klagen und Einreden", "buch7.htm#0105"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Klagen und Einreden im allgemeinen", "buch7.htm#010501"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Klagen und Einreden im besonderen", "buch7.htm#010502"))
    ebene2 = insFld(ebene1, gFld("Teil 2: Streitverfahren", "buch7.htm#02"))
      ebene3 = insFld(ebene2, gFld("Sektion 1: Ordentliches Streitverfahren", "buch7.htm#0201"))
        ebene4 = insFld(ebene3, gFld("Titel 1: Einführung der Prozeßsache", "buch7.htm#020101"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Einleitende Klageschrift", "buch7.htm#02010101"))
          insDoc(ebene4, gLnk("R", "Kapitel 2: Ladung und Ankündigung der Gerichtshandlungen", "buch7.htm#02010102"))
        insDoc(ebene3, gLnk("R", "Titel 2: Streitfestlegung", "buch7.htm#020102"))
        insDoc(ebene3, gLnk("R", "Titel 3: Prozeßlauf", "buch7.htm#020103"))
        ebene4 = insFld(ebene3, gFld("Titel 4: Beweise", "buch7.htm#020104"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Parteiaussagen", "buch7.htm#02010401"))
          ebene5 = insFld(ebene4, gFld("Kapitel 2: Urkundenbeweis", "buch7.htm#02010402"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Art und Beweiskraft der Urkunden", "buch7.htm#0201040201"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Vorlage von Urkunden", "buch7.htm#0201040202"))
          ebene5 = insFld(ebene4, gFld("Kapitel 3: Zeugen und ihre Aussagen", "buch7.htm#02010403"))
            insDoc(ebene5, gLnk("R", "Artikel 1: Zeugnisfähigkeit", "buch7.htm#0201040301"))
            insDoc(ebene5, gLnk("R", "Artikel 2: Einführung und Ablehnung von Zeugen", "buch7.htm#0201040302"))
            insDoc(ebene5, gLnk("R", "Artikel 3: Art und Beweiskraft der Urkunden", "buch7.htm#0201040303"))
            insDoc(ebene5, gLnk("R", "Artikel 4: Glaubwürdigkeit der Zeugenaussagen", "buch7.htm#0201040304"))
          insDoc(ebene4, gLnk("R", "Kapitel 4: Sachverständige", "buch7.htm#02010404"))
          insDoc(ebene4, gLnk("R", "Kapitel 5: Ortstermin und richterlicher Augenschein", "buch7.htm#02010405"))
          insDoc(ebene4, gLnk("R", "Kapitel 6: Vermutungen", "buch7.htm#02010406"))
        ebene4 = insFld(ebene3, gFld("Titel 5: Zwischenverfahren", "buch7.htm#020105"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Nicht erscheinende Parteien", "buch7.htm#02010501"))
          insDoc(ebene4, gLnk("R", "Kapitel 2: Eintritt eines Dritten in den Rechtsstreit", "buch7.htm#02010502"))
        insDoc(ebene3, gLnk("R", "Titel 6: Aktenoffenlegung, Aktenschluß und Sacherörterung", "buch7.htm#020106"))
        insDoc(ebene3, gLnk("R", "Titel 7: Richterliche Entscheidungen", "buch7.htm#020107"))
        ebene4 = insFld(ebene3, gFld("Titel 8: Anfechtung eines Urteils", "buch7.htm#020108"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Nichtigkeitsbeschwerde gegen ein Urteil", "buch7.htm#02010801"))
          insDoc(ebene4, gLnk("R", "Kapitel 2: Berufung", "buch7.htm#02010802"))
        ebene4 = insFld(ebene3, gFld("Titel 9: Rechtskraft des Urteils und Wiedereinsetzung in den vorigen Stand", "buch7.htm#020109"))
          insDoc(ebene4, gLnk("R", "Kapitel 1: Rechtskraft des Urteils", "buch7.htm#02010901"))
          insDoc(ebene4, gLnk("R", "Kapitel 2: Wiedereinsetzung in den vorigen Stand", "buch7.htm#02010902"))
        insDoc(ebene3, gLnk("R", "Titel 10: Gerichtskosten und unentgeltlicher Rechtsschutz", "buch7.htm#020110"))
        insDoc(ebene3, gLnk("R", "Titel 11: Urteilsvollstreckung", "buch7.htm#020111"))
      insDoc(ebene2, gLnk("R", "Sektion 2: Mündliches Streitverfahren", "buch7.htm#0202"))
    ebene2 = insFld(ebene1, gFld("Teil 3: Besondere Arten von Verfahren", "buch7.htm#03"))
      ebene3 = insFld(ebene2, gFld("Titel 1: Eheprozesse", "buch7.htm#0301"))
        ebene4 = insFld(ebene3, gFld("Kapitel 1: Ehenichtigkeitsverfahren", "buch7.htm#030101"))
          insDoc(ebene4, gLnk("R", "Artikel 1: Zuständigkeit", "buch7.htm#03010101"))
          insDoc(ebene4, gLnk("R", "Artikel 2: Klagerecht", "buch7.htm#03010102"))
          insDoc(ebene4, gLnk("R", "Artikel 3: Aufgabe der Richter", "buch7.htm#03010103"))
          insDoc(ebene4, gLnk("R", "Artikel 4: Beweise", "buch7.htm#03010104"))
          insDoc(ebene4, gLnk("R", "Artikel 5: Urteil und Berufung", "buch7.htm#03010105"))
          insDoc(ebene4, gLnk("R", "Artikel 6: Verfahren aufgrund von Urkunden", "buch7.htm#03010106"))
          insDoc(ebene4, gLnk("R", "Artikel 7: Allgemeine Vorschriften", "buch7.htm#03010107"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Verfahren zur Trennung der Ehegatten", "buch7.htm#030102"))
        insDoc(ebene3, gLnk("R", "Kapitel 3: Nichtvollzugsverfahren", "buch7.htm#030103"))
        insDoc(ebene3, gLnk("R", "Kapitel 4: Verfahren zur Todeserklärung", "buch7.htm#030104"))
      insDoc(ebene2, gLnk("R", "Titel 2: Weihenichtigkeitsverfahren", "buch7.htm#0302"))
      insDoc(ebene2, gLnk("R", "Titel 3: Abwendung von Gerichtsverfahren", "buch7.htm#0303"))
    ebene2 = insFld(ebene1, gFld("Teil 4: Strafprozeß", "buch7.htm#04"))
      insDoc(ebene2, gLnk("R", "Kapitel 1: Voruntersuchung", "buch7.htm#0401"))
      insDoc(ebene2, gLnk("R", "Kapitel 2: Ablauf des Prozesses", "buch7.htm#0402"))
      insDoc(ebene2, gLnk("R", "Kapitel 3: Schadensersatzklage", "buch7.htm#0403"))
    ebene2 = insFld(ebene1, gFld("Teil 5: Vorgehen bei Verwaltungsbeschwerden und bei Amtsenthebung oder Versetzung von Pfarrern", "buch7.htm#05"))
      insDoc(ebene2, gLnk("R", "Sektion 1: Beschwerde gegen Verwaltungsdekrete", "buch7.htm#0501"))
      ebene3 = insFld(ebene2, gFld("Sektion 2: Verfahren zur Amtsenthebung oder Versetzung von Pfarrern", "buch7.htm#0502"))
        insDoc(ebene3, gLnk("R", "Kapitel 1: Vorgehen bei Amtsenthebung von Pfarrern", "buch7.htm#050201"))
        insDoc(ebene3, gLnk("R", "Kapitel 2: Vorgehen bei Versetzung von Pfarrern", "buch7.htm#050202"))