//Original: Alexander Mendle 09.07.2007. Habe die Formeln für die Jahresangabe geändert, da im Original alle Titel als "Ohne Jahr" exportiert wurden. (Habe dazu d_DatumJahr_n mit d_Datierung_t ersetzt. Weiß nicht ob das der richtige Weg war, bei mir funktionierts aber. Da das Forum unglaublich unübersichtlich und daher wenig hilfreich ist und das Handbuch mir auch nicht weiterhalf, habe ich bei anderen Zitformen abgeschaut.)
//Update auf Litlink 3.0, 18.03.2008, N. Busch
//Auf Basis der Suhrkamp-Definition von N. Busch
//Ein eindeutiger Schlüssel wird aus dem Feld Eigene Signatur kreiert.
//Bitte erwarten sie nicht, dass dieses Stück Software stets fehlerfrei funktioniert.
Case(
IsValid( DTitel.Periodikum::_pk_GUID );
// Zitform für Artikel -> @article
Trim(
"@ARTICLE{" & d_EigeneSignatur_t & ",author={" &
Case( not IsEmpty( d_AutorNachname_t ) ; d_AutorNachname_t ) &
Case( IsEmpty( d_AutorNachname_t ) ; "o.~V." ) &
Case ( not IsEmpty( d_AutorVorname_t ); ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case ( not IsEmpty( d_CoAutoren_t ) ; " and " & d_CoAutoren_t ) &
"},title={" & d_Titel_t & "}" &
Case ( not IsEmpty( DTitel.Periodikum::d_Titel_t ) ; ",journal={" & DTitel.Periodikum::d_Titel_t & "}" ) &
Case ( IsEmpty( DTitel.Periodikum::d_Titel_t ) ; ",journal={PERIODIKUM!!}" ) &
Case ( not IsEmpty( d_AusgabeVol_t ) ; ",volume=" & d_AusgabeVol_t ) &
Case ( not IsEmpty( d_Datierung_t ) ; ",year={" & d_Datierung_t & "}" ) &
Case ( IsEmpty( d_Datierung_t ) ; ",year={o.~J.}" ) &
Case ( not IsEmpty( d_AusgabeNr_t ); ",number={" & d_AusgabeNr_t & "}" ) &
Case ( not IsEmpty( d_AusgabeSeite_t) ; ",pages={" & d_AusgabeSeite_t & "}" ) &
"}") // End trim
;
IsValid( DTitel.Titel.Sammelband::_pk_GUID );
// Zitform für Aufsätze -> @incollection
Trim(
"@INCOLLECTION{" & d_EigeneSignatur_t & ",author={" &
Case( not IsEmpty( d_AutorNachname_t ) ; d_AutorNachname_t ) &
Case( IsEmpty( d_AutorNachname_t ) ; "o.~V." ) &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; " and " & d_CoAutoren_t ) &
"},title={" & d_Titel_t & "}" &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Titel_t ) ; ",booktitle={" & DTitel.Titel.Sammelband::d_Titel_t & "}" ) &
Case( IsEmpty( DTitel.Titel.Sammelband::d_Titel_t ) ; ",booktitle={BUCHTITEL!!}" ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Herausgeber_n ) ; ",editor={" & DGlobals::d_HerausgeberKürzel_t &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_CoAutoren_t ) ; " and " & DTitel.Titel.Sammelband::d_CoAutoren_t ) &
"}" ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ) ; ",address={" & DTitel.Titel.Sammelband::d_Ort_t & "}" ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; ",publisher={" & DTitel.Titel.Sammelband::d_Verlag_t & "}" ) &
Case( IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; ",publisher={VERLAG!!}" ) &
Case( not IsEmpty( d_Datierung_t ) ; ",year={" & d_Datierung_t & "}" ) &
Case ( IsEmpty( d_Datierung_t ) ; ",year={o.~J.}" ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_BibliogrZusätze_t ) ; ",edition={" & DTitel.Titel.Sammelband::d_BibliogrZusätze_t & "}" ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ",pages={" & d_AusgabeSeite_t & "}" ) &
"}") // End trim
;
// Zitform für Monographien -> @book
Trim(
"@BOOK{" & d_EigeneSignatur_t &
Case ( not IsEmpty( d_Sammelband_b ) ; ",editor={" & d_AutorNachname_t & Case ( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) & Case ( not IsEmpty( d_CoAutoren_t ) ; " and " & d_CoAutoren_t ) & "}" ) &
Case ( IsEmpty( d_Sammelband_b ) ; ",author={" & d_AutorNachname_t & Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) & xCalc_Pseudonym_t & Case ( not IsEmpty( d_CoAutoren_t ) ; " and " & d_CoAutoren_t ) & "}" ) &
",title={" & d_Titel_t & "}" &
Case( not IsEmpty( d_Ort_t ) ; ",address={" & d_Ort_t & "}" ) &
Case( IsEmpty( d_Ort_t ) ; ",address={o.~O.}" ) &
Case( not IsEmpty( d_Verlag_t ) ; ",publisher={" & d_Verlag_t & "}" ) &
Case( IsEmpty( d_Verlag_t ) ; ",publisher={VERLAG!!}" ) &
Case( not IsEmpty( d_Datierung_t ) ; ",year={" & d_Datierung_t & "}" ) &
Case ( IsEmpty( d_Datierung_t ) ; ",year={o.~J.}" ) &
Case( not IsEmpty( d_BibliogrZusätze_t ) ; ",edition={" & d_BibliogrZusätze_t & "}" ) &
"}" ) // End trim
) //End Case
& DGlobals::v_ZitFormSchlusszeichen