[mhtml]
<!-- Ändra inte i denna fil!  -->
<!-- Do not edit this file!   -->
<!-- Denna fil genereras av kommandona "course join" och "course leave"   -->

<!-- Om du gör en egen hemsida i MHTML/HTML kan du göra -->
<!-- en länk till denna sida med -->
<!-- [länk /~mayhem/course-home-page.html "Kurshemsida"] -->

[uppreferensdef "Nadas ingångssida" "http://www.nada.kth.se"]
[set my_name "Magnus Helin"
 set my_email "mayhem@nada.kth.se"
 set my_home_page "/~mayhem/"
set my_course_vector(1) {grudat03 http://www.nada.kth.se/kurser/kth/2D1344/ "Grundläggande datalogi"}
set my_course_vector(2) {numf04 http://www.nada.kth.se/kurser/kth/2D1240/03-04/F/ "Numeriska metoder, grundkurs 2 för F2"}
 null]
<!-- /info/etc/course-home-page-skeleton.mhtml -->
<!-- Fungerar inte självständigt - måste kompletteras här i början! -->

[
proc courserefexpand {course_v_name} {
    upvar $course_v_name course_v
    set res ""
    foreach el [array names course_v] {
	append res "[länk [lindex $course_v($el) 1] [lindex $course_v($el) 0]]\n"
	append res "- [lindex $course_v($el) 2]\n[stycke]\n"
    }
    return $res
}

proc own_home_page_refexpand {ref name} {
    if {[string length "$ref"] > 0} {
	return "[länk $ref "min hemsida"] (${name}s)"
    } else {
	return ""
    }
}
]

[dokumenthuvud "Kurshemsida för $my_name" $my_email]
[bildserver "www.student.nada.kth.se"]

[bild http://www.student.nada.kth.se/bilder/Nadasymbol/Nada.gif "Nada" höger]

[typ h2 "Personlig kurshemsida"]

[typ h3 "Aktuella Nadakurser för $my_name"]
[courserefexpand my_course_vector]

[streck]

[typ h3 "Utbildningssidor"]
[länk http://www.nada.kth.se/utbildning/ "Nadas allmänna utbildningssida"],
[länk http://www.nada.kth.se/utbildning/grukth/ "Nadas teknologsida"],
[länk http://www.nada.kth.se/utbildning/grusu/ "Nadas SU-sida"],
[länk http://www.nada.kth.se/utbildning/grukth/schema/ "Nadaschemat"],
[länk http://www.nada.kth.se/utbildning/datorsalar/ "Nadas datorsalar"].
[radbyte]
[länk http://www.kth.se/utbildning/schema/ "KTH-schemat"],
[länk http://www.kth.se/student/studiehandbok/ "KTH-studiehandboken"],
[länk http://www.kth.se/student/ping/ "KTH-ping"].

[typ h3 "Länkar"]

[liststart kula]
[li] Nadas [länk http://www.nada.kth.se/student/ "studentsida"]
[li] Allmänna [länk http://www.nada.kth.se/ "Nadaingångssidan"]
[li] [own_home_page_refexpand $my_home_page $my_name]
[listslut]

[stycke]
[uppreferens]
[dokumentslut]