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);