Re: Witango-Talk: Calendar

Stefan Gonick Tue, 25 Apr 2006 07:56:25 -0700

Hi Rick,

Here are two sample files with calendars.

Stefan

At 10:46 AM 4/25/2006, Rick Sanders wrote:

Hello list,

Im just wondering if anyone has created a calendar in WiTango. Im doing an events calendar for a client. I can program it myself, but its much easier if someone has one to share.

Thanks in advance,

Rick Sanders
President
902-401-7689
www.webenergy-sw.com
________________________________________________________________________
TO UNSUBSCRIBE: Go to

http://www.witango.com/developer/maillist.taf
________________________________________________________________________
TO UNSUBSCRIBE: Go to http://www.witango.com/developer/maillist.taf

=====================================================
Database WebWorks: Dynamic web sites through database integration
http://www.DatabaseWebWorks.com

CoachVille: Great teleclasses on a wide range of topics!
http://www.cvcommunity.com?af=69474


<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE TAF SYSTEM "tango.dtd" >
<TAF Version="0x02000002">
        <Comments />

        <!--Main program-->
        <Program>
                <ActionRef Ref="Results" />
        </Program>

        <!--Program actions-->
        <Actions>
                <ResultAction ID="Results" Sig="null">
                        <ResultsOutput Ref="Results.Results" />
                </ResultAction>
        </Actions>

        <!--Data sources-->
        <DataSources />

        <!--Output blocks-->
        <Outputs>
                <Output ID="Results.Results" Type="HTML"><![CDATA[<body 
bgcolor="#ffffff">

<@IFEMPTY <@ARG year>>
        <@ASSIGN local$year <@CURRENTDATE FORMAT='%Y'>>
<@ELSE>
        <@ASSIGN local$year <@ARG year>>
</@IF>

<@ASSIGN NAME="local$month_array" VALUE="<@ARRAY ROWS='12' COLS='1' 
VALUE='31;28;31;30;31;30;31;31;30;31;30;31'>">
<@IF EXPR="(@@local$year % 4 = 0) AND ((@@local$year % 100 != 0) OR 
(@@local$year % 400 = 0))">
        <@ASSIGN local$month_array[2,1] "29">
</@IF>

<@IFEMPTY <@ARG month>>
        <@ASSIGN local$num_days @@local$month_array[<@CURRENTDATE 
FORMAT='%m'>,1]>
        <@ASSIGN local$month <@CURRENTDATE FORMAT='%m'>>
<@ELSE>
        <@ASSIGN local$num_days @@local$month_array[<@ARG month>,1]>
        <@ASSIGN local$month <@ARG month>>
</@IF>

<@ASSIGN local$month_info VALUE="@@local$month/1/@@local$year">
<@ASSIGN local$month_start <@VAR local$month_info FORMAT="datetime:%w">>

Month No: @@local$month<br>
Number of Days: @@local$num_days<br>
Year: @@local$year<br>
Month Info: @@local$month_info<br>

<@ASSIGN NAME="local$day_counter" VALUE="0">
<@ASSIGN NAME="local$month_day" VALUE="1">

<table border="0" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#333333">
        
        <table border="0" width="100%" cellpadding="2" cellspacing="1">
        <tr>
                <td colspan="7" align=center bgcolor="#cccccc">
                        <b><@VAR NAME="month_info" FORMAT="datetime:%B"></b>
                </td>
        </tr>
        <tr>
                <td width="10%" bgcolor="#ffffff">S</td>
                <td width="16%" bgcolor="#ffffff">M</td>
                <td width="16%" bgcolor="#ffffff">T</td>
                <td width="16%" bgcolor="#ffffff">W</td>
                <td width="16%" bgcolor="#ffffff">T</td>
                <td width="16%" bgcolor="#ffffff">F</td>
                <td width="10%" bgcolor="#ffffff">S</td>
        </tr>

        <@FOR START="1" STOP="<@CALC EXPR='ceil((@@local$num_days + 
@@local$month_start)/7)'>">
        <tr>

                <@FOR START="1" STOP="7">
                <@IF EXPR="(@@local$day_counter < @@local$month_start) OR 
(@@local$month_day > @@local$num_days)">
                        <td bgcolor="#ffffff"></td>
                <@ELSE>
                        <@ASSIGN local$temp_date 
VALUE="@@local$month/@@local$month_day/@@local$year">
                        <td valign="top" <@IF EXPR='<@VAR 
NAME="local$temp_date" FORMAT="datetime:%m/%d/%Y"> = <@CURRENTDATE>'>
                                bgcolor="#ffcccc">
                        <@ELSE>
                                bgcolor="#ffffff">
                        </@IF>
                        <b>@@local$month_day</b><br></td>
                        <@ASSIGN local$month_day <@CALC 
EXPR='@@local$month_day+1'>>
                </@IF>
                <@ASSIGN local$day_counter <@CALC EXPR='@@local$day_counter+1'>>
                </@FOR>
        </tr>
        </@FOR>
        </table>
</td>
</tr>
</table>


<@ASSIGN local$next_month <@CALC EXPR='@@local$month + 1'>>
<@ASSIGN local$next_year @@local$year>
<@ASSIGN local$prev_month <@CALC EXPR='@@local$month - 1'>>
<@ASSIGN local$prev_year @@local$year>

<@IF EXPR="@@local$next_month > 12">
        <@ASSIGN local$next_month "1">
        <@ASSIGN local$next_year <@CALC EXPR="@@local$year + 1">>
<@ELSEIF EXPR="@@local$prev_month < 1">
        <@ASSIGN local$prev_month "12">
        <@ASSIGN local$prev_year <@CALC EXPR="@@local$year - 1">>
</@IF>
<a 
href="<@CGIPATH><@APPFILE>?month=@@local$prev_month&year=@@local$prev_year">Previous</a>

<a 
href="<@CGIPATH><@APPFILE>?month=@@local$next_month&year=@@local$next_year">Next</a>
]]></Output>
        </Outputs>
</TAF>
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE TAF SYSTEM "tango.dtd" >
<TAF Version="0x02000002">
        <Comments />

        <!--Main program-->
        <Program>
                <ActionRef Ref="Results" />
        </Program>

        <!--Program actions-->
        <Actions>
                <ResultAction ID="Results" Sig="null">
                        <ResultsOutput Ref="Results.Results" />
                </ResultAction>
        </Actions>

        <!--Data sources-->
        <DataSources />

        <!--Output blocks-->
        <Outputs>
                <Output ID="Results.Results" Type="HTML"><![CDATA[<body 
bgcolor="#ffffff">

<@IFEMPTY <@ARG year>>
        <@ASSIGN local$year <@CURRENTDATE FORMAT='%Y'>>
<@ELSE>
        <@ASSIGN local$year <@ARG year>>
</@IF>

<@ASSIGN NAME="local$month_array" VALUE="<@ARRAY ROWS='12' COLS='1' 
VALUE='31;28;31;30;31;30;31;31;30;31;30;31'>">
<@IF EXPR="(@@local$year % 4 = 0) AND ((@@local$year % 100 != 0) OR 
(@@local$year % 400 = 0))">
        <@ASSIGN local$month_array[2,1] "29">
</@IF>

<@IFEMPTY <@ARG month>>
        <@ASSIGN local$num_days @@local$month_array[<@CURRENTDATE 
FORMAT='%m'>,1]>
        <@ASSIGN local$month <@CURRENTDATE FORMAT='%m'>>
<@ELSE>
        <@ASSIGN local$num_days @@local$month_array[<@ARG month>,1]>
        <@ASSIGN local$month <@ARG month>>
</@IF>

<@ASSIGN local$month_info VALUE="@@local$month/1/@@local$year">
<@ASSIGN local$month_start <@VAR local$month_info FORMAT="datetime:%w">>

Month No: @@local$month<br>
Number of Days: @@local$num_days<br>
Year: @@local$year<br>
Month Info: @@local$month_info<br>

<@ASSIGN NAME="local$day_counter" VALUE="0">
<@ASSIGN NAME="local$month_day" VALUE="1">

<table border="0" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#333333">
        
        <table border="0" width="100%" cellpadding="2" cellspacing="1">
        <tr>
                <td colspan="7" align=center bgcolor="#cccccc">
                        <b><@VAR NAME="month_info" FORMAT="datetime:%B"></b>
                </td>
        </tr>
        <tr>
                <td width="10%" bgcolor="#ffffff">S</td>
                <td width="16%" bgcolor="#ffffff">M</td>
                <td width="16%" bgcolor="#ffffff">T</td>
                <td width="16%" bgcolor="#ffffff">W</td>
                <td width="16%" bgcolor="#ffffff">T</td>
                <td width="16%" bgcolor="#ffffff">F</td>
                <td width="10%" bgcolor="#ffffff">S</td>
        </tr>

        <@FOR START="1" STOP="<@CALC EXPR='ceil((@@local$num_days + 
@@local$month_start)/7)'>">
        <tr>

                <@FOR START="1" STOP="7">
                <@IF EXPR="(@@local$day_counter < @@local$month_start) OR 
(@@local$month_day > @@local$num_days)">
                        <td bgcolor="#ffffff"></td>
                <@ELSE>
                        <@ASSIGN local$temp_date 
VALUE="@@local$month/@@local$month_day/@@local$year">
                        <td valign="top" <@IF EXPR='<@VAR 
NAME="local$temp_date" FORMAT="datetime:%m/%d/%Y"> = <@CURRENTDATE>'>
                                bgcolor="#ffcccc">
                        <@ELSE>
                                bgcolor="#ffffff">
                        </@IF>
                        <b>@@local$month_day</b><br></td>
                        <@ASSIGN local$month_day <@CALC 
EXPR='@@local$month_day+1'>>
                </@IF>
                <@ASSIGN local$day_counter <@CALC EXPR='@@local$day_counter+1'>>
                </@FOR>
        </tr>
        </@FOR>
        </table>
</td>
</tr>
</table>


<@ASSIGN local$next_month <@CALC EXPR='@@local$month + 1'>>
<@ASSIGN local$next_year @@local$year>
<@ASSIGN local$prev_month <@CALC EXPR='@@local$month - 1'>>
<@ASSIGN local$prev_year @@local$year>

<@IF EXPR="@@local$next_month > 12">
        <@ASSIGN local$next_month "1">
        <@ASSIGN local$next_year <@CALC EXPR="@@local$year + 1">>
<@ELSEIF EXPR="@@local$prev_month < 1">
        <@ASSIGN local$prev_month "12">
        <@ASSIGN local$prev_year <@CALC EXPR="@@local$year - 1">>
</@IF>
<a 
href="<@CGIPATH><@APPFILE>?month=@@local$prev_month&year=@@local$prev_year">Previous</a>

<a 
href="<@CGIPATH><@APPFILE>?month=@@local$next_month&year=@@local$next_year">Next</a>
]]></Output>
        </Outputs>
</TAF>
________________________________________________________________________
TO UNSUBSCRIBE: Go to http://www.witango.com/developer/maillist.taf

Re: Witango-Talk: Calendar

Reply via email to