Zitierformen

Auf dieser Seite können Sie ergänzend zu den in Litlink bereits eingebauten Zitierformen zusätzliche, von Ihnen programmierte neue Zit-Formen vorschlagen und herunterladen (dazu müssen Sie angemeldet sein). Wenn diese Zitierformen in die aktuelle Version von Litlink übernommen worden sind, werden sie aus dieser Liste wieder entfernt.

Übrigens…: Neue Zit-Formen für die Module Bilder, AV-Medien und Webseiten sowie Ereignisse, Orte und Objekte sind sehr willkommen!

Titel:

Zitat mit Kommentar und Nachweis - Korrigiert 06/2013

Beschreibung:

Bezüge zu Dokumenten/Archivalien repariert

Autor:

Nicolaus Busch

Beispiel:

"Die Unterzeichner wollen die grenzüberschreitende Zusammenarbeit am Oberrhein im Umweltschutzbereich vertiefen, um ein für die europäische Zusammenarbeit beispielhaftes Niveau zu erreichen. Ihre besondere Aufmerksamkeit gilt der einheitlichen Ausgestaltung des Umweltschutzes in EG und EFTADie Schwerpunkte, Handlungsbedarf und Projekte der grenzüberschreitenden Zusammenarbeit werden im Anhang zur Erklärung formuliert." (Erklärung über Umweltzusammenarbeit am Oberrhein (Abschlussdokument)/Region du Rhin supérieur, coopération dans le domaine de l'environnement, STABS, SLL Sammlungen, Regesten von Urkunden mit Entstehungsdatum bis 2000, Staatsurkunde 1991 März 7/8, 07.03.1991 - 08.03.1991) Das übliche folgenlose Blabla

Getestet:

Erstellt:

18.06.2013 10:09 / nicolausbusch

Letzte Änderung:

18.06.2013 10:09 / nicolausbusch


[ Kopieren ]

Berechnung:

//Vollständiges Zitat mit bibliografischem Nachweis
//N. Busch 18.06.2013

Let(
[$tmp_Kurztitel = Case(DKartei::d_AAbenutzen_n = 1 ; DKartei.AndereAusgabe::d_Kurztitel_t ; DKartei.Titel::d_Kurztitel_t) ;
$tmp_Datierung = Case(DKartei::d_AAbenutzen_n = 1 ; DKartei.AndereAusgabe::d_Datierung_t ; DKartei.Titel::d_Datierung_t) ;
$tmp_KommentarIntern = Position( DKartei::d_Kommentar_t ; "###";1;1) >0;
$tmp_Kommentar = Substitute(DKartei::d_Kommentar_t ; "###" ; DKartei::d_Zitat_t);
$tmp_Nachweis =
Substitute(
Case(
not IsEmpty(DKartei::_fk_Periodikum_t ) ;
DKartei.Periodikum::d_Titel_t ;
not IsEmpty( DKartei::_fk_Titel_t ) and DKartei.Titel::d_Datentyp_t = "D" ;
DKartei.Titel::xCalc_NameAutorKurz_ctu &
Case( not IsEmpty( DKartei.Titel::xCalc_NameAutorKurz_ctu ); ", " ) & DKartei.Titel::d_Titel_t & ", " &
DKartei.Titel::xCalc_SignaturKomplett_cti & ", " & DKartei.Titel::xCalc_DatierungDeutsch_ctu;
not IsEmpty( DKartei::_fk_Titel_t ) ;
DKartei.Titel.Autor::d_Nachname_t & ", " & $tmp_Kurztitel &
Case( not IsEmpty( $tmp_Datierung );
" (" & $tmp_Datierung & ")" );
not IsEmpty( DKartei::_fk_Autor_t) ;
DKartei.Autor::d_Nachname_t
)// End case
; "¶" ; ", ") // End Substitute
&
Case(
not IsEmpty( DKartei::xCalc_AnzeigeSeiten_ctu ) ;
", " & DKartei::xCalc_AnzeigeSeiten_ctu
) // end case
]
//end of preliminaries
;
Case( $tmp_KommentarIntern = 0;
"\"" & DKartei::d_Zitat_t & "\" (" &
$tmp_Nachweis & ")"
&
Case(
not IsEmpty( DKartei::d_Kommentar_t ) ; "¶¶" & DKartei::d_Kommentar_t
) //End Case
;
$tmp_Kommentar & "¶" &
"(" & $tmp_nachweis & ")"
) //end case
) // end let

Zurück