CopyPasteCalendarPLwithList

>>lframe background-color=white padding-left=10px padding-top=10px padding-right=10px padding-bottom=5px<<
'''Live Demo'''
(:pagelist fmt=PLCalDemo.CopyPasteCalendar#calinclude \
ListYear={(ftime fmt="%Y")} ListMonth={(ftime fmt="%m")} \
count=1 request=1 \
CalStyle="width:400px;" \
CalTableStyle="border-spacing:5px;width:400px; \
CalHeadStyle="text-align:left;padding-left:5px; \
border:1px solid silver;height:25px;" \
CalBoxStyle="width:45px;height:45px;padding:3px; \
border:1px solid silver; \
background-color:WhiteSmoke;font-size:10px;" \
CalEventCount=0:)

!!!All Events of this Month:
(:pagelist fmt=#listcal ListYear={(ftime fmt="%Y")} \\
ListMonth={(ftime fmt="%m")} group=PLCalDemo request=1:)

(:if false:)
[[#listcal]]
(:if2 [ equal {$$ListYear}{$$ListMonth} {(substr {=$Name} 0 6)} && \\
equal {(strlen {=$Name})} 8 ]:)
[[{=$Group}/{=$Name}|{(ftime fmt="%F" when="{=$Name}")} \\
{=$:Summary}]] [[<<]]
(:if2end:)
[[#listcalend]]
(:ifend:)

!!!All Future Events:
(:pagelist fmt=#listcalall if="date ..'{=$Name}'" group=PLCalDemo:)

(:if false:)
[[#listcalall]]
[[{=$Group}/{=$Name}|{(ftime fmt="%F" when="{=$Name}")} {=$:Summary}]] [[<<]]
[[#listcalallend]]
(:ifend:)
>><<