private void Page_Load(object sender, System.EventArgs e)
{
SetPageTitle(L10n.Term(".moduleList." + m_sMODULE));
// 06/04/2006 Paul. Visibility is already controlled by the ASPX page, but it is probably a good idea to skip the load.
this.Visible = (SplendidCRM.Security.GetUserAccess(m_sMODULE, "view") >= 0);
if (!this.Visible)
{
return;
}
try
{
gID = Sql.ToGuid(Request["ID"]);
// 11/28/2005 Paul. We must always populate the table, otherwise it will disappear during event processing.
//if ( !IsPostBack )
{
if (!Sql.IsEmptyGuid(gID))
{
DbProviderFactory dbf = DbProviderFactories.GetFactory();
using (IDbConnection con = dbf.CreateConnection())
{
string sSQL;
sSQL = "select * " + ControlChars.CrLf
+ " from vwEMAILS_Edit" + ControlChars.CrLf;
using (IDbCommand cmd = con.CreateCommand())
{
cmd.CommandText = sSQL;
// 11/24/2006 Paul. Use new Security.Filter() function to apply Team and ACL security rules.
Security.Filter(cmd, m_sMODULE, "view");
Sql.AppendParameter(cmd, gID, "ID", false);
con.Open();
if (bDebug)
{
RegisterClientScriptBlock("SQLCode", Sql.ClientScriptBlock(cmd));
}
using (IDataReader rdr = cmd.ExecuteReader(CommandBehavior.SingleRow))
{
if (rdr.Read())
{
ctlModuleHeader.Title = Sql.ToString(rdr["NAME"]);
SetPageTitle(L10n.Term(".moduleList." + m_sMODULE) + " - " + ctlModuleHeader.Title);
Utils.UpdateTracker(Page, m_sMODULE, gID, ctlModuleHeader.Title);
this.AppendDetailViewFields(m_sMODULE + ".DetailView", tblMain, rdr);
string sDESCRIPTION = Sql.ToString(rdr["DESCRIPTION"]);
sDESCRIPTION = EmailUtils.XssFilter(sDESCRIPTION, Sql.ToString(Application["CONFIG.email_xss"]));
// 01/20/2008 Paul. There is probably a regular expression filter that would do the following replacement better.
sDESCRIPTION = sDESCRIPTION.Replace("\r\n", "\n");
sDESCRIPTION = sDESCRIPTION.Replace("\r", "\n");
sDESCRIPTION = sDESCRIPTION.Replace("\n", "<br />\r\n");
new DynamicControl(this, "DESCRIPTION").Text = sDESCRIPTION;
// 11/17/2005 Paul. Archived emails allow editing of the Date & Time Sent.
string sEMAIL_TYPE = Sql.ToString(rdr["TYPE"]).ToLower();
ctlModuleHeader.EnableModuleLabel = false;
switch (sEMAIL_TYPE)
{
case "archived":
ctlModuleHeader.Title = L10n.Term("Emails.LBL_ARCHIVED_MODULE_NAME") + ":" + ctlModuleHeader.Title;
break;
case "inbound":
ctlModuleHeader.Title = L10n.Term("Emails.LBL_INBOUND_TITLE") + ":" + ctlModuleHeader.Title;
Response.Redirect("inbound.aspx?ID=" + gID.ToString());
break;
case "out":
ctlModuleHeader.Title = L10n.Term("Emails.LBL_LIST_FORM_SENT_TITLE") + ":" + ctlModuleHeader.Title;
// 01/21/2006 Paul. Sent emails cannot be edited or duplicated.
// 12/20/2006 Paul. Messages have type "out" when they are ready to send.
ctlDetailButtons.ShowEdit = false;
ctlDetailButtons.ShowDuplicate = false;
break;
case "sent":
ctlModuleHeader.Title = L10n.Term("Emails.LBL_LIST_FORM_SENT_TITLE") + ":" + ctlModuleHeader.Title;
// 12/20/2006 Paul. Sent emails cannot be edited or duplicated.
ctlDetailButtons.ShowEdit = false;
ctlDetailButtons.ShowDuplicate = false;
break;
case "campaign":
ctlModuleHeader.Title = L10n.Term("Emails.LBL_LIST_FORM_SENT_TITLE") + ":" + ctlModuleHeader.Title;
// 12/20/2006 Paul. Sent emails cannot be edited or duplicated.
ctlDetailButtons.ShowEdit = false;
ctlDetailButtons.ShowDuplicate = false;
break;
default:
sEMAIL_TYPE = "draft";
ctlModuleHeader.Title = L10n.Term("Emails.LBL_COMPOSE_MODULE_NAME") + ":" + ctlModuleHeader.Title;
ctlDetailButtons.ShowDuplicate = false;
// 01/21/2006 Paul. Draft messages go directly to edit mode.
Response.Redirect("edit.aspx?ID=" + gID.ToString());
break;
}
ctlDetailButtons.SetUserAccess(m_sMODULE, Sql.ToGuid(rdr["ASSIGNED_USER_ID"]));
}
else
{
// 11/25/2006 Paul. If item is not visible, then don't show its sub panel either.
plcSubPanel.Visible = false;
ctlDetailButtons.DisableAll();
ctlDetailButtons.ErrorText = L10n.Term("ACL.LBL_NO_ACCESS");
}
}
}
sSQL = "select * " + ControlChars.CrLf
+ " from vwEMAILS_Attachments" + ControlChars.CrLf
+ " where EMAIL_ID = @EMAIL_ID" + ControlChars.CrLf;
using (IDbCommand cmd = con.CreateCommand())
{
cmd.CommandText = sSQL;
Sql.AddParameter(cmd, "@EMAIL_ID", gID);
if (bDebug)
{
RegisterClientScriptBlock("vwEMAILS_Attachments", Sql.ClientScriptBlock(cmd));
}
using (DbDataAdapter da = dbf.CreateDataAdapter())
{
((IDbDataAdapter)da).SelectCommand = cmd;
using (DataTable dt = new DataTable())
{
da.Fill(dt);
ctlAttachments.DataSource = dt.DefaultView;
ctlAttachments.DataBind();
}
}
}
}
}
}
// 06/09/2006 Paul. Remove data binding in the user controls. Binding is required, but only do so in the ASPX pages.
//Page.DataBind();
}
catch (Exception ex)
{
SplendidError.SystemError(new StackTrace(true).GetFrame(0), ex);
ctlDetailButtons.ErrorText = ex.Message;
}
}
