"; $permiso = new SA_Perm(1,'mmarre@mecon'); print "
Probando la funcion tiene -> "; if ($permiso->tiene(1,2)) { print "Tiene todos los permisos
"; } else { print "No tiene todos los permisos
"; } print "
Probando la funcion tieneO -> "; if ($permiso->tieneO(1,2,3,4,5,7,3)) { print "Tiene alguno de los permisos
"; } else { print "No tiene permiso alguno
"; } print "
Probando la funcion tieneUn -> "; if ($permiso->tieneO(2)) { print "Tiene EL permiso
"; } else { print "No tiene EL permiso
"; } print "
Probando la funcion tieneODevol -> "; $rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3); print "Tiene los siguientes permisos
"; foreach ($rr as $r) { print "$r
"; } print "
Probando la funcion listaPermisos -> "; $rr = $permiso->listaPermisos(); print "Tiene los siguientes permisos
"; foreach ($rr as $r) { print "$r
"; } ?>