OAS 4 and owa_util.ident_arr

[Erik Bengtsson]

Hi

The following is a declaration of an example procedure from one of the demo
programs that comes with
OAS 4.0

procedure result(cols IN owa_util.ident_arr);

The procedure takes an array of names as input to the procedure. If I want
to pass another parameter to the
procedure I once (with OWS 3) did like this:

procedure result(new_parameter IN VARCHAR2, cols IN owa_util.ident_arr);

This does however fail. I dont know why and I was hoping that someone could
tell me. The following error
message (not very informative) pops against me...

I'll attach the whole package to this message.

/Erik

[start of package]
CREATE OR REPLACE package formdata as
procedure form;
procedure result(pelle IN VARCHAR2, cols IN owa_util.ident_arr);
end;

/

CREATE OR REPLACE package body formdata as
procedure form is
begin
htp.htmlopen;
htp.headopen;
htp.title('Sample 2 Form');
htp.headclose;
htp.bodyopen;
htp.line;
htp.img('/ows-img/ows.gif');
htp.header(1,'Sample 2 Form');
htp.line;

htp.em('Click on a few people and click "Go":');
htp.paragraph;

htp.formopen('formdata.result');
htp.formhidden('pelle', cvalue => 'hej');
htp.formhidden('COLS','dummy');
htp.formcheckbox('COLS','Mill');
htp.print('Mill');
htp.nl;
htp.formcheckbox('COLS','Hobbes');
htp.print('Hobbes');
htp.nl;
htp.formcheckbox('COLS','Locke');
htp.print('Locke');
htp.nl;
htp.formcheckbox('COLS','Kropotkin');
htp.print('Kropotkin');
htp.nl;
htp.formcheckbox('COLS','Marx');
htp.print('Marx');
htp.nl;
htp.formcheckbox('COLS','Nietzsche');
htp.print('Nietzsche');
htp.paragraph;

htp.formsubmit(NULL,'Go');
htp.formclose;
htp.paragraph;
htp.line;
htp.address('(c)1996, 1997, 1998 Oracle Corporation');
htp.bodyclose;
htp.htmlclose;
end;

procedure result (pelle IN VARCHAR2, cols IN owa_util.ident_arr) is
col_counter INTEGER;
begin
htp.htmlopen;
htp.headopen;
htp.title('Sample 2 Results');
htp.headclose;
htp.bodyopen;
htp.line;
htp.img('/ows-img/ows.gif');
htp.header(1, 'Sample 2 Results');
htp.bold('Pelle= '||pelle);
htp.line;
htp.paragraph;
col_counter := 2;
loop
htp.print(cols(col_counter)|| ' has some very interesting writings.');
htp.paragraph;
col_counter := col_counter + 1;
end loop;
exception
when no_data_found then
htp.paragraph;
htp.line;
htp.address('(c)1996, 1997, 1998 Oracle Corporation. All rights
reserved.');
htp.bodyclose;
htp.htmlclose;
end;
end;
[End of package]
/