Mod: Priv Messages to/from admin will alway work

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Line 150ish

'Initalise the SQL string with a query to read in the dteails of who the PM is to
strSQL = "SELECT " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_email, " & strDbTable & "Author.PM_notify " & _
"FROM " & strDbTable & "Author" & strDBNoLock & " " & _
"WHERE " & strDbTable & "Author.Username = '" & strToUsername & "';"

Changes to:

'Initalise the SQL string with a query to read in the dteails of who the PM is to
strSQL = "SELECT " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_email, " & strDbTable & "Author.PM_notify, " & strDbTable & "Author.Group_ID " & _
"FROM " & strDbTable & "Author" & strDBNoLock & " " & _
"WHERE " & strDbTable & "Author.Username = '" & strToUsername & "';"

Line 159ish

If NOT rsCommon.EOF Then

    'Username found so set to true
    blnToUsernameOK = True

Changes to:

If NOT rsCommon.EOF Then
    Dim intAuthorGroupID
    intAuthorGroupID = rsCommon("Group_ID")

    'Username found so set to true
    blnToUsernameOK = True

Line 209ish

    If NOT rsCommon.EOF Then
        If (CInt(rsCommon("CountOfPM")) < intNumPrivateMessages) OR lngLoggedInUserID = 1 OR lngToUserID = 1 Then blnMaxPMsOK = True
    'Else if no records returened they have no pm's set set blnMaxPMsOK to true anyway (it's intilised to false at the top)
    Else
        blnMaxPMsOK = True
    End If

Changes to:

    If NOT rsCommon.EOF Then
        If (CInt(rsCommon("CountOfPM")) < intNumPrivateMessages) OR intAuthorGroupID = 1 OR intGroupID = 1 Then blnMaxPMsOK = True
    'Else if no records returened they have no pm's set set blnMaxPMsOK to true anyway (it's intilised to false at the top)
    Else
        blnMaxPMsOK = True
    End If

This basically makes it so if you're set as an admin your pm's will always go through. Also if a user tries to pm an admin and their box is full, it'll still go through.

This originally works only for user 1 (the creator), this now works off the admin group.