create or replace procedure opiskelija_data (onimi in varchar2) is
cursor op is
  select onumero, nimi, paa_aine, kaupunki, aloitusvuosi
  from info1.opiskelija 
  where nimi like onimi
  order by nimi;
t varchar2(80);  
nobody boolean;
begin
   nobody:=true;
   htp.htmlOpen;
   htp.headOpen;
   htp.title('Kyselyesimerkki');
   htp.headClose;
   htp.bodyOpen(NULL,'BGCOLOR="WHITE"');
   t:='<h2>Opiskelijat, hakuehdolla NIMI LIKE '''||onimi||'''</h2>';
   htp.p(t); 
   for o in op loop
      nobody := false;
      htp.bold(o.nimi);
      htp.blockquoteOpen;
      htp.p('tunnus='||to_char(o.onumero)||', kaupunki= '||o.kaupunki);
      htp.p(', pääaine= '||o.paa_aine);
      htp.blockquoteClose;
      htp.para;
   end loop;
   if nobody = true then
      htp.p('Ketään ei löytynyt!');
   end if;
   htp.bodyClose;
   htp.htmlClose;
end;
/
show errors;
exit;