set y [lindex $yearlist $i]
set title "\u0424\u043e\u0442\u043e\u0430\u0440\u0445\u0438\u0432 $y \u0433\u043e\u0434"
set yearindex "<HTML><HEAD><TITLE>$title</TITLE><HEAD>"
- append yearindex "<table border=0><tr><td align=left>"
+ append yearindex "<table border=0 width=\"100%\"><tr><td align=left>"
append yearindex [nextyearlink [lindex $yearlist [expr $i+1]]]
- append yearindex "</td><td align=\"right\">"
+ append yearindex "</td><td align=\"center\"><a href=\"..\">back</a></td><td align=\"right\">"
append yearindex [nextyearlink [lindex $yearlist [expr $i-1]]]
append yearindex "</td><tr></table\n><h1>$title</h1>\n<ul>"
set dircount [llength $a($y)]