Return to 159.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/159.html, revision 1.2

1.2     ! misha       1: @main[][iYearFrom;iYearTo;iYear]
1.1       misha       2: $iYearFrom(1998)
                      3: $iYearTo(2027)
                      4: 
                      5: 
                      6: ^for[iYear]($iYearFrom;$iYearTo){
                      7:        ^printCalendar[$iYear;01]
1.2     ! misha       8:        ^printCalendar[$iYear;02]
1.1       misha       9:        ^printCalendar[$iYear;12]
                     10: }[<br />]
                     11: 
                     12: 
                     13: @printCalendar[iYear;iMontd]
                     14: $tWeek[^date:calendar[rus]($iYear;$iMontd)]
                     15: <table border="1" cellpadding="3">
                     16:        <caption>$iYear/$iMontd</caption>
                     17:        <tr>
                     18:                <td>Mo</td>
                     19:                <td>Tu</td>
                     20:                <td>We</td>
                     21:                <td>Th</td>
                     22:                <td>Fr</td>
                     23:                <td>Sa</td>
                     24:                <td>Su</td>
                     25:                <td><br /></td>
                     26:                <td>Week</td>
                     27:                <td>Year</td>
                     28:        </tr>
                     29:        ^tWeek.menu{
                     30:                <tr>
                     31:                        ^for[iWeekDay](0;6){
                     32:                                ^if($tWeek.$iWeekDay){
                     33:                                        $dt[^date::create($iYear;$iMontd;$tWeek.$iWeekDay)]
                     34:                                        $bOk(
                     35:                                                (($dt.weekday > 0 && $dt.weekday == $iWeekDay + 1) || ($dt.weekday == 0 && $iWeekDay == 6))
                     36:                                                && $dt.week == $tWeek.week
                     37:                                                && $dt.weekyear == $tWeek.year
                     38:                                        )
                     39:                                        <td^if(!$bOk){
                     40:                                                style="font-weight: bold^; color: red^;"
                     41:                                                title="W^dt.weekyear.format[%04d]-^dt.week.format[%02d]"
                     42:                                        }>$tWeek.$iWeekDay</td>
                     43:                                }{
                     44:                                        <td><br /></td>
                     45:                                }
                     46:                        }
                     47:                        <td>&nbsp^;</td>
                     48:                        <td>$tWeek.week</td>
                     49:                        <td>$tWeek.year</td>
                     50:                </tr>
                     51:        }
                     52: </table>