--- trunk/lib/SQLSession/Dispatcher.pm	2007/01/21 12:40:13	46
+++ trunk/lib/SQLSession/Dispatcher.pm	2007/01/28 11:36:37	75
@@ -9,7 +9,7 @@
 
 before '*' => run {
 	my $top = Jifty->web->navigation;
-	my $edit = Jifty->config->app('edit');
+	my $edit = Jifty->web->current_user->role('edit');
 	$top->child( 'New' => url => '/new' ) if ($edit);
 	my $l = $top->child( 'List' => url => '/list' );
 
@@ -18,7 +18,10 @@
 	while ( my $db = $databases->next ) {
 		my $label = $db->name;
 #		$label .= ' [' . $db->dsn . ']' if ($edit);
-		$l->child( $label => url => '/list/database/' . $db->id );
+		my $url = '/list/database/' . $db->id;
+		my $path = Jifty->web->request->path;
+#		warn "url: $url path: $path\n";
+		$l->child( $label => url => $url => active => ( $url eq $path ) );
 	}
 
 	if ( Jifty->web->current_user->id ) {
@@ -28,6 +31,11 @@
 		$top->child( 'Signup' => url => '/signup' );
 	}
 
+	if ( Jifty->web->current_user->role( 'admin' ) ) {
+		$top->child( 'Docs' => url => '/__jifty/online_docs/' );
+		$top->child( 'Administration' => url => '/__jifty/admin/' );
+	}
+
 };
 
 
@@ -37,7 +45,7 @@
 	my $q = SQLSession::Model::Query->new();
 	$q->load( $1 ) or next_rule;
 
-	warn "q = ",dump( $q );
+#	warn "q = ",dump( $q );
 
 	set sql_query => $q->sql_query;
 	set name => $q->name;