rem =========================================================================
rem   Laboratoire d'Ingénierie de Base de Données HEG-NE  
rem =========================================================================

rem =========================================================================
rem   Theme...........: WAP
rem   Nom.............: wmp_body.txt
rem   Date............: 11.03.2003
rem   But.............: Librairie qui contient les procédures qui permettent
rem 			de générer des balises WML
rem   Contact.........:	Eddy.Meylan@hegne.ch    
set echo off termout on
rem =======================================================================
rem pause
rem SET AUTOTRACE TRACEONLY EXPLAIN STATISTICS | OFF
rem 

PACKAGE BODY wmp AS
-- déclaration balise de début tags

procedure wmlOpen (xml_lang in varchar2 DEFAULT 'fr') is
    begin
        htp.p(wmf.wmlOpen(xml_lang));
    end;

procedure wmlClose is
    begin
        htp.p(wmf.wmlClose);
    end;

procedure version is
    begin
        htp.p(wmf.version);
    end;

 /*
procedure style is
    begin
        htp.p(wmf.style);
    end;
*/


procedure doctype is
    begin
        htp.p(wmf.doctype);
    end;

procedure headOpen(id in varchar2 DEFAULT NULL,class in varchar2 DEFAULT NULL) is
        begin
            htp.p(wmf.headOpen(id,class));
        end;

procedure headClose is
        begin
            htp.p(wmf.headClose);
        end;

procedure acces (domain in varchar2 DEFAULT NULL,path in varchar2 DEFAULT NULL,
                 id in varchar2 DEFAULT NULL,class in varchar2 DEFAULT NULL) is
        begin
            htp.p(wmf.acces(domain,path,id,class));
        end;

procedure meta (http_equiv in varchar2 DEFAULT 'Cache-Control',name in varchar2 DEFAULT NULL,
                forua in varchar2 DEFAULT 'true',content in varchar2 DEFAULT 'no-cache',
                scheme in varchar2 DEFAULT NULL,id in varchar2 DEFAULT NULL,
                class in varchar2 DEFAULT NULL) is
        begin
            htp.p(wmf.meta(http_equiv,name,forua,content,scheme,id,class));
        end;

-- fin de déclaration de balise tags

-- declaration de balise se trouvant dans le cort du deck

procedure templateOpen (onenterforward in varchar2 DEFAULT NULL,
                    onenterbackward in varchar2 DEFAULT NULL,
                    ontimer in varchar2 DEFAULT NULL,id in varchar2 DEFAULT NULL,
                    class in varchar2 DEFAULT NULL) is
         begin
            htp.p(wmf.templateOpen(onenterforward,
                  onenterbackward,ontimer,id,class));
         end;

procedure templateClose is
         begin
            htp.p(wmf.templateClose);
        end;

procedure cardOpen (id in varchar2 DEFAULT NULL,
                    title in varchar2 DEFAULT NULL,
                    neewconext in varchar2 DEFAULT 'false',
                    ordered in  varchar2 DEFAULT 'true',
                    xml_lang in varchar2 DEFAULT 'fr',
                    onenterforward in varchar2 DEFAULT NULL,
                    onenterbackward in varchar2 DEFAULT NULL,
                    ontimer in varchar2 DEFAULT NULL,
                    class in varchar2 DEFAULT NULL) is
           begin
                htp.p(wmf.cardOpen(id,title,neewconext,ordered,xml_lang,
                                onenterforward,onenterbackward,
                                ontimer,class));
           end;

procedure cardClose is
    begin
        htp.p(wmf.cardClose);
    end;

-- fin de balise du corps

-- declaration de balise qui se trouve à l'intérieur d'un card
-- la mise en forme

procedure pOpen (align in varchar2 DEFAULT 'left',
                 mode0 in varchar2 DEFAULT NULL,
                 xml_lang in varchar2 DEFAULT 'fr') is
          begin
                htp.p(wmf.pOpen(align,mode0,xml_lang));
          end;

procedure pClose is
    begin
        htp.p(wmf.pClose);
    end;

procedure print (letexte in varchar2) is
    begin
        htp.p(wmf.print(letexte));
    end;

procedure italique (texte in varchar2) is
    begin
         htp.p(wmf.italique(texte));
    end;

procedure bold (texte in varchar2) is
    begin
        htp.p(wmf.bold(texte));
    end;

procedure underline (texte in varchar2) is
    begin
        htp.p(wmf.underline(texte));
    end;

procedure em (texte in varchar2) is
     begin
        htp.p(wmf.em(texte));
    end;

procedure strong (texte in varchar2) is
     begin
        htp.p(wmf.strong(texte));
    end;

procedure big (texte in varchar2) is
     begin
        htp.p(wmf.big(texte));
    end;

procedure small (texte in varchar2) is
     begin
        htp.p(wmf.small(texte));
    end;

procedure br  is
     begin
        htp.p(wmf.br);
    end;
-- fin la mise en forme

-- définition des procédures de tableau

procedure tableOpen (title in varchar2 DEFAULT NULL, align in varchar2 DEFAULT NULL,
                    columnss in varchar2 DEFAULT '1', xml_lang in varchar2 DEFAULT 'fr') is
     begin
        htp.p(wmf.tableOpen(title,align,columnss,xml_lang));
    end;

procedure tableClose is
    begin
        htp.p(wmf.tableClose);
    end;

procedure trOpen is
    begin
        htp.p(wmf.trOpen);
    end;

procedure trClose is
    begin
        htp.p(wmf.trClose);
    end;

procedure tdOpen is
    begin
        htp.p(wmf.tdOpen);
    end;

procedure tdClose is
    begin
        htp.p(wmf.tdClose);
    end;

-- fin de la déclaration de tableau

-- balise image

procedure img (alt in varchar2 DEFAULT NULL,src in varchar2 DEFAULT NULL,
               localsrc in varchar2 DEFAULT NULL,vspace in varchar2 DEFAULT NULL,
               hspace in varchar2 DEFAULT NULL,align in varchar2 DEFAULT NULL,
               height in varchar2 DEFAULT NULL,width in varchar2 DEFAULT NULL,
               xml_lang in varchar2 DEFAULT 'fr') is
     begin
        htp.p(wmf.img(alt,src,localsrc,vspace,hspace,align,height,width,xml_lang));
    end;

-- fin de balise image

-- balises de navigation qui nous permet de naviger entre les pages wml

procedure anchorOpen(title in varchar2 DEFAULT NULL,xml_lang in varchar2 DEFAULT 'fr') is
    begin
        htp.p(wmf.anchorOpen(title,xml_lang));
    end;

procedure anchorClose is
    begin
        htp.p(wmf.anchorClose);
    end;

procedure doOpen (typee in varchar2 DEFAULT NULL,label varchar2 DEFAULT NULL,
                  name varchar2 DEFAULT NULL,optional varchar2 DEFAULT 'false',
                  xml_lang in varchar2 DEFAULT 'fr') is
     begin
        htp.p(wmf.doOpen(typee,label,name,optional,xml_lang));
    end;

procedure doClose is
    begin
        htp.p(wmf.doClose);
    end;

procedure goOpen (href in varchar2 DEFAULT NULL,sendreferer in varchar2 DEFAULT 'false',
                  method in varchar2 DEFAULT 'get',
                  accept_charset in varchar2 DEFAULT NULL) is
     begin
        htp.p(wmf.goOpen(href,sendreferer,method,accept_charset));
    end;

procedure goClose is
    begin
        htp.p(wmf.goClose);
    end;

procedure aOpen (href in varchar2 DEFAULT NULL,title in varchar2 DEFAULT NULL,
                 xml_lang in varchar2 DEFAULT 'fr') is
      begin
        htp.p(wmf.aOpen(href,title,xml_lang));
    end;

procedure aClose is
    begin
        htp.p(wmf.aClose);
    end;

procedure noop is
    begin
        htp.p(wmf.noop);
    end;

-- fin de balise de navigation

-- les événements

procedure oneventOpen (typee in varchar2 DEFAULT 'onenterforward') is
    begin
        htp.p(wmf.oneventOpen(typee));
    end;

procedure oneventClose is
    begin
        htp.p(wmf.oneventClose);
    end;

procedure postfield (name in varchar2 DEFAULT NULL,value in varchar2 DEFAULT NULL) is
    begin
        htp.p(wmf.postfield(name,value));
    end;

procedure prevOpen is
    begin
        htp.p(wmf.prevOpen);
    end;

procedure prevClose is
    begin
        htp.p(wmf.prevClose);
    end;

procedure refreshOpen is
    begin
        htp.p(wmf.refreshOpen);
    end;

procedure refreshClose is
    begin
        htp.p(wmf.refreshClose);
    end;

procedure setvar (name in varchar2 DEFAULT NULL,value in varchar2 DEFAULT NULL) is
    begin
        htp.p(wmf.setvar(name,value));
    end;

-- fin des événements

-- les balises de sélections et de liste déroulante

procedure selectOpen (title in varchar2 DEFAULT NULL,name in varchar2 DEFAULT NULL,
                      value in varchar2 DEFAULT NULL,iname in varchar2 DEFAULT NULL,
                      ivalue in varchar2 DEFAULT NULL,multiple in varchar2 DEFAULT 'false',
                      tabindex in varchar2 DEFAULT NULL,xml_lang in varchar2 DEFAULT 'fr') is
     begin
        htp.p(wmf.selectOpen(title,name,value,iname,ivalue,multiple,tabindex,xml_lang));
     end;

procedure selectClose is
    begin
        htp.p(wmf.selectClose);
    end;

procedure optionOpen (value in varchar2 DEFAULT NULL,title in varchar2 DEFAULT NULL,
                      onpick in varchar2 DEFAULT NULL,xml_lang in varchar2 DEFAULT 'fr') is
     begin
        htp.p(wmf.optionOpen(value,title,onpick,xml_lang));
     end;

procedure optionClose is
     begin
        htp.p(wmf.optionClose);
     end;

procedure optgroupOpen (title in varchar2 DEFAULT NULL,xml_lang in varchar2 DEFAULT 'fr') is
    begin
        htp.p(wmf.optgroupOpen(title,xml_lang));
    end;

procedure optgroupClose is
    begin
        htp.p(wmf.optgroupClose);
    end;

procedure input(name in varchar2 DEFAULT NULL,typee in varchar2 DEFAULT 'text',
                 value in varchar2 DEFAULT NULL,format in varchar2 DEFAULT '*M',
                 emptyok in varchar2 DEFAULT 'false',
                 sizee in varchar2 DEFAULT NULL,
                 maxlength in varchar2 DEFAULT NULL,
                 tabindex in varchar2 DEFAULT NULL,
                 title in varchar2 DEFAULT NULL,
                 xml_lang in varchar2 DEFAULT 'fr') is
    begin
        htp.p(wmf.input(name,typee,value,format,emptyok,sizee,maxlength,
        tabindex,title,xml_lang));
    end;

procedure fieldsetOpen (title in varchar2 DEFAULT NULL,xml_lang in varchar2 DEFAULT 'fr') is
    begin
        htp.p(wmf.fieldsetOpen(title,xml_lang));
    end;

procedure fieldsetClose is
    begin
        htp.p(wmf.fieldsetClose);
    end;

procedure timer (name in varchar2 DEFAULT NULL,value in varchar2 DEFAULT NULL) is
    begin
        htp.p(wmf.timer(name,value));
    end;

-- fin balises de sélections

END;