Q5/ws_objects/Oa_workremind.pbl.src/f_oa_workremind_saveright.srf

$PBExportHeader$f_oa_workremind_saveright.srf
global type f_oa_workremind_saveright from function_object
end type

forward prototypes
global subroutine f_oa_workremind_saveright (string arg_right[], ref s_wrm_right arg_wrmlist[])
end prototypes

global subroutine f_oa_workremind_saveright (string arg_right[], ref s_wrm_right arg_wrmlist[]);//arg_right[]有2个元素,第一个表示用户订阅的提醒,第二个表示当前页面的提醒
//arg_wrmlist[]存储的是当前用户的所有订阅

long cnt

for cnt=1 to UpperBound(arg_wrmlist)
	if pos(arg_right[2],string(arg_wrmlist[cnt].wrmid))<>0 then
		if pos(arg_right[1],string(arg_wrmlist[cnt].wrmid))<>0 then
			arg_wrmlist[cnt].selected=1
		else 
			arg_wrmlist[cnt].selected=0
		end if
	end if
next
end subroutine