fix CR beta naming issue

include beta naming empty episode string like nothing #515
This commit is contained in:
hama3254 2022-08-05 14:31:19 +02:00
parent 0783d03a79
commit 6282b0f415
3 changed files with 6 additions and 4 deletions

Binary file not shown.

View File

@ -35,11 +35,13 @@ Public Class Anime_Add
Dim DeviceRegion As String = Nothing
Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result()
For i As Integer = 0 To list.Count - 1
'MsgBox(list.Item(i).Name + ":" + vbNewLine + list.Item(i).Value)
If CBool(InStr(list.Item(i).Domain, ".crunchyroll.com")) And CBool(InStr(list.Item(i).Name, "_evidon_suppress")) = False Then
Cookies = Cookies + list.Item(i).Name + "=" + list.Item(i).Value + ";"
End If
If CBool(InStr(list.Item(i).Domain, ".crunchyroll.com")) And CBool(InStr(list.Item(i).Name, "c_locale")) Then
locale = list.Item(i).Value
End If
Next
Catch ex As Exception

View File

@ -1825,7 +1825,7 @@ Public Class Main
If CR_episode = Nothing And CR_episode2 = Nothing Then
CR_episode_int = "0"
ElseIf CR_episode IsNot Nothing Then
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode_int = CR_episode
ElseIf CR_episode2 IsNot Nothing Then
CR_episode_int = CR_episode2
@ -1833,14 +1833,14 @@ Public Class Main
If Season_Prefix = "[default season prefix]" Then
If CR_episode = Nothing Then 'no episode number means most likey a movie
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
CR_season_number = "Season " + CR_season_number
End If
Else
If CR_episode = Nothing Then 'no episode number means most likey a movie
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
@ -1860,7 +1860,7 @@ Public Class Main
If Episode_Prefix = "[default episode prefix]" Then
If CR_episode = Nothing And CR_episode2 = Nothing Then
CR_episode = CR_title
ElseIf CR_episode IsNot Nothing Then
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode)
ElseIf CR_episode2 IsNot Nothing Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode2)