Prospecting/app/controllers/BusinessesController.asp

<%
Class BusinessesController_Class
    Private m_useLayout
    Private m_title

    Private Sub Class_Initialize()
        m_useLayout = True
        m_title = "Businesses"
    End Sub

    Public Property Get useLayout
        useLayout = m_useLayout
    End Property

    Public Property Let useLayout(v)
        m_useLayout = v
    End Property

    Public Property Get Title
        Title = m_title
    End Property

    Public Property Let Title(v)
        m_title = v
    End Property

    '-------------------------------------------------------------------------------------------------------------------
    ' GET /businesses : searchable, filterable, sortable, paged list
    '-------------------------------------------------------------------------------------------------------------------
    Public Sub index()
        Const PER_PAGE = 50
        Dim f, k, page, pageCount, result, rows, total, industries, sort, dir, firstRow, lastRow

        Set f = CreateObject("Scripting.Dictionary")
        For Each k In Array("q", "industry", "status", "show", "contacted", "phone", "sort", "dir")
            f(k) = Trim(CStr(Request.QueryString(k)))
        Next
        f("q") = Left(f("q"), 100)

        page = 1
        Dim pageText : pageText = CStr(Request.QueryString("page"))
        If Len(pageText) > 0 And Len(pageText) <= 6 Then
            If IsNumeric(pageText) Then page = CLng(pageText)
        End If
        If page < 1 Then page = 1

        Set result = BusinessRepository().Search(f, page, PER_PAGE)
        total = result("total")
        Set rows = result("rows")
        Set industries = BusinessRepository().Industries()

        pageCount = Int((total + PER_PAGE - 1) / PER_PAGE)
        If pageCount < 1 Then pageCount = 1
        If page > pageCount Then
            page = pageCount
            Set result = BusinessRepository().Search(f, page, PER_PAGE)
            Set rows = result("rows")
        End If

        sort = f("sort") : dir = LCase(f("dir"))
        If dir <> "desc" Then dir = "asc"
        If total = 0 Then firstRow = 0 Else firstRow = (page - 1) * PER_PAGE + 1
        lastRow = firstRow + rows.Count - 1
        If total = 0 Then lastRow = 0
    %>
    <!--#include file="../views/Businesses/index.asp" -->
    <%
    End Sub

    '-------------------------------------------------------------------------------------------------------------------
    ' GET /businesses/:id : detail, history and the "log a touch" form
    '-------------------------------------------------------------------------------------------------------------------
    Public Sub show(id)
        Dim b
        If Not Valid_Id(id) Then Response.Redirect "/404"
        Set b = BusinessRepository().Find(CLng(id))
        If b Is Nothing Then Response.Redirect "/404"
        RenderShow id, b, Nothing, Nothing
    End Sub

    ' Renders the detail page. dup (a matching other business) and fv (unsaved form values) are Nothing normally.
    Private Sub RenderShow(id, b, dup, fv)
        Dim interactions, industries, csrf, today
        Set interactions = BusinessRepository().Interactions(CLng(id))
        Set industries = BusinessRepository().Industries()
        csrf = Csrf_Token("business")
        today = Date_Iso(Date)
        m_title = b("name")
    %>
    <!--#include file="../views/Businesses/show.asp" -->
    <%
    End Sub

    '-------------------------------------------------------------------------------------------------------------------
    ' POST /businesses/:id/update : edit details
    '-------------------------------------------------------------------------------------------------------------------
    Public Sub update(id)
        Dim d, email, phone, indName, indSel
        GuardPost id

        Set d = CreateObject("Scripting.Dictionary")
        d("name") = Left(Trim(F("name")), 255)
        If Len(d("name")) = 0 Then
            Flash().AddError "Business name is required."
            Response.Redirect "/businesses/" & id
        End If

        email = LCase(Left(Trim(F("email")), 255))
        If Len(email) > 0 And InStr(email, "@") = 0 Then
            Flash().AddError "That email address doesn't look right, so nothing was saved."
            Response.Redirect "/businesses/" & id
        End If
        phone = Left(Trim(F("phone")), 40)

        d("contact_name") = Left(Trim(F("contact_name")), 150)
        d("phone") = phone
        d("phone_digits") = ImportFile_PhoneDigits(phone)
        d("email") = email
        d("website") = Left(Trim(F("website")), 255)
        d("address1") = Left(Trim(F("address1")), 255)
        d("city") = Left(Trim(F("city")), 100)
        d("state") = Left(Trim(F("state")), 50)
        d("zip") = Left(Trim(F("zip")), 20)
        d("notes") = Left(F("notes"), 10000)
        If F("is_customer") = "1" Then d("is_customer") = 1 Else d("is_customer") = 0
        d("first_order_date") = Date_Parse(F("first_order_date"))

        indName = Trim(F("industry_new"))
        indSel = F("industry_id")
        If Valid_Id(indSel) Then d("industry_id") = CLng(indSel) Else d("industry_id") = Null

        ' Warn when a changed phone/email is already used by another business (unless "Save anyway" was pressed).
        If F("allow_duplicate") <> "1" Then
            Dim existing, chkPhone, chkEmail, dupMatch, fv
            Set existing = BusinessRepository().Find(CLng(id))
            chkPhone = "" : chkEmail = ""
            If d("phone_digits") <> existing("phone_digits") & "" Then chkPhone = d("phone_digits")
            If d("email") <> existing("email") & "" Then chkEmail = d("email")
            Set dupMatch = BusinessRepository().FindDuplicate(CLng(id), chkPhone, chkEmail)
            If Not dupMatch Is Nothing Then
                Set fv = CreateObject("Scripting.Dictionary")
                Dim k
                For Each k In d.Keys
                    fv(k) = d(k)
                Next
                fv("_industry_new") = indName
                RenderShow id, existing, dupMatch, fv
                Exit Sub
            End If
        End If

        ' A typed-in industry wins over the dropdown; it is only created once the save is going ahead.
        If Len(indName) > 0 Then d("industry_id") = BusinessRepository().FindOrCreateIndustry(indName)

        BusinessRepository().Update CLng(id), d
        Flash().Success = "Saved."
        Response.Redirect "/businesses/" & id
    End Sub

    '-------------------------------------------------------------------------------------------------------------------
    ' POST /businesses/:id/log : record a call / email / visit / mailing
    '-------------------------------------------------------------------------------------------------------------------
    Public Sub log(id)
        Dim method, outcome, notes, contactedAt, followUp, removing, reason
        GuardPost id

        method = F("method")
        outcome = F("outcome")
        If Not Businesses_IsKey(Businesses_Methods(), method) Then
            Flash().AddError "Choose how you contacted them."
            Response.Redirect "/businesses/" & id
        End If
        If Len(outcome) > 0 And Not Businesses_IsKey(Businesses_Outcomes(), outcome) Then outcome = ""

        contactedAt = Date_Parse(F("contacted_at"))
        If IsNull(contactedAt) Then contactedAt = Date
        If contactedAt > Date + 1 Then
            Flash().AddError "The contact date can't be in the future."
            Response.Redirect "/businesses/" & id
        End If

        followUp = Date_Parse(F("follow_up_date"))
        notes = Left(F("notes"), 10000)
        removing = (outcome = "remove")
        reason = Businesses_Label(Businesses_Outcomes(), outcome)
        If removing And Len(Trim(notes)) > 0 Then reason = Left(Trim(notes), 255)

        BusinessRepository().LogInteraction CLng(id), method, outcome, notes, contactedAt, followUp, removing, reason

        If removing Then
            Flash().Success = "Logged and removed from the list."
        ElseIf Not IsNull(followUp) Then
            Flash().Success = "Logged. Follow-up set for " & Date_Fmt(followUp) & "."
        Else
            Flash().Success = "Logged."
        End If
        Response.Redirect "/businesses/" & id
    End Sub

    '-------------------------------------------------------------------------------------------------------------------
    ' POST /businesses/:id/remove and /restore
    '-------------------------------------------------------------------------------------------------------------------
    Public Sub remove(id)
        GuardPost id
        BusinessRepository().Remove CLng(id), Left(Trim(F("reason")), 255)
        Flash().Success = "Removed from the list."
        Response.Redirect "/businesses/" & id
    End Sub

    Public Sub restore(id)
        GuardPost id
        BusinessRepository().Restore CLng(id)
        Flash().Success = "Restored."
        Response.Redirect "/businesses/" & id
    End Sub

    '-------------------------------------------------------------------------------------------------------------------
    ' Shared checks and helpers
    '-------------------------------------------------------------------------------------------------------------------
    Private Sub GuardPost(id)
        If Not Valid_Id(id) Then Response.Redirect "/404"
        If BusinessRepository().Find(CLng(id)) Is Nothing Then Response.Redirect "/404"
        If Not Csrf_Valid("business", F("csrf")) Then
            Flash().AddError "Invalid form state. Please try again."
            Response.Redirect "/businesses/" & id
        End If
    End Sub

    Private Function F(name)
        F = CStr(Request.Form(name))
    End Function

End Class

Dim BusinessesController_Class__Singleton
Function BusinessesController()
    If IsEmpty(BusinessesController_Class__Singleton) Then
        Set BusinessesController_Class__Singleton = New BusinessesController_Class
    End If
    Set BusinessesController = BusinessesController_Class__Singleton
End Function
%>