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 DEV-Group
 DEV Discussions (General)
 Bug in inc_func_common.asp		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

SirZooro
Starting Member

Poland
12 Posts
Posted - 19 January 2004 :  07:03:11  Show Profile
Message like "aaa [ url ] bbb [ /url ] ccc [ /url ] is displayed incorectly.

Find (about line 1059):

				If UCase(Left(strArray2(0), 7)) = "http://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 1) & strArray2(1)
				ElseIf UCase(Left(strArray2(0), 8)) = "https://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 2) & strArray2(1)
				ElseIf UCase(Left(strArray2(0), 4)) = "WWW." Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 3) & strArray2(1)
				ElseIf UCase(Left(strArray2(0), 7)) = "MAILTO:" Then
					'ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1)
					ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
				ElseIf UCase(Left(strArray2(0), 6)) = "ftp://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 5) & strArray2(1)
				ElseIf InStr(strArray2(0), "@") > 0 Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4) & strArray2(1)
				ElseIf UCase(Left(strArray2(0), 6)) = "file:///" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 7) & strArray2(1)
				Else
					ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
				End If


Replace with:

				If UCase(Left(strArray2(0), 7)) = "http://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 1)
				ElseIf UCase(Left(strArray2(0), 8)) = "https://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 2)
				ElseIf UCase(Left(strArray2(0), 4)) = "WWW." Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 3)
				ElseIf UCase(Left(strArray2(0), 7)) = "MAILTO:" Then
					'ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4)
					ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag
				ElseIf UCase(Left(strArray2(0), 6)) = "ftp://" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 5)
				ElseIf InStr(strArray2(0), "@") > 0 Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 4)
				ElseIf UCase(Left(strArray2(0), 6)) = "file:///" Then
					ReplaceURLs = ReplaceURLs & edit_hrefs(strArray2(0), 7)
				Else
					ReplaceURLs = ReplaceURLs & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag
				End If
				For nTab = 1 To UBound(strArray2)
					ReplaceURLs = ReplaceURLs & strArray2(nTab)
				Next

Best regards,
Sir Zooro

RichardKinser
Snitz Forums Admin

USA
16655 Posts
Posted - 19 January 2004 :  07:09:13  Show Profile
this isn't a bug. It was done that way on purpose. When we last worked on the URL conversion code, it was discussed, and this is how we decided to have it function.
Go to Top of Page
  Previous Topic Topic Next Topic  
 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.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07