create or replace PACKAGE BEDRIJF_PKG AS

          TYPE CURSOR_TYPE IS REF CURSOR;
          PROCEDURE getbedrijf(bedrijf_cursor OUT BEDRIJF_PKG.CURSOR_TYPE);
          PROCEDURE createbedrijf(p_naam bedrijven.naam%TYPE,
                                  p_adres bedrijven.ADRES%TYPE,
                                  p_postcode bedrijven.postcode%TYPE,
                                  p_tel bedrijven.tel%TYPE,
                                  p_email bedrijven.email%TYPE,
                                  p_site bedrijven.WEBSITE%TYPE,
                                  p_land bedrijven.land%TYPE);

END BEDRIJF_PKG;
/
create or replace PACKAGE CONTACTEN_PKG AS

  PROCEDURE CREATE_CONTACTEN(p_aanspr contacten.aanspreektitel%TYPE,
                             p_naam contacten.naam%TYPE,
                             p_voornaam contacten.voornaam%TYPE,
                             p_bedrijf contacten.bedrijf%TYPE,
                             p_functie contacten.functie%TYPE,
                             p_tel contacten.tel%TYPE,
                             p_gsm contacten.gsm%TYPE,
                             p_taal contacten.taal%TYPE);

  PROCEDURE GETCONTACTEN(p_contact IN bedrijven.bedrijf_id%TYPE,
                         p_aanspr OUT contacten.aanspreektitel%TYPE,
                         p_naam OUT contacten.naam%TYPE,
                         p_voornaam OUT contacten.voornaam%TYPE,
                         p_functie OUT contacten.functie%TYPE,
                         p_tel OUT contacten.tel%TYPE,
                         p_gsm OUT contacten.gsm%TYPE,
                         p_taal OUT contacten.taal%TYPE);
  /* TODO enter package declarations (types, exceptions, methods etc) here */

END CONTACTEN_PKG;
/
create or replace PACKAGE CONTRACT_PKG AS

  TYPE CURSOR_TYPE IS REF CURSOR;
  PROCEDURE getcontract(p_studnr IN studenten.studentnr%TYPE,
                        contract_cursor OUT CONTRACT_PKG.CURSOR_TYPE);

  PROCEDURE createcontract(p_opmaakdtm contract.opmaakdatum%TYPE,
                           p_stud contract.student%TYPE,
                           p_startdtm contract.startdatum%TYPE,
                           p_einddtm contract.einddatum%TYPE,
                           p_contact contract.contact%TYPE);

END CONTRACT_PKG;
/
create or replace PACKAGE STAGEPLAATS_PKG AS

  TYPE CURSOR_TYPE IS REF CURSOR;
  PROCEDURE getstageplaats(stage_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
                           p_bedrijf IN bedrijven.bedrijf_id%TYPE,
                           p_opleiding IN opleiding.opleiding_id%TYPE);

  PROCEDURE createstageplaats(p_bedrijf stageplaats.bedrijf%TYPE,
                              p_opleiding stageplaats.opleiding%TYPE,
                              p_onderwerp stageplaats.onderwerp%TYPE,
                              p_aantal stageplaats.aantal%TYPE,
                              p_beschrijving stageplaats.beschrijving%TYPE);

  PROCEDURE getvalidate(val_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE);
END STAGEPLAATS_PKG;
/
create or replace PACKAGE STUDENT_PKG AS
	TYPE CURSOR_TYPE IS REF CURSOR;
        PROCEDURE GETSTUDENT(p_studnr IN studenten.studentnr%TYPE,
                              student_cursor OUT STUDENT_PKG.CURSOR_TYPE);
        PROCEDURE CREATESTUDENT(p_studnr studenten.studentnr%TYPE,
                              p_naam studenten.naam%TYPE,
                              p_voornaam studenten.voornaam%TYPE,
                              p_adres studenten.adres%TYPE,
                              p_postcode studenten.postcode%TYPE,
                              p_email studenten.email%TYPE,
                              p_tel studenten.tel%TYPE,
                              p_gsm studenten.gsm%TYPE,
                              p_rijksnr studenten.rijksnr%TYPE,
                              p_geboorte studenten.geboorte%TYPE,
                              p_stage studenten.stage%TYPE,
                              p_pass studenten.wachtwoord%TYPE,
                              p_opleiding studenten.opleiding%TYPE,
                              p_stageplaats studenten.stageplaats%TYPE);
END STUDENT_PKG;
/

create or replace PACKAGE LEERKRACHT_PKG AS

 PROCEDURE getwachtwoord(p_mail IN stageleerkrachten.email%TYPE,
                         p_pass OUT stageleerkrachten.wachtwoord%TYPE);

 PROCEDURE getopleiding(p_mail IN stageleerkrachten.email%TYPE,
			p_naam OUT opleiding.naam%TYPE);

END LEERKRACHT_PKG;
/

create or replace PACKAGE BODY BEDRIJF_PKG AS

  PROCEDURE getbedrijf(bedrijf_cursor OUT BEDRIJF_PKG.CURSOR_TYPE) AS
  BEGIN
    OPEN bedrijf_cursor FOR
    SELECT naam
    FROM bedrijven;
  END getbedrijf;

  PROCEDURE createbedrijf(p_naam bedrijven.naam%TYPE,
                                  p_adres bedrijven.ADRES%TYPE,
                                  p_postcode bedrijven.postcode%TYPE,
                                  p_tel bedrijven.tel%TYPE,
                                  p_email bedrijven.email%TYPE,
                                  p_site bedrijven.WEBSITE%TYPE,
                                  p_land bedrijven.land%TYPE) AS
  BEGIN
      INSERT INTO bedrijven(bedrijf_id, naam, adres, postcode, tel, email, website, land)
      VALUES (bedr_id_seq.NEXTVAL, p_naam, p_adres, p_postcode, p_tel, p_email, p_site, p_land);
      COMMIT;
  END createbedrijf;

END BEDRIJF_PKG;
/
create or replace PACKAGE BODY CONTACTEN_PKG AS

  PROCEDURE CREATE_CONTACTEN(p_aanspr contacten.aanspreektitel%TYPE,
                             p_naam contacten.naam%TYPE,
                             p_voornaam contacten.voornaam%TYPE,
                             p_bedrijf contacten.bedrijf%TYPE,
                             p_functie contacten.functie%TYPE,
                             p_tel contacten.tel%TYPE,
                             p_gsm contacten.gsm%TYPE,
                             p_taal contacten.taal%TYPE) AS
  BEGIN
    INSERT INTO contacten(contact_id, aanspreektitel, naam, voornaam, bedrijf, functie, tel, gsm, taal)
    VALUES (cont_id_seq.NEXTVAL, p_aanspr, p_naam, p_voornaam, p_bedrijf, p_functie, p_tel, p_gsm, p_taal);
    COMMIT;
  END CREATE_CONTACTEN;

  PROCEDURE GETCONTACTEN(p_contact IN bedrijven.bedrijf_id%TYPE,
                         p_aanspr OUT contacten.aanspreektitel%TYPE,
                         p_naam OUT contacten.naam%TYPE,
                         p_voornaam OUT contacten.voornaam%TYPE,
                         p_functie OUT contacten.functie%TYPE,
                         p_tel OUT contacten.tel%TYPE,
                         p_gsm OUT contacten.gsm%TYPE,
                         p_taal OUT contacten.taal%TYPE) AS
  BEGIN
        SELECT aanspreektitel, naam, voornaam, functie, tel, gsm, taal
	INTO p_aanspr, p_naam, p_voornaam, p_functie, p_tel, p_gsm, p_taal
	FROM contacten
	WHERE contacten.bedrijf = p_contact;
  END GETCONTACTEN;

END CONTACTEN_PKG;
/
create or replace PACKAGE BODY CONTRACT_PKG AS

  PROCEDURE getcontract(p_studnr IN studenten.studentnr%TYPE,
                        contract_cursor OUT CONTRACT_PKG.CURSOR_TYPE) AS
  BEGIN
      OPEN contract_cursor FOR
      SELECT c.contract_id, c.opmaakdatum, c.startdatum, c.einddatum, con.naam, con.voornaam, b.naam
      FROM contract c ,contacten con, bedrijven b
      WHERE c.student = p_studnr
      AND c.contact = con.contact_id
      AND con.bedrijf = b.bedrijf_id;
  END getcontract;

  PROCEDURE createcontract(p_opmaakdtm contract.opmaakdatum%TYPE,
                           p_stud contract.student%TYPE,
                           p_startdtm contract.startdatum%TYPE,
                           p_einddtm contract.einddatum%TYPE,
                           p_contact contract.contact%TYPE) AS
  BEGIN
    INSERT INTO contract(contract_id, student, opmaakdatum, startdatum, einddatum, contact)
    VALUES(contr_id_seq.NEXTVAL, p_stud, p_opmaakdtm, p_startdtm, p_einddtm, p_contact);
    COMMIT;
  END createcontract;

END CONTRACT_PKG;
/
create or replace PACKAGE BODY STAGEPLAATS_PKG AS

  PROCEDURE getstageplaats(stage_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
                           p_bedrijf IN bedrijven.bedrijf_id%TYPE,
                           p_opleiding IN opleiding.opleiding_id%TYPE) AS
  BEGIN
          OPEN stage_cursor FOR
          SELECT stage_id, bedrijf, opleiding, onderwerp, aantal, beschrijving
          FROM stageplaats
          WHERE bedrijf = p_bedrijf
          AND opleiding = p_opleiding;
  END getstageplaats;

  PROCEDURE createstageplaats(p_bedrijf stageplaats.bedrijf%TYPE,
                              p_opleiding stageplaats.opleiding%TYPE,
                              p_onderwerp stageplaats.onderwerp%TYPE,
                              p_aantal stageplaats.aantal%TYPE,
                              p_beschrijving stageplaats.beschrijving%TYPE) AS
  BEGIN
    INSERT INTO stageplaats(stage_id, bedrijf, opleiding, onderwerp, aantal, beschrijving)
    VALUES(stag_id_seq.NEXTVAL, p_bedrijf, p_opleiding, p_onderwerp, p_aantal, p_beschrijving);
    COMMIT;
  END createstageplaats;

  PROCEDURE getvalidate(val_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE) AS

  BEGIN
          OPEN val_cursor FOR
          SELECT stud.naam, stud.voornaam, o.naam, b.naam
          FROM studenten stud, bedrijven b, stageplaats s, opleiding o
          WHERE stud.stage = 1
          AND stud.opleiding  = o.OPLEIDING_ID
          AND s.bedrijf = b.bedrijf_id
          AND stud.stageplaats = s.stage_id;
  END getvalidate;

END STAGEPLAATS_PKG;
/
create or replace PACKAGE BODY STUDENT_PKG AS

  PROCEDURE GETSTUDENT(p_studnr IN studenten.studentnr%TYPE,
                       student_cursor OUT STUDENT_PKG.CURSOR_TYPE) AS
  BEGIN
	OPEN student_cursor FOR
        SELECT s.naam, s.voornaam, s.adres, s.postcode, p.gemeente, s.email, s.tel, s.gsm, s.rijksnr, s.geboorte, s.wachtwoord, o.naam, s.stageplaats
	FROM studenten s, postcodes p, opleiding o
	WHERE s.studentnr = p_studnr
        AND s.postcode = p.code
        AND s.opleiding = o.OPLEIDING_ID;
  END GETSTUDENT;

  PROCEDURE CREATESTUDENT(p_studnr studenten.studentnr%TYPE,
                              p_naam studenten.naam%TYPE,
                              p_voornaam studenten.voornaam%TYPE,
                              p_adres studenten.adres%TYPE,
                              p_postcode studenten.postcode%TYPE,
                              p_email studenten.email%TYPE,
                              p_tel studenten.tel%TYPE,
                              p_gsm studenten.gsm%TYPE,
                              p_rijksnr studenten.rijksnr%TYPE,
                              p_geboorte studenten.geboorte%TYPE,
                              p_stage studenten.stage%TYPE,
                              p_pass studenten.wachtwoord%TYPE,
                              p_opleiding studenten.opleiding%TYPE,
                              p_stageplaats studenten.stageplaats%TYPE) AS
  BEGIN
        INSERT INTO studenten(studentnr, naam, voornaam, adres,
			postcode, email, tel, gsm, rijksnr,
			geboorte, stage, wachtwoord, opleiding, stageplaats)
	VALUES(p_studnr, p_naam, p_voornaam, p_adres, p_postcode,
			p_email, p_tel, p_gsm, p_rijksnr, p_geboorte,
			p_stage, p_pass, p_opleiding, p_stageplaats);
	COMMIT;
  END CREATESTUDENT;

END STUDENT_PKG;
/
CREATE OR REPLACE PACKAGE BODY LEERKRACHT_PKG AS

  PROCEDURE getwachtwoord(p_mail IN stageleerkrachten.email%TYPE,
                         p_pass OUT stageleerkrachten.wachtwoord%TYPE) AS
  BEGIN
        SELECT wachtwoord
	INTO p_pass
	FROM stageleerkrachten
	WHERE email = p_mail;
  END getwachtwoord;

  PROCEDURE getopleiding(p_mail IN stageleerkrachten.email%TYPE,
			 p_naam OUT opleiding.naam%TYPE) AS
  BEGIN
	SELECT o.naam
	INTO p_naam
	FROM stageleerkrachten s, opleiding o
	WHERE email = p_mail
	AND s.opleiding = o.opleiding_id;
  END getopleiding;
END LEERKRACHT_PKG;
/
CREATE OR REPLACE PROCEDURE getaantalstats
(p_jaar IN stats.jaar%TYPE,
p_opleiding OUT opleiding.naam%TYPE,
p_onderwerp OUT onderwerp.naam%TYPE)
IS
BEGIN
	SELECT opl.naam, ond.naam
	INTO p_opleiding, p_onderwerp
	FROM opleiding opl, onderwerp ond, stats s
	WHERE s.opleiding = opl.opleiding_id
        AND s.onderwerp = ond.onderwerp_id
        AND s.jaar = p_jaar;
END getaantalstats;
/