c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mñe

Browse Source
This commit is contained in:
mynah
2018-07-17 18:53:49 -05:00
parent bd0843b9c7
commit 0a7d71e21c
4 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
,
View File

0
-2
View File

0
1
View File

7
lib/Dojo/Model/Users.pm
View File

@@ -1,5 +1,6 @@
package Dojo::Model::Users; package Dojo::Model::Users;
use strict; use strict;
use warnings; use warnings;
use DBI; use DBI;
@@ -17,14 +18,14 @@ sub check {
# | 2 | usuario | # | 2 | usuario |
# | 3 | pago | # | 3 | pago |
# | 4 | master | # | 4 | master |
my $r= _read($q,$vuelo,$user,$pass)->[0]; my $r= _read($q,$user,$pass)->[0];
return $r->{pid} // 0; return $r->{pid} // 0;
} }
sub _read{ sub _read{
my ($q,$d,@bind)=@_; my ($q,@bind)=@_;
my (@empty,$arr); 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); return \@empty unless($dbh);
#$dbh->do(qq{SET NAMES 'utf8'}); #$dbh->do(qq{SET NAMES 'utf8'});
my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind);