Commit e82d69a8 authored by Joakim Nylén's avatar Joakim Nylén

Changes

parent 66a275d8
......@@ -263,7 +263,7 @@ sub ImportExcel
my $title = $ref->[1]{$field2};
next if( ! $title );
$title =~ s/S(\d+)$//;
$title = FixSubtitle(norm($title));
$title = FixSubtitle(normUtf8($title));
$oWkC = $oWkS->{Cells}[$iR][$columns{'ORGTitle'}];
my $title_org = norm($oWkC->Value) if( $oWkC );
......@@ -271,7 +271,7 @@ sub ImportExcel
my $ce = {
channel_id => $channel_id,
start_time => $time,
title => norm($title),
title => $title,
};
## Episode
......
......@@ -289,6 +289,7 @@ sub Object2Url {
my( $batch_id, $data ) = @_;
my $url = $self->{UrlRoot} . "\?$data->{grabber_info}";
print("Fetching: $url\n");
return( $url, undef );
}
......
......@@ -57,6 +57,7 @@ sub Object2Url {
my( $directory, $name ) = split( /:/, $chd->{grabber_info} );
my $url = $self->{UrlRoot} . $directory . $year . '-' . $month.'-'. $name .'-' . $self->{Timezone} . '.xml';
print("url: $url\n");
return( $url, undef );
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment