drop package pakiet1;
/
CREATE OR REPLACE PACKAGE pakiet1 AS
    PROCEDURE usun_pozycje
    (k_id t_ksiazka.isbn%TYPE);

    PROCEDURE dodaj_pozycje
    (k_id t_ksiazka.isbn%TYPE,
    tyt t_ksiazka.tytul%type,
    wyd t_ksiazka.wydawca%type,
    r t_ksiazka.rok%type,
    op t_ksiazka.oprawa%type,
    dost t_ksiazka.dostawca%type,
    cen t_ksiazka.cena%type,
    il t_ksiazka.ilosc%type);
END;
/

CREATE PACKAGE BODY pakiet1 AS
PROCEDURE usun_pozycje
(k_id t_ksiazka.isbn%TYPE)
IS
BEGIN
    DELETE FROM koopia
    WHERE isbn=k_id;

    delete from t_a_ksiazki
    WHERE isbn=k_id;

     delete from t_z_ksiazka
     WHERE isbn=k_id;





END;

PROCEDURE dodaj_pozycje
(k_id t_ksiazka.isbn%TYPE,
tyt t_ksiazka.tytul%type,
wyd t_ksiazka.wydawca%type,
r t_ksiazka.rok%type,
op t_ksiazka.oprawa%type,
dost t_ksiazka.dostawca%type,
cen t_ksiazka.cena%type,
il t_ksiazka.ilosc%type)
    IS
    BEGIN
        INSERT INTO koopia(isbn,tytul,wydawca,rok,oprawa,dostawca,cena,ilosc)
        VALUES(k_id,tyt,wyd,r,op,dost,cen,il);
    END;
END; -- koniec pakietu
/