From 0a7d71e21c46d1cbad672f8f63235570cd0fbee8 Mon Sep 17 00:00:00 2001 From: mynah Date: Tue, 17 Jul 2018 18:53:49 -0500 Subject: [PATCH] =?UTF-8?q?m=C3=B1e?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- , | 0 -2 | 0 1 | 0 lib/Dojo/Model/Users.pm | 7 ++++--- 4 files changed, 4 insertions(+), 3 deletions(-) delete mode 100644 , delete mode 100644 -2 delete mode 100644 1 diff --git a/, b/, deleted file mode 100644 index e69de29..0000000 diff --git a/-2 b/-2 deleted file mode 100644 index e69de29..0000000 diff --git a/1 b/1 deleted file mode 100644 index e69de29..0000000 diff --git a/lib/Dojo/Model/Users.pm b/lib/Dojo/Model/Users.pm index 05e6b8b..47db6d3 100644 --- a/lib/Dojo/Model/Users.pm +++ b/lib/Dojo/Model/Users.pm @@ -1,5 +1,6 @@ package Dojo::Model::Users; + use strict; use warnings; use DBI; @@ -17,14 +18,14 @@ sub check { # | 2 | usuario | # | 3 | pago | # | 4 | master | - my $r= _read($q,$vuelo,$user,$pass)->[0]; + my $r= _read($q,$user,$pass)->[0]; return $r->{pid} // 0; } sub _read{ - my ($q,$d,@bind)=@_; + my ($q,@bind)=@_; my (@empty,$arr); - my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf:: GRULLADB_H,Dojo::Conf::GRULLADB_UR,Dojo::Conf::GRULLADB_URP); + my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf::GRULLADB_H,Dojo::Conf::GRULLADB_UR,Dojo::Conf::GRULLADB_URP); return \@empty unless($dbh); #$dbh->do(qq{SET NAMES 'utf8'}); my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind);