====== Anbindung der ProfessorInnen-Profile ======

[[https://services.ksh-m.de:2001/portal/v1/homepage/professorlist]]

[[https://services.ksh-m.de:2001/kdb/v1/professor/homepagelist]]

**Fehler in Zeile 12115 (12113):**
id 2629 - publicationtype 2 - kpid 31869  (Zeilenumbruch in Json - lecture.description seq 8) Birgit Franz apid 44862

ksh.xdata.service.kdb.professor.pas

<code>
function TProfessorService.HomepageList: TStream;
var
  lSQL: string;
begin
  lSQL := TkdbProfessorHomepageWithImage.GetSelectFrom
    + TkdbProfessorHomepageWithImage.WhereProfessors + ' ORDER BY p.lastname';

  Result := CreateHomepageList(lSQL);
end;
</code>

<code>
  Result := 'apid,campus,consultation,dead,department,gender,kpid,letter,email,' +
    'fieldofwork,filter,firstname,image,kshend,kshstart,lastname,phoneinternal,' +
    'profession,qualification,room,title,urlextern,urlintern';
</code>

<code>
  Result := 'kdb.rel_group_person rgp ' +
    'INNER JOIN kdb.persons p ON (rgp.kpid = p.id) ' +
    'LEFT JOIN kdb.addresses a ON (p.id = a.kpid) ' +
    'LEFT JOIN kdb.persons_staff ps ON (p.id = ps.kpid) ' +
    'LEFT JOIN kdb.persons_lecturer pl ON (p.id = pl.kpid) ' +
    'LEFT JOIN kdb.pr_extended pe ON (p.id = pe.kpid) ' +     // ToDo: soll wegfallen
    'LEFT JOIN kdb.photos ph ON (p.id = ph.pid AND ph.imgtype = 1) ';
</code>

<code>
  Result :=
    'pl.fieldofwork AS fieldofwork, ' +
    'IF(pl.filter IS NOT NULL, pl.filter, pe.filter) AS filter, ' +
    'IF(pl.profession IS NOT NULL AND pl.profession > '''', pl.profession, pe.profession) AS profession, ' +
    'pl.qualification AS qualification, ' +
    'pl.url_extern AS urlextern, ' +
    'pl.url_intern AS urlintern, ' +

//    'ph.img64 AS image, ' +

    'IF(ps.campus IS NOT NULL AND ps.campus > '''', ps.campus, IF(pe.campus = 1, ''Campus München'', ''Campus Benediktbeuern'')) AS campus, ' +
    'IF(ps.consultation IS NOT NULL AND ps.consultation > '''', ps.consultation, pe.consultation) AS consultation, ' +
    'ps.department     AS department, ' +
    'IF(ps.phone_internal IS NOT NULL AND ps.phone_internal > '''', ps.phone_internal, IF(a.tel IS NOT NULL AND a.tel > '''', a.tel, pe.telefon)) AS phoneinternal, ' +
    'IF(ps.room_nr IS NOT NULL AND ps.room_nr > '''', ps.room_nr, pe.room) AS room, ' +
    'ps.kshend         AS kshend, ' +
    'ps.kshstart       AS kshstart, ' +
    'IF(rgp.website = 0, '''', p.mail)            AS email, ' +

    'p.id        AS kpid, ' +
    'p.apid      AS apid, ' +
    'p.gender    AS gender, ' +
    'p.dead      AS dead, ' +
    'p.firstname  AS firstname, ' +
//    'IF(p.middlename IS NULL, p.firstname, CONCAT(p.firstname, '' '', p.middlename)) AS firstname, ' +
    'CONCAT(p.lastname, IF(p.dead = 0, '''', '' +''))  AS lastname, ' +
//    'p.lastname  AS lastname, ' +
    'LEFT(p.lastname, 1) AS letter, ' +
    'IF(p.titlepre > '''', p.titlepre, pe.title_pre) AS title ';
</code>