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)
 Custom Topics Page code help		  New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 29 February 2004 :  22:11:24  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
After the following line:
	 "WHERE T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID "

add the following line:
"AND F.FORUM_ID>=50 AND F.FORUM_ID<=58 "
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  22:16:27  Show Profile  Send StephenD a Yahoo! Message
The page loads but shows no topics.
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  22:37:51  Show Profile  Send StephenD a Yahoo! Message
Stop! Working now. Something weird going on with my browser cache. Thank you OneWayMule.
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  22:47:20  Show Profile  Send StephenD a Yahoo! Message
Actually, not quite. It seems the page will only display the correct forums if I've opened the correct Category of Forums prior to opening the page.
Go to Top of Page

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 29 February 2004 :  23:25:35  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
Ah, seems I've forgotten the Group Categories code.

For an easy solution find the following code:
if strModeration = "1" and mLev > 2 then
	UnModeratedPosts = CheckForUnmoderatedPosts("BOARD", 0, 0, 0)
end if

and add the following code below it:
Group = 2
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  23:32:57  Show Profile  Send StephenD a Yahoo! Message
Seems to be the same OneWayMule.
Go to Top of Page

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 29 February 2004 :  23:39:17  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
Hmm... try this: remove the following code:
if Group > 1 and strGroupCategories = "1" then
	strSql = strSql & " AND (C.CAT_ID = 0"
	if recGroupCatCount <> "" then
		for iGroupCat = 0 to recGroupCatCount
			strSql = strSql & " or C.CAT_ID = " & allGroupCatData(1, iGroupCat)
		next
		strSql = strSql & ")"
	else
		strSql = strSql & ")"
	end if
end if
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  23:44:57  Show Profile  Send StephenD a Yahoo! Message
That's IT. Thank you so much OneWayMule. Could you see any other unnecessary code in my file?
Go to Top of Page

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 29 February 2004 :  23:49:46  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
Glad it's working!
quote:
Could you see any other unnecessary code in my file?

I'd say you won't need the subscriptions code:
' -- Get all the high level(board, category, forum) subscriptions being held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs
If MySubCount > 0 then
	strSubString = PullSubscriptions(0,0,0)
	strSubArray  = Split(strSubString,";")
	if uBound(strSubArray) < 0 then
		strBoardSubs = ""
		strCatSubs = ""
		strForumSubs = ""
		strTopicSubs = ""
	else
		strBoardSubs = strSubArray(0)
		strCatSubs = strSubArray(1)
		strForumSubs = strSubArray(2)
		strTopicSubs = strSubArray(3)
	end if
End If


Apart from that there's nothing I'd remove.
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts
Posted - 29 February 2004 :  23:53:13  Show Profile  Send StephenD a Yahoo! Message
Great stuff. Thank you.
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.25 seconds. Powered By: Snitz Forums 2000 Version 3.4.07