--- trunk/share/web/templates/list 2007/01/21 13:01:08 48
+++ trunk/share/web/templates/list 2007/01/21 14:00:28 53
@@ -34,11 +34,14 @@
% if ( $edit ) {
[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]
% }
-<%perl>
+
+ <%perl>
my $name = $q->on_database->dsn;
$name =~ s/^.*dbname=//;
- $m->out("$name");
-%perl>
+ $m->out("$name shema");
+ %perl>
+
+