CREATE OR REPLACE TYPE BODY T_Client AS
STATIC FUNCTION verif(c REF T_Client) RETURN INTEGER IS
      --chemin fichier.chemin%TYPE;
      nbFichiers INTEGER;
      BEGIN
        -- on compte le nombre de chemins que l'on voit.
          SELECT COUNT(f.chemin) INTO nbFichiers FROM fichier f WHERE f.telecharge=c;
          IF nbFichiers >= 1 THEN
            RETURN 1;
          ELSE
            RETURN 0;
          END IF;
      END;
END;
/

DELETE FROM client c WHERE T_Client.verif(REF(c))=0;

-- HERITAGE (Exo 4)
DROP TABLE Album;

-- Q2 :
ALTER TYPE T_ALbum NOT FINAL;
CREATE TYPE T_Livre UNDER T_Album(
  preface VARCHAR(255),
  postface VARCHAR(255),
  -- On met num_photo car la couverture doit être une photo du livre, donc on n'a besoin que de son numéro !!
  num_photo INT;
);
/