CREATE OR REPLACE procedure site(p_siteid in number default 0) as
   /**
    * @headcom
    *
    * This procedure has been added to support user's bookmarks to
    * the 309 site procedure. It will display a warning about the
    * new format of URLs
    *
    * @Scope        Public
    *
    */

begin
    --
    -- Display a redirect warning screen.
    --
    wwpob_page_util.old_url_redirect(
        p_old_url =>
            wwctx_api.get_proc_path('site') || '?p_siteid=' || p_siteid,
        p_new_url =>
            wwpob_page_util.get_page_url(
                p_pageid => 1,
                p_siteid => p_siteid)
    );

end;
/