Prozeduren

NR_SET_MARKER

Eingabeparameter

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Setzt eine Marke (Lesezeichen) im Newsroom.

Definition

CREATE PROCEDURE NR_SET_MARKER(
    ACTTIID INTEGER,
    ACTFAID INTEGER,
    ACTBEKURZZEICHEN CHAR(20))
AS
  DECLARE VARIABLE OldMaTiId INTEGER;
BEGIN
  OldMaTiId = -1;
  FOR
    SELECT MA.MATIID FROM MARKER MA, BENUTZER BE
      WHERE (MA.MABEID = BE.BEID) AND (MA.MAFAID = :ActFaId) 
        AND (BE.BEKURZZEICHEN = :ActBeKurzzeichen)
    INTO :OldMaTiId
  DO BEGIN
    /* Aktuelle Titel ID in der Marker Tabelle ueberschreiben */
    UPDATE MARKER SET MATIID = :ActTiID, MATIME = CAST('NOW' AS DATE)
      WHERE (MATIID = :OldMaTiId);
  END
  IF (OldMaTiId = -1) THEN BEGIN
    /* Aktuelle Titel ID in der Marker Tabelle hinzufuegen */
    INSERT INTO MARKER (MATIID, MAFAID, MATIME, MABEID) 
      VALUES (:ActTiId, :ActFaId, CAST('NOW' AS DATE), 
              (SELECT BEID FROM BENUTZER 
                 WHERE (BEKURZZEICHEN = :ActBeKurzzeichen)));
  END
END