18 |
while ( my $db = $databases->next ) { |
while ( my $db = $databases->next ) { |
19 |
my $label = $db->name; |
my $label = $db->name; |
20 |
# $label .= ' [' . $db->dsn . ']' if ($edit); |
# $label .= ' [' . $db->dsn . ']' if ($edit); |
21 |
$l->child( $label => url => '/list/database/' . $db->id ); |
my $url = '/list/database/' . $db->id; |
22 |
|
my $path = Jifty->web->request->path; |
23 |
|
warn "url: $url path: $path\n"; |
24 |
|
$l->child( $label => url => $url => active => ( $url eq $path ) ); |
25 |
} |
} |
26 |
|
|
27 |
if ( Jifty->web->current_user->id ) { |
if ( Jifty->web->current_user->id ) { |