From 82cd05381ae7a52da07d392a6a8c09b61703560f Mon Sep 17 00:00:00 2001 From: Jake Deery Date: Fri, 2 Jun 2023 13:13:47 +0000 Subject: [PATCH] Bug 33880: Remove Version param from GB::Barcode->new Looking at the code here if (Koha/Auth/TwoFactorAuth.pmoSelf->{Version}){ #--- auto version select for(->{Version}=1; ->{Version} <= 40; ++->{Version}) { last if ({->{Ecc}}->[->{Version}] >= + ->[->{Version}]); } } in https://metacpan.org/release/KWITKNR/GD-Barcode-1.15/source/Barcode/QRcode.pm#L349 It appears the version parameter is not required, and will default to whatever version has the necessary bits for the input words given Signed-off-by: Pedro Amorim Signed-off-by: Jonathan Druart Signed-off-by: Martin Renvoize Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 20d22366813ddbd2c68fc72b609cee88e74e3872) Signed-off-by: Martin Renvoize --- Koha/Auth/TwoFactorAuth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Koha/Auth/TwoFactorAuth.pm b/Koha/Auth/TwoFactorAuth.pm index 6937ab9060..6113493b67 100644 --- a/Koha/Auth/TwoFactorAuth.pm +++ b/Koha/Auth/TwoFactorAuth.pm @@ -101,7 +101,7 @@ sub qr_code { my $otpauth = $self->SUPER::qr_code( undef, undef, undef, 1); # no need to pass secret, key and issuer again - my $qrcode = GD::Barcode->new( 'QRcode', $otpauth, { Ecc => 'M', Version => 10, ModuleSize => 4 } ); + my $qrcode = GD::Barcode->new( 'QRcode', $otpauth, { Ecc => 'M', ModuleSize => 4 } ); my $data = $qrcode->plot->png; return "data:image/png;base64,". encode_base64( $data, q{} ); # does not contain newlines } -- 2.39.5