--- lib/A3C/View/Strix.pm	2008/06/16 13:16:57	171
+++ lib/A3C/View/Strix.pm	2008/06/16 13:32:01	172
@@ -107,6 +107,49 @@
 
 };
 
+=head2 sitemap
+
+=cut
+
+template 'sitemap' => page {
+
+	title is _('Sitemap');
+
+	my $strix = Strix->new({ site => 'new' });
+	my $sitemap = $strix->site_navigation( 1 );
+
+	sub full_url {
+		my $p = shift;
+		hyperlink(
+			url => 'http://new.cms-qa.skole.hr' . $p->{url}, 
+			label => $p->{naziv},
+		);
+	}
+
+	sub children {
+		my $c = shift;
+		return unless defined $c->{children};
+		ul {
+			foreach my $p ( @{ $c->{children} } ) {
+				li {
+					full_url( $p );
+					children( $p );
+				}
+			}
+		}
+	}
+
+	ul {
+		foreach my $p ( @$sitemap ) {
+			li {
+				full_url( $p );
+				children( $p );
+			}
+		}
+	}
+
+};
+
 =head1 REGIONS
 
 =head2 execute-sql