ad_page_contract {

    @title Albums
    @author tom jackson (tom@junom.com)
    @creation-date Februrary 10, 2004
    @cvs-id $Id$

} {

    base:trim,notnull

}


set years [glob -nocomplain -types {d} -directory "$base" "*"]



foreach year $years {
    set months [glob -nocomplain -types {d} -directory "$year" "*"]
    
    set nice_year [file tail $year]
    append output "
<style type=\"text/css\">
/* <!\[CDATA\[ */ 
@import \"/css/tigris.css\";
@import \"/css/inst.css\"; 
/*  \]\]> */
</style>

<div>
 <div class=\"leafnode\">$nice_year"
    
    foreach month $months {
	set nice_month [file tail $month]
	set days [glob -nocomplain -types {d} -directory "$month" "*"]
	append output "
  <div class=\"leafnode\">$nice_month"
	foreach day $days {
	    set nice_day [file tail $day]
	    append output "
    <div class=\"leaf\"><a href=\"/ph/$nice_year/$nice_month/$nice_day/\">$nice_day</a>
    </div>"
	    lappend albums $day
	}
	append output "
  </div>"
    }
    append output "
 </div>"
    

}
append output "
</div>"


ad_return_template