diff --git a/prv/modules/templates.scm b/prv/modules/templates.scm index 762b5c4..c082c80 100755 --- a/prv/modules/templates.scm +++ b/prv/modules/templates.scm @@ -130,7 +130,8 @@ (input (@ (type "submit") (name "submit") (value "Submit")))) ,@(cdr (apply append (map (lambda (board) - `(" ・ " (a (@ (href "/board/" ,(car board))) ,(string-append "/" (car board) "/")))) + `(" ・ " (a (@ (href "/board/" ,(car board))) ,(string-append "/" (car board) "/")) + ":" (a (@ (href "/catalog/" ,(car board)) (title ,(string-append "catalog of /" (car board) "/"))) "©"))) boards)))))) (define (index-tpl style style-menu admin news-block)