//N. Busch 11.5.2006 (abgeändert M.Baumann)
Case(
IsValid( DTitel.Periodikum::_pk_GUID.Periodikum );
// Zitform für Aufsätze
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; " / " & d_CoAutoren_t ) &
Case(not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t & ")" ) &
": "" & d_Titel_t & "." " &
TextStyleAdd( DTitel.Periodikum::d_Titel_t ; Italic ) &
Case( not IsEmpty( d_AusgabeVol_t ); " " & d_AusgabeVol_t ) &
Case( not IsEmpty( d_AusgabeNr_t ); " (" & d_AusgabeNr_t & ")" ) &
Case( not IsEmpty( d_AusgabeSeite_t) ; ": " & d_AusgabeSeite_t )
) // End trim
;
IsValid( DTitel.Titel.Sammelband::_pk_GUID.Titel );
// Zitform für Artikel
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; " / " & d_CoAutoren_t ) &
Case(not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t & ")" ) &
": "" & d_Titel_t & "." In: " &
Trim( DTitel.Titel.Sammelband::d_AutorVorname_t & " " & DTitel.Titel.Sammelband::d_AutorNachname_t ) &
" (Hrsg.): " & TextStyleAdd( DTitel.Titel.Sammelband::d_Titel_t ; Italic ) & ". " &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ); DTitel.Titel.Sammelband::d_Ort_t ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ) and not IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; ": ") &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; DTitel.Titel.Sammelband::d_Verlag_t ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ", " & d_AusgabeSeite_t )
) // End trim
;
// Zitform für Monographien
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; " / " & d_CoAutoren_t ) &
Case( not IsEmpty( d_herausgeber_t ) ; " (" & d_herausgeber_t & ")" ) &
Case(not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t ) &
"): " & TextStyleAdd( d_Titel_t ; Italic) &
Case( not IsEmpty( d_Ort_t ) and not IsEmpty( d_Verlag_t ) ; ". ") &
Case( not IsEmpty( d_Ort_t ); d_Ort_t ) &
Case( not IsEmpty( d_Verlag_t ) ; ": " & d_Verlag_t ) &
Case( not IsEmpty( d_BibliogrZusätze_t ) ; " (" & d_BibliogrZusätze_t & ")")
) // End trim
) //End Case
& DGlobals::v_ZitformSchlusszeichen