Api to extract portal metadata?

Question

Hi, I want to build my own Flash Menu based on the Oracle Portals content, instead of using the existing tab components. How can I extract this metadata as a XML ?
Thanks in advance,
Alessandro

Answer 1

I was able to get user data out of the metadata repository. Here is the procedure I use to insert the data into a table to pull out user profile info:
CREATE OR REPLACE PROCEDURE <NAME> IS
BEGIN
EXECUTE IMMEDIATE 'ALTER TABLE PM_TEAM_MEMBER disable CONSTRAINT FK_PMTM_USER_ID';
     DELETE acquisitions.closepf_person2;
     COMMIT;
          FOR i in (select id from portal.WWSEC_PERSON$)
          LOOP
     DECLARE
          l_person_ID                number     := portal.wwsec_api.person_info(p_person_id => i.id).ID;
          l_person_USER_NAME      varchar2(256) := portal.wwsec_api.person_info(p_person_id => i.id).USER_NAME;
          l_person_EMPNO                varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).EMPNO;
          l_person_LAST_NAME           varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).LAST_NAME;
          l_person_FIRST_NAME      varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).FIRST_NAME;
          l_person_MIDDLE_NAME      varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).MIDDLE_NAME;
          l_person_KNOWN_AS           varchar2(80) := portal.wwsec_api.person_info(p_person_id => i.id).KNOWN_AS;
          l_person_EMAIL                varchar2(256) := portal.wwsec_api.person_info(p_person_id => i.id).EMAIL;
          l_person_WORK_PHONE      varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).WORK_PHONE;
          l_person_MOBILE_PHONE      varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).MOBILE_PHONE;
          l_person_PAGER                varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).PAGER;
          l_person_FAX                varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).FAX;          
          l_person_OFFICE_ADDR1      varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_ADDR1;
          l_person_OFFICE_ADDR2      varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_ADDR2;
          l_person_OFFICE_ADDR3      varchar2(60) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_ADDR3;
          l_person_OFFICE_CITY      varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_CITY;
          l_person_OFFICE_STATE      varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_STATE;
          l_person_OFFICE_ZIP      varchar2(30) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_ZIP;
          l_person_OFFICE_COUNTRY varchar2(256) := portal.wwsec_api.person_info(p_person_id => i.id).OFFICE_COUNTRY;                                        
          l_person_TITLE               varchar2(80) := portal.wwsec_api.person_info(p_person_id => i.id).TITLE;
          l_person_MANAGER           number     := portal.wwsec_api.person_info(p_person_id => i.id).MANAGER;
          l_person_DEFAULT_GROUP      number          := portal.wwsec_api.person_info(p_person_id => i.id).DEFAULT_GROUP;
          l_person_GUID               varchar2(32);     
          CURSOR get_guid IS
               SELECT guid
               FROM orasso.wwsec_person$
               WHERE user_name = l_person_USER_NAME;
     BEGIN
          OPEN get_guid;
          FETCH get_guid INTO l_person_GUID;
          CLOSE get_guid;
          INSERT INTO acquisitions.closepf_person2 (
               id,
               user_name,
               empno,
               last_name,
               first_name,
               middle_name,
               known_as,
               email,
               work_phone,
               mobile_phone,
               pager,
               fax,
               office_addr1,
               office_addr2,
               office_addr3,
               office_city,
               office_state,
               office_zip,
               office_country,
               title,
               manager,
               default_group,
               guid)
          VALUES      (
               l_person_ID,
               l_person_USER_NAME,
               l_person_EMPNO,
               l_person_LAST_NAME,
               l_person_FIRST_NAME,
               l_person_MIDDLE_NAME,
               l_person_KNOWN_AS,
               l_person_EMAIL,
               l_person_WORK_PHONE,
               l_person_MOBILE_PHONE,
               l_person_PAGER,
               l_person_FAX,
               l_person_OFFICE_ADDR1,
               l_person_OFFICE_ADDR2,
               l_person_OFFICE_ADDR3,
               l_person_OFFICE_CITY,
               l_person_OFFICE_STATE,
               l_person_OFFICE_ZIP,
               l_person_OFFICE_COUNTRY,                                                                                                     
               l_person_TITLE,     
               l_person_MANAGER,
               l_person_DEFAULT_GROUP,
               l_person_GUID);                                                                      
               EXCEPTION WHEN NO_DATA_FOUND
                    THEN
                         EXIT;
               COMMIT;
     END;
     END LOOP;
END;
Martin