Q5/ws_objects/Ew_filemanage.pbl.src/f_power_ind_fileclassedit.srf

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

forward prototypes
global function boolean f_power_ind_fileclassedit (long arg_classid)
end prototypes

global function boolean f_power_ind_fileclassedit (long arg_classid);long i
if arg_classid<=0 then return false
IF Pos(sys_user_class_edit_str,','+String(arg_classid)+',') > 0 OR sys_user_class_edit_str = '0' or sys_power_issuper THEN
	return true
else
	return false
end if

end function