Changeset 1026 for trunk/reconcilers/reconciler_mk2
- Timestamp:
- 04/11/08 23:13:04 (5 years ago)
- Files:
-
- 1 modified
-
trunk/reconcilers/reconciler_mk2 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/reconcilers/reconciler_mk2
r949 r1026 96 96 97 97 my $progname = "reconciler_mk2"; 98 my $version = "0.3 6";98 my $version = "0.37"; 99 99 100 100 use LWP::UserAgent; … … 147 147 $reclogic{max_programme_length} = (12 * 60 * 60); # 12 hours 148 148 $reclogic{max_programme_length_opt_channels} = (18 * 60 * 60); # 18 hours 149 150 # skip title translation for these categories and at least this long 151 @{$reclogic{title_xlate_skip_categories}} = ("sport"); 152 $reclogic{title_xlate_skip_categories_min_programme_length} = (70 * 60); # 70 minutes 149 153 150 154 # store a preferred title only if we have at least 1 alternative … … 1267 1271 return ($title, $lang); 1268 1272 } 1273 1274 # if 70 minutes or longer and category sport return best title 1275 if ($title_duration >= $reclogic{title_xlate_skip_categories_min_programme_length}) { 1276 for my $i (0..($num_matching-1)) { 1277 if (defined $m->[$i]->{title} && defined $m->[$i]->{category}) { 1278 foreach my $found_c (@{($m->[$i]->{category})}) { 1279 my $c = $found_c->[0]; 1280 next if ($c eq ''); 1281 1282 foreach my $skip_c (@{$reclogic{title_xlate_skip_categories}}) { 1283 if (lc($c) eq lc($skip_c)) { 1284 &log($reclogic{debug_choose_title},(sprintf 1285 "choose_title: not using xlate table; using best title \"%s\" because category \"%s\" and length %d minutes", $titles[0], $skip_c, $title_duration/60)); 1286 return ($titles[0], $opt->{lang}); 1287 } 1288 } 1289 } 1290 } 1291 } 1292 } 1269 1293 1270 1294 # 3. do we already have any titles in our list here in our 'preferred title' list?
