fix: 一处逻辑判断错误,但未解决版本判断错误的问题

This commit is contained in:
Pigeon0v0
2024-06-15 23:29:53 +08:00
parent 8d9dc4712b
commit 655364b06a
2 changed files with 2 additions and 2 deletions
@@ -904,7 +904,7 @@
Dim Name As String '存储 rawVersion,貌似变化更加频繁
Dim StdVersion As String '存储 version,相对规则
Dim IsBeta As Boolean
If Token("version").Contains("-beta") Then
If Token("rawVersion").Contains("-beta") Then
StdVersion = Token("version").ToString() - "-beta"
IsBeta = True
Else
@@ -2258,7 +2258,7 @@ Retry:
'建立控件
Dim NewItem As New MyListItem With {
.Title = If(Entry.IsBeta, Entry.Version & "-beta", Entry.Version), .SnapsToDevicePixels = True, .Height = 42, .Type = MyListItem.CheckType.Clickable, .Tag = Entry,
.Info = If(Entry.IsBeta, "稳定版", "测试版") &
.Info = If(Entry.IsBeta, "测试版", "稳定版") &
If(Entry.ReleaseTime = "",
If(ModeDebug, "种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), ""),
"发布于 " & Entry.ReleaseTime & If(ModeDebug, ",种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), "")),