create or replace procedure email2
AS
osa varchar2(55);
BEGIN
    select ((substr(EESNIMI,1,1)) || PERENIMI) into osa from yliopilase_kontakt limit;

    if length(osa) >8 THEN
        update yliopilase_kontakt set email = (substr(((substr(EESNIMI,1,1)) || PERENIMI), 1, 8) || '@itcollege.ee');
    else
        update yliopilase_kontakt set email = ((substr(EESNIMI,1,1)) || PERENIMI || '@itcollege.ee');
    end if;

END;