| Author |
 Topic  |
|
|
Lon
Starting Member
USA
47 Posts |
 Posted - 17 January 2008 : 16:21:24
|
I use the Events Calendar and I and my users love it. Has anybody removed the Recent Events Column? I don't need that and I'd like to extend the Upcoming Events into that column.
Lon |
|
|
TSAloha
Junior Member
USA
151 Posts |
Posted - 18 January 2008 : 11:43:39
|
Perhaps you can try below.
events_caldar_mod34-11
cal_config.asp lines 42~49
'----------------------------------------------------------------
' The Number of Upcoming/Recent Events to Display
' Default is 5
Const intCalEventstoDisplay = 5
'----------------------------------------------------------------
can change a value above for increasing a listing of events.
cal_default.asp line 148~149
" <TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont""><B>" & strCalRecent & "</B><BR/> " & vbNewLine
WriteRecentEvents
comment out WriteRecentEvents to disable a recent event list showing
|
|
 |
|
|
thermal_seeker
Junior Member
United Kingdom
430 Posts |
Posted - 18 January 2008 : 13:37:38
|
I commented these 3 lines out in cal_default a while back to remove the wording as well but couldn't seem to get it to use the old "recent events" column as well.
I also commented out lines 324-332 and 1299-1308 in cal.asp so it didnt display there.
Dave |
No good at coding, but I can plough a field !! |
|
|
|
Lon
Starting Member
USA
47 Posts |
Posted - 18 January 2008 : 15:46:35
|
Thanks thermal_seeker.
Let me know TSAloha if you figure out how to remove those words. |
|
|
|
thermal_seeker
Junior Member
United Kingdom
430 Posts |
Posted - 18 January 2008 : 16:17:08
|
commenting out those 3 lines in cal_default removed the words "Recent Events"
I just don't know how to get the "upcoming Events" to extend into the old 'recent events' column
Dave
|
No good at coding, but I can plough a field !! |
|
|
|
TSAloha
Junior Member
USA
151 Posts |
Posted - 18 January 2008 : 16:55:01
|
Let me try. I think
' Response.Write " </TD>" & vbNewLine & _
should not be commented out. This is a line closing <td> for upcoming events.
-------------------------------------------
If you are using the same layout as the original but want not to display a description for recent events, you can simply remove string strCalRecent, or a whole block, <B>" & strCalRecent & "</B>, to render null blank value.
If you want to change a table layout, you have to make changes to <td width=""33%""> which is used for a current day event list (line immediately after lines 48-49:
DrawMonth dateHolder,0,0,1
Response.Write " </TD>" & vbNewLine & _
at line 50:
" <TD width=""33%"" bgcolor=""" & strForumCellColor & """ vAlign=""top"" class=""cal_smallfont"">" & vbNewLine & _
and for upcoming events, at line 145 of lines 145~147:
Response.Write " </TD><TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont""><B>" & strCalUpcoming & "</B><BR/> " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine & _
the above is for if you want to get rid of a column layout space set for recent events all together.
------------
Cal.asp,
lines 329~334 in sub for Dailyview:
"<td bgColor=""" & strCategoryCellColor & """><font size=" & strDefaultFontSize & " color=" & strCategoryFontColor & ">" & _
"<b>" & strCalRecent & "</td></tr>" & _
" <tr><td bgcolor="& strAltForumCellColor &"> "
WriteRecentEvents
Response.Write _
" </td></tr></table>" & _
=> the last line, 334,
from
" </td></tr></table>" & _
to
" </td>" & _
"</tr></table>" & _
to allow a table layout for recent events to remain but remove <td></td> for a recent event listing. Or you can comment out a whole table containing recent events.
---------------------------------
in sub EventsListView, lines 1298~1312:
'Recent Events
Response.Write _
"<table border=""0"" cellSpacing=""0"" cellPadding=""0"">" & _
"<tr><td bgColor="""& strTableBorderColor &""">" & _
"<table width=""160px"" border=""0"" cellSpacing=""1"" cellPadding=""3"" class=""cal_smallfont"">" & _
"<tr align=center>" & _
"<td bgColor=""" & strCategoryCellColor & """>" & _
"<font size=" & strDefaultFontSize & " color=" & strCategoryFontColor & ">" & _
"<b>" & strCalRecent & "</td></tr>" & _
"<tr><td bgcolor="& strAltForumCellColor &"> "
WriteRecentEvents
Response.Write _
" </td></tr></table>" & _
"</td></tr></table>" & _
"<br />" & _
Above lines can be all commented out for "removing" displaying Recent Events.
but if you do this, you need to add Response.Write_ above the following line, 1313:
"</td></tr></table>" & _
or comment out all but Response.write_ immediately after writeRecent Events in the above lines 1298~1312.
I haven't touched any of these in my mod deployment. I have cretaed a vertical cal_default, with layout changes for a small month calendar, a current day event listing, etc. So be warned. Changing table layout may results in a unwarranted layout. So be careful. Someone else may have a better idea with better experience.
|
|
|
|
|
thermal_seeker
Junior Member
United Kingdom
430 Posts |
Posted - 18 January 2008 : 18:06:28
|
oops.. my mistake
I have now changed that block of code to
What I would like to do (and unless I'm mistaken) what Lon wants to do also is to utilise the space on the right of the recent events list by listing (lets say) 5 events and then another 5 to the right of it..
Dave
|
No good at coding, but I can plough a field !! |
|
|
|
TSAloha
Junior Member
USA
151 Posts |
Posted - 18 January 2008 : 20:56:37
|
Assume the below reference is for cal_default.asp lines 145-156
quote:
I have now changed that block of code to
Response.Write " </TD><TD width=""66%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont""><B>" & strCalUpcoming & "</B><BR/> " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine
' " <TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont""><B>" & strCalRecent & "</B><BR/> " &vbNewLine
'WriteRecentEvents
Response.Write " </TD></TR>" & vbNewLine & _
:
:
Since you commented out RecentEvents section, you may want to make
Response.Write " </TD>" & vbNewLine after WriteUpcomingEvents to:
Response.Write " </TD>" & vbNewLine & _
you still need to close <td> for Recent Events, re:
The last line above in the quote
Response.Write " </TD></TR>" & vbNewLine & _
for this:
if you make the above metioned change, this line can be commented out and you can add this below it
"</TR>" & vbNewLine & _
(rather than repeating Response.Write)
=======
A second item for a layout preference may need further tweaking for a mini-mod of this mod, which is bit beyond me at present, but surely need to touch on cal_config for setting a preferred max number of events, cal_functions for changing way events sorting is done, and cal.asp/cal_default for setting a max number of upcoming/recent events to show a range of upcoming events into two tables, with something like setting a cut off threshhold point for an overflow of events into another table.
Personally, I do not like to have cal_default showing up in forum default.asp as is - takes up too much of "realestate" whether it is placed at the top or bottom, thus, opted to create a vertical display of cal_default, so that I don't have to bother with this issue you are discussing. I have a vertical cal_default on the left of default.asp under inc_header.asp. This way, I can simply change max number of events to show and events details can be seen in Events Calendar category group or in Daily/Weekly/Monthly view. This way it is also easier to manage "public" events, members only/hidden, etc.
Hope someone else can point a better way for your layout design for this.
Take care.
|
|
|
|
|
thermal_seeker
Junior Member
United Kingdom
430 Posts |
Posted - 19 January 2008 : 03:59:56
|
Thanks for that
when I get time I will look into having it vertically on the left.
Dave |
No good at coding, but I can plough a field !! |
|
|
|
TSAloha
Junior Member
USA
151 Posts |
Posted - 19 January 2008 : 09:57:26
|
| Dave, if you are interested in playing with cal_default_ver.asp I created, I can send it to you. (use it at your own risk, though.) It can be used as include in a home page/portal if you have one to deploy it outside of the forums itself as well. Let me know. There is a little tweaking done in default.asp also to have it in default.asp in the left column/navigation. |
|
|
|
|
thermal_seeker
Junior Member
United Kingdom
430 Posts |
Posted - 19 January 2008 : 12:15:02
|
that would be good .. thank you 
Dave |
No good at coding, but I can plough a field !! |
|
|
|
TSAloha
Junior Member
USA
151 Posts |
Posted - 19 January 2008 : 13:13:49
|
| Plz respond to my email so that I can return my reply with a zip. |
|
|
|
| |
Topic |
|
Topic Locked
