diff --git a/src-slftp/kb.pas b/src-slftp/kb.pas index 722089a..130553f 100644 --- a/src-slftp/kb.pas +++ b/src-slftp/kb.pas @@ -134,6 +134,7 @@ type season: Integer; premier_year: Integer; country: string; + classification: string; scripted: Boolean; genres: string; network: string; @@ -1501,6 +1502,8 @@ begin Result:= Result + 'Premier: '+IntToStr(premier_year) + #13#10; if country <> '' then Result:= Result + 'Country: '+country + #13#10; + if classification <> '' then + Result:= Result + 'Classification: ' + classification + #13#10; Result:= Result + 'Scripted: '+IntToStr(Integer(scripted ))+ #13#10; if genres <> '' then Result:= Result + 'Genres: '+genres + #13#10; diff --git a/src-slftp/rulesunit.pas b/src-slftp/rulesunit.pas index 91a9758..8a91e58 100644 --- a/src-slftp/rulesunit.pas +++ b/src-slftp/rulesunit.pas @@ -539,6 +539,11 @@ type class function Name: string; override; class function Description: string; override; end; + TConditionTVClassification = class(TStringCondition) + function SupplyValue(r: TPazo): string; override; + class function Name: string; override; + class function Description: string; override; + end; TConditionTVScripted = class(TBooleanCondition) function SupplyValue(r: TPazo): Boolean; override; class function Name: string; override; @@ -1602,6 +1607,7 @@ begin conditions.Add(TConditionTVTag); conditions.Add(TConditionTVPremierYear); conditions.Add(TConditionTVCountry); + conditions.Add(TConditionTVClassification); conditions.Add(TConditionTVScripted); conditions.Add(TConditionTVGenres); conditions.Add(TConditionTVNetwork); @@ -2913,6 +2919,25 @@ begin Result:= TTVRelease(r.rls).country; end; +{ TConditionTVClassication } + +class function TConditionTVClassification.Description: string; +begin + Result:= 'Returns with the Classification field parsed from tvrage.'; +end; + +class function TConditionTVClassification.Name: string; +begin + Result:= 'tvclassification'; +end; + +function TConditionTVClassification.SupplyValue(r: TPazo): string; +begin + Result:=''; + if r.rls is TTVRelease then + Result:= TTVRelease(r.rls).classification; +end; + { TConditionTVScripted } class function TConditionTVScripted.Description: string; diff --git a/src-slftp/tasktvragelookup.pas b/src-slftp/tasktvragelookup.pas index bad2bbe..bd77746 100644 --- a/src-slftp/tasktvragelookup.pas +++ b/src-slftp/tasktvragelookup.pas @@ -116,7 +116,10 @@ Runtime@60 tr.runtime:= StrToIntDef(s, 0) else if AnsiSameText(ss, 'Classification') then - tr.scripted:= AnsiSameText(s, 'Scripted') + begin + tr.classification:= s; + tr.scripted:= AnsiSameText(s, 'Scripted'); + end; ; end;