[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 /~f99-ahi/course-home-page.html "Kurshemsida"] -->

[uppreferensdef "Nadas ing�ångssida" "http://www.nada.kth.se"]
[set my_name "Arifali Hirji"
 set my_email "f99-ahi@nada.kth.se"
 set my_home_page ""
set my_course_vector(1) {progk99 http://www.nada.kth.se/kurser/kth/2D1342/ "Programkonstruktion f�ör F1"}
set my_course_vector(2) {numf01 http://www.nada.kth.se/kurser/kth/2D1240/00-01/F/ "Numeriska metoder, grundkurs 2 f�ör F2"}
set my_course_vector(3) {numf02 http://www.nada.kth.se/kurser/kth/2D1240/01-02/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 "Samtliga Nadakurser"]
[l�änk http://www.nada.kth.se/kurser/ "Nadas alla kurser"]

[typ h3 "L�änkar"]

Nadas [l�änk http://www.nada.kth.se/student-sv.html "studentsida"], 
den allm�änna [l�änk http://www.nada.kth.se/ "Nadaing�ångssidan"],
[own_home_page_refexpand $my_home_page $my_name]

[stycke]
[uppreferens]
[dokumentslut]