User:TaxonBot/tennis3.tcl
Turniere}}
}
set portalm {
ATP Tour 2020
§| class="wikitable" style="font-size:90%"
|-
! width="50px" |Datum
! width="195px" |Ort
! width="280px" |Turnier
! width="210px" |Serie
! width="145px" |Belag}
set portalf {
WTA Tour 2020
§| class="wikitable" style="font-size:90%"
|-
! width="50px" |Datum
! width="195px" |Ort
! width="280px" |Turnier
! width="210px" |Serie
! width="145px" |Belag}
set d1 [clock add [clock seconds] -1 day] set d4 [clock add [clock seconds] 4 weeks]
append portalpage $portalm
foreach ev $atp { dict with ev { if {$date eq {31.12.}} {set year 2019} else {set year 2020} set tf [clock scan $date.$year -format %d.%m..%Y] set tt [clock scan $dur.2020 -format %d.%m..%Y] if {$tt > $d1 && $tf < $d4} { switch $ser { fin {append portalpage "\n|- style=\"background:#ffffcc;\"\n| $date\n| $loc\n| $t\n| \[\[ATP World Tour Finals\]\]\n| $f"} gs {append portalpage "\n|- style=\"background:#e5d1cb;\"\n| $date\n| $loc\n| $t\n| \[\[Grand Slam (Tennis)|Grand Slam\]\]\n| $f"} 1000 {append portalpage "\n|- style=\"background:#dfe2e9;\"\n| $date\n| $loc\n| $t\n| \[\[ATP World Tour Masters 1000\]\]\n| $f"} 500 {append portalpage "\n|- style=\"background:#d1eeee;\"\n| $date\n| $loc\n| $t\n| \[\[ATP World Tour 500\]\]\n| $f"} 250 {append portalpage "\n|-\n| $date\n| $loc\n| $t\n| \[\[ATP World Tour 250\]\]\n| $f"} } } } }
append portalpage \n|\}\n$portalf
foreach ev $wta { dict with ev { if {$date in {30.12. 31.12.}} {set year 2019} else {set year 2020} set tf [clock scan $date.$year -format %d.%m..%Y] set tt [clock scan $dur.2020 -format %d.%m..%Y] if {$tt > $d1 && $tf < $d4} { switch $ser { fin {append portalpage "\n|- style=\"background:#ffa500;\"\n| $date\n| $loc\n| $t\n| Jahresendveranstaltung\n| $f"} gs {append portalpage "\n|- style=\"background:#ffff40;\"\n| $date\n| $loc\n| $t\n| \[\[Grand Slam (Tennis)|Grand Slam\]\]\n| $f"} prm {append portalpage "\n|- style=\"background:#ff8247;\"\n| $date\n| $loc\n| $t\n| Premier Mandatory\n| $f"} pr5 {append portalpage "\n|- style=\"background:#d1eeee;\"\n| $date\n| $loc\n| $t\n| Premier 5\n| $f"} pr {append portalpage "\n|- style=\"background:#dfe2d9;\"\n| $date\n| $loc\n| $t\n| Premier\n| $f"} int {append portalpage "\n|-\n| $date\n| $loc\n| $t\n| International\n| $f"} } } } }
append portalpage \n|\}\n
if {[set portalpage [string map {§ \{} $portalpage]] ne [conts id 6901998 x]} { puts [edid 6901998 {Bot: Aktualisierung} $portalpage / minor] }
</source> -->