#---Bezeichnung: Persönlichen Ordner erzeugen
#   Klassen: Projektbearbeiter
#   ObjectScript: Yes
#   ContainerScript: No
#   EventType: Kein
#   EventClass:
#   EventMembers:
#   ExtendedRights: No
#---Dieses Script erstellt für den aktuellen Bearbeiter einen
#   Ordner. Dieser erscheint als Root-Ordner,
#   sobald der Bearbeiter eingeloggt ist.
#---05.07 Vertec AG: erstellt.
#---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.
#---19.12.2018, sth: in Python umgeschrieben.

def main(bearbeiter):
    if not bearbeiter.eval('oclisKindOf(Projektbearbeiter)'):
        vtcapp.msgbox('Persönliche Ordner können nur für Bearbeiter angelegt werden. Bitte führen Sie das Script auf einem Bearbeiter aus.')
    else:
        # Neuen persönlichen Ordner erzeugen
        persordner = vtcapp.createobject("PersoenlicherOrdner")
        persordner.bezeichnung = "Persönliche Ordner"
        persordner.idx = 0
        persordner.canhavesubordner = True
        persordner.abstractUserAsRoot.append(bearbeiter)
         
main(argobject)