diff --git a/template/default/tv.html b/template/default/tv.html
index 506b1ec..ddbba3e 100644
--- a/template/default/tv.html
+++ b/template/default/tv.html
@@ -41,7 +41,7 @@
 			tmpImage.src = "<?% url %?>&size=" + size + "&interval=" + interval + "&rand=" + Before.getTime();
 			//TODO: wait until (tmpImage.complete == true)?
 			document.Bild.src = tmpImage.src;
-      document.getElementById('sect_tv').style.width = (size == 'full' ? 780 : (size == 'half' ? 400 : 210)) + "px";
+      document.getElementById('sect_tv').style.width = (size == 'full' ? 1920 : (size == 'half' ? 960 : 480)) + "px";
 			if(interval > 0) {
 				After = new Date();
 				wait_sec = (interval * 1000) - (After - Before);
@@ -68,8 +68,8 @@
 		}
 
 		function tv_open() {
-			width = (size == 'full' ? 780 : (size == 'half' ? 400 : 210)) + 350;
-			height = (size == 'full' ? 576 : 525) + 60;
+			width = (size == 'full' ? 1920 : (size == 'half' ? 960 : 480)) + 350;
+			height = (size == 'full' ? 1080 : 520) + 60;
 	 		window.open("./vdradmin.pl?aktion=tv_show&new_win=1&full_tv=1", "vdradminTV", "width=" + width + ", height=" + height + ", resizable=yes, scrollbars=no, status=no, toolbar=no, menubar=no, location=no");
 		}
 		//-->
diff --git a/vdradmind.pl b/vdradmind.pl
index acb9686..ba5d410 100755
--- a/vdradmind.pl
+++ b/vdradmind.pl
@@ -1100,10 +1100,11 @@ sub ChanTree {
         $CHAN{$CHAN_RADIO}->{channels} = \@CHANNELS_RADIO;
     }
 
-    # Sort channel lists by channel name
-    foreach my $idx (keys(%CHAN)) {
-        @{$CHAN{$idx}->{channels}} = sort {$a->{name} cmp $b->{name}} @{$CHAN{$idx}->{channels}}
-    }
+    # Temporarly disabled, because channellist also gets sorted by names. This causes duplicate channels appear side-by-side
+    # Sort channel lists by channel name 
+    #foreach my $idx (keys(%CHAN)) {
+    #    @{$CHAN{$idx}->{channels}} = sort {$a->{name} cmp $b->{name}} @{$CHAN{$idx}->{channels}}
+    #}
 }
 
 sub getChannelGroups {
@@ -1164,7 +1165,7 @@ sub get_name_from_uniqid {
 #            return $_->{name} if ($_->{uniq_id} eq $uniq_id);
 #        }
 
-        # Es darf nach Spec nur eine Übereinstimmung geben
+        # Es darf nach Spec nur eine Ãœbereinstimmung geben
         if (scalar(@C) == 1) {
             return $C[0]->{name};
         }
@@ -1178,7 +1179,7 @@ sub get_name_from_vdrid {
         # Kanalliste nach identischer vdr_id durchsuchen
         my @C = grep($_->{vdr_id} == $vdr_id, @{$CHAN{$CHAN_FULL}->{channels}});
 
-        # Es darf nach Spec nur eine Übereinstimmung geben
+        # Es darf nach Spec nur eine Ãœbereinstimmung geben
         if (scalar(@C) == 1) {
             return $C[0]->{name};
         }
@@ -1192,7 +1193,7 @@ sub get_channel_from_vdrid {
         # Kanalliste nach identischer vdr_id durchsuchen
         my @C = grep($_->{vdr_id} == $vdr_id, @{$CHAN{$CHAN_FULL}->{channels}});
 
-        # Es darf nach Spec nur eine Übereinstimmung geben
+        # Es darf nach Spec nur eine Ãœbereinstimmung geben
         if (scalar(@C) == 1) {
             return $C[0];
         }
@@ -1206,7 +1207,7 @@ sub get_transponder_from_vdrid {
         # Kanalliste nach identischer vdr_id durchsuchen
         my @C = grep($_->{vdr_id} == $vdr_id, @{$CHAN{$CHAN_FULL}->{channels}});
 
-        # Es darf nach Spec nur eine Übereinstimmung geben
+        # Es darf nach Spec nur eine Ãœbereinstimmung geben
         if (scalar(@C) == 1) {
             return ("$C[0]->{source}-$C[0]->{frequency}-$C[0]->{polarization}");
         }
@@ -1220,7 +1221,7 @@ sub get_ca_from_vdrid {
         # Kanalliste nach identischer vdr_id durchsuchen
         my @C = grep($_->{vdr_id} == $vdr_id, @{$CHAN{$CHAN_FULL}->{channels}});
 
-        # Es darf nach Spec nur eine Übereinstimmung geben
+        # Es darf nach Spec nur eine Ãœbereinstimmung geben
         if (scalar(@C) == 1) {
             return ($C[0]->{ca});
         }
@@ -3031,7 +3032,7 @@ sub epgsearch_Param2Line {
         $directory =~ s/:/\|/g;
     }
 
-    #TODO: $searchtimer_from & $searchtimer_until auf korrektes Format prüfen
+    #TODO: $searchtimer_from & $searchtimer_until auf korrektes Format prüfen
     my $searchtimer_from = $q->param("searchtimer_from");
     if ($searchtimer_from) {
         $searchtimer_from = my_mktime("0", "0", substr($searchtimer_from, 8, 2), substr($searchtimer_from, 5, 2) - 1, substr($searchtimer_from, 0, 4));
@@ -5342,7 +5343,7 @@ sub encode_RecTitle {
         # VFAT on
         for ($i = 0 ; $i < length($title) ; $i++) {
             $c = substr($title, $i, 1);
-            unless ($c =~ /[öäüßÖÄÜA-Za-z0123456789_!@\$%&()+,.\-;=~ ]/) {
+            unless ($c =~ /[öäüßÖÄÜA-Za-z0123456789_!@\$%&()+,.\-;=~ ]/) {
                 $newtitle .= sprintf("#%02X", ord($c));
             } else {
                 $newtitle .= $c;
@@ -7106,8 +7107,8 @@ sub grab_picture {
     $CONFIG{TV_SIZE}     = $q->param("size")     if($q->param("size"));
     $CONFIG{TV_SIZE}     = "half" unless($CONFIG{TV_SIZE});
 
-    my $maxwidth  = 960;
-    my $maxheight = 540;
+    my $maxwidth  = 1920;  # FullHD
+    my $maxheight = 1080;
     my ($width, $height);
     if ($CONFIG{TV_SIZE} eq "full") {
         ($width, $height) = ($maxwidth, $maxheight);