rem {{ $Header: \\ukst76\rcsroot.4_0\model\repadm40\jin\RCS\jriwidg.jpb 40.2 1998/05/27 13:08:24 eharding Exp $
rem {{ ------------------------------------------------------------------------
rem File:        $Workfile:   jrpbwidg.sql  $
rem Author:      $Author: eharding $
rem Date:        $Date: 1998/05/27 13:08:24 $
rem Version:     $Revision: 40.2 $
rem Status:      $State: Exp $
rem Locked_by:   $Locker:  $
rem Project:     The Oracle Common Repository
rem Description: Widget server utilities
rem Notes:
rem RealAuth:    Karl McHorton
rem IncepDate:   26th January 1998
rem Copyright:   (c) Oracle Corporation 1998. All Rights Reserved.
rem Tagline:     -- Oracle Repository: Managing *all* your data --
rem ---------------------------------------------------------------------------
rem Log of Changes from Source Control System
rem ---------------------------------------------------------------------------
rem $Log: jriwidg.jpb $
rem 2000/11/02 sbhagava
rem Changed dual to sys.dual to fix bug 1311500
rem
rem Revision 40.2  1998/05/27  13:08:24  eharding
rem Moved reference JR_* PL/SQL from ClearCase
rem
rem 
rem    Rev 1.1   30 Jan 1998 09:55:46   kmchorto
rem Milestone
rem 
rem    Rev 1.0   29 Jan 1998 14:05:42   kmchorto
rem Initial revision.
rem }} ------------------------------------------------------------------------
rem
prompt Package Body: jr_widget
create or replace package body jr_widget is

  function new_widget(name varchar2 default '') return widget_id
  is -- {{
     the_widget_id widget_id;
  begin
     select sdd_widget_id_seq.nextval into the_widget_id.wid from sys.dual;
     insert into sdd_widgets(wid,widget_name) values (the_widget_id.wid, name);
     
     -- TODO: KM 19th March 1998 - hack alert
     -- This line wants to be:
     --- select irid into the_widget_id.irid from widgets where wid=the_widget_id.wid;
     -- but I have cheated here and joined to object_versions via NAME
     -- the template schema needs to be modified to correctly support
     -- this kind of generic identifier - will come in milestone C
     select o.irid into the_widget_id.irid 
     from sdd_widgets w, sdd_object_versions o
     where o.name = w.widget_name
       and wid=the_widget_id.wid;
     exception
      when no_data_found then the_widget_id.irid := 0;
     
     return the_widget_id;
  end new_widget; -- }}

end jr_widget;
/
rem
rem ----------------------------------------------------------------------------
rem }} End of file $Workfile:   jrpbwidg.sql  $  $$Header_is_done
rem ---------------------------------------------------------------------------x