//Alexander Mendle 09.07.2007
//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_DatumJahr_n ) ; ",year={" & d_DatumJahr_n & "}" ) &
Case ( IsEmpty( d_DatumJahr_n ) ; ",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_DatumJahr_n ) ; ",year={" & d_DatumJahr_n & "}" ) &
Case ( IsEmpty( d_DatumJahr_n ) ; ",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_DatumJahr_n ) ; ",year={" & d_DatumJahr_n & "}" ) &
Case ( IsEmpty( d_DatumJahr_n ) ; ",year={o.~J.}" ) &
Case( not IsEmpty( d_BibliogrZusätze_t ) ; ",edition={" & d_BibliogrZusätze_t & "}" ) &
"}" ) // End trim
) //End Case
& DGlobals::v_ZitFormSchlusszeichen