from AccessControl.Role import RoleManager
from Acquisition import Implicit
from App.Dialogs import MessageDialog
from Globals import MessageDialog, Persistent, HTML
from OFS.ObjectManager import BeforeDeleteException
from OFS.SimpleItem import Item
from string import rfind, join
import time