minor bug found

 

When you update a post that is an announcement. Accouncement is not preselected and so if you don't reslect it, it looses it annoucement status.

 

Sometimes you are just updating something minor after you post an annoucment, and if you forget to reselect the type as an annoucement, it goes back to the default selected which is a normal post.  minor, but annoying.

 

JohnnyJ

Notice that it will Say "Sticky Topic: [Normal Topic]" instead of "Annoucement (this forum)"  So if you forget to reselect it as an annoucment, it resaves as a normal topic, and you may not even realize it at first.

 

JohnnyJ

 

file: includes/message_form_inc.asp

 

=== start original code ===

 

 If (blnAdmin OR blnPriority) AND (strMode = "new" or strMode="editTopic" OR strMode = "editPoll" OR strMode = "poll" or strMode = "editPoll") Then

  Response.Write(" " & strTxtPriority & ":" & _
  vbCrLf & "    <select name=""priority"" id=""priority"">" & _
  vbCrLf & "     <option value=""0""")
  If intTopicPriority = 0 Then Response.Write(" selected")
  Response.Write(">" & strTxtNormal & "</option>" & _
  vbCrLf & "     <option value=""1""")
  If intTopicPriority = 1 Then Response.Write(" selected")
  Response.Write(">" & strTxtPinnedTopic & "</option>")

          'If this is the forum admin or moderator let them post an annoucment to this forum
          If blnAdmin = True OR blnModerator Then

   Response.Write(vbCrLf & "     <option value=""2""")
   If intTopicPriority = 2 Then Response.Write(" selected")
   Response.Write(""">" & strTopThisForum & "</option>")

         End If

          'If this is the forum admin let them post a priority post to all forums
          If blnAdmin = True Then

   Response.Write(vbCrLf & "     <option value=""3""")
   If intTopicPriority = 3 Then Response.Write(" selected")
   Response.Write(""">" & strTxtTopAllForums & "</option>")

  End If

 

=== end original code ===

 

The problem is an extra pair of double quotes that is being produced.

 

By changing the BOTH of two lines that read:

 

Response.Write(""">" & strTxtTopAllForums & "</option>")

 

to:

 

 

JohnnyJ