Return to 159.html CVS log

Up to [parser3project] / parser3 / tests

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

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