1 PACKAGE BODY irc_isc_update AS
2 /* $Header: iriscupg.pkb 120.0 2005/07/26 15:11 mbocutt noship $*/
3
4 -- ----------------------------------------------------------------------------
5 -- |---------------------------< update_keywords >----------------------------|
6 -- ----------------------------------------------------------------------------
7 procedure update_keywords(
8 p_process_ctrl IN varchar2,
9 p_start_pkid IN number,
10 p_end_pkid IN number,
11 p_rows_processed OUT nocopy number)
12 is
13 --
14 -- This cursor loops over the keywords
15 -- entered by users in Work Preferences
16 --
17 cursor csr_keyword is
18 select keywords,search_criteria_id
19 from irc_search_criteria
20 where search_criteria_id between p_start_pkid and p_end_pkid
21 and object_type = 'WPREF'
22 and keywords is not null;
23 l_rows_processed number := 0;
24 --
25 begin
26 for l_data in csr_keyword
27 loop
28 if(irc_query_parser_pkg.isInvalidKeyword(l_data.keywords))
29 then
30 update irc_search_criteria
31 set keywords = ''
32 where search_criteria_id = l_data.search_criteria_id;
33 end if;
34 l_rows_processed := l_rows_processed + 1;
35 end loop;
36 p_rows_processed := l_rows_processed;
37 end update_keywords;
38 --
39 end irc_isc_update;