From c8f9e3aa4ffd44d4cdf750e239325a4295c509cd Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Tue, 28 Feb 2012 21:43:52 +0100 Subject: unicode, cont --- videoadd.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'videoadd.pl') diff --git a/videoadd.pl b/videoadd.pl index d76ad14..bb70614 100755 --- a/videoadd.pl +++ b/videoadd.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -w -CADSL # This program is free software. It comes without any warranty, to the # extent permitted by applicable law. You can redistribute it and/or @@ -241,7 +241,6 @@ unless ( defined $ignoredb_flag ) { } $dbh = DBI->connect($dsn, $config{user}, $config{password}) or die "Error: Can't connect do database.\n"; - $dbh->do( "SET NAMES UTF8" ) or die "Error: Can't set names to UTF-8.\n"; } my $id; @@ -290,7 +289,7 @@ if ( defined ($imdb{crit}) and &runIMDB() ) { # Got a single result; Process the movie $new{title} = $movie->title(); $new{language} = lc join (', ', @{$movie->language()}); - $new{imdbid} = 'imdb:' $movie->id(); + $new{imdbid} = 'imdb:' .$movie->id(); $new{year} = $movie->year(); $new{imgurl} = $movie->cover(); $new{director} = join ', ', map {$_->{name}} @{$movie->directors()}; -- cgit v1.2.3