sergiotarxz/gtsrssapi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing gender losing of offered pokemon requires database deletion;

Browse Source
This commit is contained in:
Sergiotarxz 2024-05-07 00:42:18 +02:00
parent 494e89efa1
commit 611e61c1e9
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/GTSRSSApi.pm
View File

@ -4,7 +4,6 @@ use v5.34.1;
use strict; use strict;
use warnings; use warnings;
use utf8;
use Mojo::Base 'Mojolicious', -signatures; use Mojo::Base 'Mojolicious', -signatures;
use Mojo::JSON; use Mojo::JSON;
@ -143,11 +142,10 @@ EOF
my $level_container = my $level_container =
$offer->at('.pfFormValue.colPortrait li.portrait')->next; $offer->at('.pfFormValue.colPortrait li.portrait')->next;
# my $level_string = decode( 'utf-8', $level_container->text ); my $level_string = decode( 'utf-8', $level_container->text );
my $level_string = $level_container->text;
my ($level) = $level_string =~ /(\d+)/; my ($level) = $level_string =~ /(\d+)/;
my ($gender) = $level_string =~ /(♂|♀)/; my ($gender) = $level_string =~ /(♂|♀)/um;
my $has_pokerus = $offer->at('span.pkrs'); my $has_pokerus = $offer->at('span.pkrs');
$has_pokerus = !!$has_pokerus; $has_pokerus = !!$has_pokerus;
my $date; my $date;