Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Topics you've started or replied to		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Webbo
Average Member

United Kingdom
982 Posts
Posted - 04 January 2013 :  17:40:47  Show Profile  Visit Webbo's Homepage  Reply with Quote
How easy would it be to add a fifth folder image to identify topics that you have started or replied to in forum.asp similar to some php boards where the topic shows a star at the side of it if you have previously posted in that topic?

Currently forum.asp shows images for:
New posts since last logon.
Old Posts. ( 25 replies or more.)
Locked topic.

The fifth image would be: Topics you have contributed to

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 05 January 2013 :  04:30:48  Show Profile  Reply with Quote
That's a fairly easy one, Webbo. I'll write it today for you.
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 05 January 2013 :  16:16:49  Show Profile  Visit Webbo's Homepage  Reply with Quote
That would be appreciated
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 05 January 2013 :  16:47:20  Show Profile  Visit Webbo's Homepage  Reply with Quote
If it helps, here is a folder icon that could be used:


icon_folder_contributed.gif
Edited by - Webbo on 05 January 2013 16:51:41
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 06 January 2013 :  05:33:44  Show Profile  Reply with Quote
OK, here it is. I placed a copy on SnitzBitz.

1. Copy Webbo's image from above to your image directory, titled "icon_folder_contributed.gif". Here's an alternative image:


2. Make the following code changes.

"forum.asp"


Look for the following lines (appx 490-497):

				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					' DEM --> end of code Added for topic moderation

Below those, insert these:

				'	##	Contributed Below
				elseif intPart = 1 then
					Response.Write	getCurrentIcon(strIconFolderContributed,"Contributed","hspace=""0""")
				'	##	Contributed Above

Look for the following lines (appx 477-479):

		if AdminAllowed = 1 and Topic_UReplies > 0 then
			Topic_Replies = Topic_Replies + Topic_UReplies
		end if

Below those, insert these:

		'	##	Contributed Below
		intPart=0
		strSqlP="SELECT R_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " AND R_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		strSqlP="SELECT T_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPIC_ID & " AND T_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		'	##	Contributed Above


"inc_iconfiles.asp"


Look for the following line (appx 64):

Const strIconFolderClosedTopic = "icon_folder_closed_topic.gif|15|15"

Below that, insert these:

'	##	Contributed Below
Const strIconFolderContributed = "icon_folder_Contributed.gif|15|15"
'	##	Contributed Above
Edited by - Carefree on 06 January 2013 06:14:41
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 06 January 2013 :  17:20:08  Show Profile  Visit Webbo's Homepage  Reply with Quote
Nice work Carefree

The following needs adding to forum.asp 

'  ## Contributed Below
Response.Write"         " & getCurrentIcon(strIconFolderContributed,"Contributed","align=""absmiddle""") & " Topics you have contributed to.<br />" & vbNewLine
            '  ## Contributed Above


After:

Response.Write "                " & getCurrentIcon(strIconFolderLocked,"Locked Topic","align=""absmiddle""") & " Locked topic.<br />" & vbNewLine


in order to show the folder description at the bottom of forum.asp



Also, some code changes need to be made to active.asp to show topics contributed to. I'll have a look at that shortly unless you beat me to it
Edited by - Webbo on 06 January 2013 17:21:16
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 06 January 2013 :  17:37:11  Show Profile  Visit Webbo's Homepage  Reply with Quote
In active.asp find:

Response.Write    getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""") & "</a>" & vbNewline
            elseif Topic_Status = 3 then
               HeldFound = "Y"
               Response.Write    getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""") & "</a>" & vbNewline



Look for the following lines (appx 490-497):

				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					' DEM --> end of code Added for topic moderation


Below those, insert these:

'	##	Contributed Below
				elseif intPart = 1 then
					Response.Write	getCurrentIcon(strIconFolderContributed,"Contributed","hspace=""0""")
				'	##	Contributed Above



Find:
if canView then
         if ModerateAllowed = "Y" and Topic_UReplies > 0 then
            Topic_Replies = Topic_Replies + Topic_UReplies
         end if


Below those, insert these:

		'	##	Contributed Below
		intPart=0
		strSqlP="SELECT R_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " AND R_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		strSqlP="SELECT T_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPIC_ID & " AND T_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		'	##	Contributed Above



Find:
Response.Write "                " & getCurrentIcon(strIconFolderLocked,"Locked Topic","align=""absmiddle""") & " Locked topic.<br />" & vbNewLine



Below those, insert these:

'  ## Contributed Below
Response.Write"         " & getCurrentIcon(strIconFolderContributed,"Contributed","align=""absmiddle""") & " Topics you have contributed to.<br />" & vbNewLine
            '  ## Contributed Above



I haven't included line numbers as a lot of my code has been modified so the line numbers would be irrelevant to many
Edited by - Webbo on 06 January 2013 17:38:25
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 06 January 2013 :  17:58:57  Show Profile  Visit Webbo's Homepage  Reply with Quote
A better folder image to the one I originally posted is below:
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 06 January 2013 :  18:10:48  Show Profile  Visit Webbo's Homepage  Reply with Quote
My OCD is now taking over - what about a 'New posts since last logon that you've contributed to' folder purple one with a yellow star

It's late, I'm off to bed
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 07 January 2013 :  06:23:38  Show Profile  Visit HuwR's Homepage  Reply with Quote
quote:
Originally posted by Webbo

My OCD is now taking over - what about a 'New posts since last logon that you've contributed to' folder purple one with a yellow star

It's late, I'm off to bed

Isn't that already in your profile
MVC .net dev/test site | MVC .net running on Raspberry Pi
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.1 seconds. Powered By: Snitz Forums 2000 Version 3.4.07