## -*- coding: utf_8 -*- <% from fcp import connection from fcp import fcpdefs from fcutils import util from fcp import mlitem import os.path import urllib myMLItem = fcp.MyMLItem thisWebID = myMLItem.WebID() jsonStr = fcp.MeAsJSON((client.serverTZ,client.clientTZ)) isEditable = True if fcp.rights & fcpdefs.acWrite else False editableClass = " editable" if isEditable else " readonly" fType,subject = fcp.GetEscapedFormField(fcpdefs.dSubject) if subject is None: subject = "" windowTitle ="Nytt meddelande" if isEditable and subject is "" else subject fType,envInfo = fcp.GetEscapedFormField(fcpdefs.dEnvInfo) dateSent,NTo,NCc = envInfo fromNames = fcp.GetMsgNameList(fcpdefs.dFromName) numFromNames = len(fromNames) if fromNames else 0 fromName = fromNames[0].EscapedName() if fromNames[0] is not None else "" fwdNames = fcp.GetMsgNameList(fcpdefs.dFwdNames) numFwdNames = len(fwdNames) if fwdNames else 0 toNames = fcp.GetMsgNameList(fcpdefs.dToName) numToNames = len(toNames) if toNames else 0 msgStatus = fcp.MyMLItem.Status() fromNameID = 'fcfid-'+str(fcpdefs.dFromName) subjectID = 'fcfid-'+str(fcpdefs.dSubject) toNameID = 'fcfid-'+str(fcpdefs.dToName) %>