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

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

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

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