--- m/menu.pl 2001/10/10 12:00:18 1.6 +++ m/menu.pl 2001/11/05 10:47:10 1.7 @@ -35,7 +35,7 @@ sub dump_gif { my ($text, $type, $file) = @_; $type ||= TYPE_NONE; - $file ||= $text; + $file ||= "$text-$type"; $file =~ s/[^a-zA-Z0-9\-]/_/g; $file = lc($file); print "$text" unless ($file eq "-"); @@ -105,6 +105,7 @@ #dump_gif("NOVOSTI", TYPE_LINE, "-"); #exit $?; +# my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "", "") || die $DBI::errstr; my $sth = $dbh->prepare("SELECT section,item,url,level,num FROM menu") ||