| T O P I C R E V I E W |
| bobby131313 |
Posted - 16 February 2008 : 19:09:19
Does anyone have a copy of this mod anywhere? The links are dead, I installed it eons ago and now want to try and add it to the User Space mod.
Thanks in advance.< |
| 15 L A T E S T R E P L I E S (Newest First) |
| bobby131313 |
Posted - 22 February 2008 : 15:06:28
There's also 2 lines on topic.asp (search "edited by") that I changed to..
Makes better sense in all the scenarios. You don't get "Edited by Joe Blow on 43 minutes ago"
< |
| blackinwhite |
Posted - 22 February 2008 : 15:00:18
quote:
Originally posted by Andy Humm
Great so far, but is there a small tweak that will alter the way the Statistics post with the 'last post 5hr. 33 min. ago 10:19:40 by: webmaster'
be changed to show 'last post 5hr. 33min. ago by: webmaster'
In other words when the date post is today it removed the time of post element.
But obviously any other posting time ie yesterday and previous dates the stats still shows post time.
kindest regards andy
I have changed chkTime function in inc_func_common.asp, try this;
function chkTime(fTime)
if fTime = "" or isNull(fTime) then
exit function
end If
If left(fTime,8) = left(DateToStr(strForumTimeAdjust),8) then
minutesTotal = datediff("n",strtodate(fTime),strForumTimeAdjust)
hoursTotal = int(minutesTotal / 60)
daysSince = int(hoursTotal / 24)
hoursSince = hoursTotal mod 24
minutesSince = minutestotal mod 60
' if daysSince = 1 then ChkTime = ChkTime & daysSince & " gün, "
' if daysSince > 1 then ChkTime = ChkTime & daysSince & " gün, "
if hoursSince = 1 then ChkTime = ChkTime & hoursSince & " hour, "
if hoursSince > 1 then ChkTime = ChkTime & hoursSince & " hours, "
ChkTime = ChkTime & minutesSince & " minutes ago."
else
if strTimeType = 12 then
if cLng(Mid(fTime, 9,2)) > 12 then
chkTime = ChkTime & " " & _
(cLng(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 12 then
chkTime = ChkTime & " " & _
cLng(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 0 then
chkTime = ChkTime & " " & _
(cLng(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
else
chkTime = ChkTime & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
end if
else
ChkTime = ChkTime & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
end If
End if
< |
| Andy Humm |
Posted - 22 February 2008 : 14:11:47
Great so far, but is there a small tweak that will alter the way the Statistics post with the 'last post 5hr. 33 min. ago 10:19:40 by: webmaster'
be changed to show 'last post 5hr. 33min. ago by: webmaster'
In other words when the date post is today it removed the time of post element.
But obviously any other posting time ie yesterday and previous dates the stats still shows post time.
kindest regards andy< |
| blackinwhite |
Posted - 20 February 2008 : 12:44:12
quote:
Originally posted by Shaggy
quote:
Originally posted by blackinwhite
what I mean is more like this one
http://www.tanguay.info/web/codeExample.php?id=543
Might take a crack at a mod that does that soon, if I've the time.
great news, thank you.< |
| Shaggy |
Posted - 19 February 2008 : 04:24:40
quote:
Originally posted by blackinwhite
what I mean is more like this one
http://www.tanguay.info/web/codeExample.php?id=543
Might take a crack at a mod that does that soon, if I've the time.
< |
| cripto9t |
Posted - 18 February 2008 : 17:32:28
I need to go through the code and change everything that compares dates, to use StrToDate()< |
| cripto9t |
Posted - 18 February 2008 : 17:27:36
quote:
Originally posted by blackinwhite
is it possible to get it forward like;
if it's today, just say "2 hours ago" ?
The code I posted above does this. If you want something that goes farther back, I have some code that looks like it might do that. Its old and I've forgot if it works or not.< |
| bobby131313 |
Posted - 18 February 2008 : 17:18:11
Ha! Changed that line too and all seems swell so far!
Thanks!< |
| bobby131313 |
Posted - 18 February 2008 : 17:13:44
No I didn't see that.  However that fixes the bookmarks but breaks the drafts. 
quote:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'strEditDate'
/forum/user_space.asp, line 658
middle line...
< |
| cripto9t |
Posted - 18 February 2008 : 17:05:20
quote:
Originally posted by bobby131313
if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true
Bobby I posted this in the user space topic, you might have missed it. Use this insteadif DateDiff("d",StrToDate(eDate),strForumTimeAdjust) <= intIsNew then blnDate = true< |
| bobby131313 |
Posted - 18 February 2008 : 17:00:27
quote:
Almost, works with everything but the bookmarks now, we're close...
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "Yesterday 11:46:05 P"]'
/forum/user_space.asp, line 1313
Line 1313
if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true
Function that includes line 1313...
Function ChkIsRecent(eDate)
dim blnDate
blnDate = false
if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true
ChkIsRecent = blnDate
End Function
Examining the file it looks like this function is only used to determine the icon used (new or old) so it appears that if on this line I could also check the chkDate value for "ago" and "Yesterday" and set it to true if they exist then I'd be in business. If I had an idea how to do this I'd just try it. Does any of this make sense?< |
| blackinwhite |
Posted - 18 February 2008 : 11:42:28
what I mean is more like this one
http://www.tanguay.info/web/codeExample.php?id=543< |
| blackinwhite |
Posted - 18 February 2008 : 11:14:16
is it possible to get it forward like;
if it's today, just say "2 hours ago" ?< |
| bobby131313 |
Posted - 18 February 2008 : 11:05:17
Almost, works with everything but the bookmarks now, we're close...
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "Yesterday 11:46:05 P"]'
/forum/user_space.asp, line 1313
Line 1313
if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true
< |
| bobby131313 |
Posted - 18 February 2008 : 10:45:40
OK, made these changes and the hour/minute is only working prior to midnight and < 24 hours ago forum time.
The others after midnight, some say Today and some say 2/18. Hmmm...
http://www.coincommunity.com/forum/
Never mind, had an errant paste problem. < |
|
|
