Changeset 846 in ProjectBuilder for projects/CDDBeditor

Timestamp:

Sep 5, 2009, 1:46:33 AM (15 years ago)

Author:

Bruno Cornec

Message:

Solve encoding issues for title, artist and tracks

File:

• projects/CDDBeditor/bin/CDDBeditor (modified) (3 diffs)

projects/CDDBeditor/bin/CDDBeditor

@@ -23 +23 @@
 use CDDB_get qw( get_cddb get_discids );
 use CDDB;
+use Encode;
 
 # Global variables
@@ -255 +256 @@
     $ce_panel->Add(0, 0, $wait_label);
 
+    ($reason, $data) = $ce_panel->Draw();
     Newt::Refresh();
-    ($reason, $data) = $ce_panel->Draw();
 
     # CDDB query
     my %ce_cd = get_cddb(\%ce_config);
+
+    # Modify enconding of some fields
+    $ce_cd{artist} = decode("iso8859-1",$ce_cd{artist});
+    $ce_cd{title} = decode("iso8859-1",$ce_cd{artist});
 
     # Third panel to display CD Infos
@@ -314 +319 @@
         my $dur_label = Newt::Label($tr);
         $flag = NEWT_FLAG_WRAP|NEWT_ENTRY_SCROLL;
+        # Adapt encoding of track
+        $ce_cd{track}[$n -1] = decode("iso8859-1",$ce_cd{track}[$n -1]);
         my $track_entry = Newt::Entry($width, $flag, $ce_cd{track}[$n-1]);
         $ce_panel->Add(0, 8+$n, $track_label);