use C4::Context;
use C4::Biblio qw( AddBiblio );
use C4::Circulation;
-use Koha::AuthUtils;
+use Koha::AuthUtils qw(hash_password);
use t::lib::Selenium;
use t::lib::TestBuilder;
use t::lib::Mocks;
}
my $password = Koha::AuthUtils::generate_password();
+ my $dbh = C4::Context->dbh;
+ my $sth = $dbh->prepare("UPDATE borrowers SET password = ? WHERE borrowernumber=?");
t::lib::Mocks::mock_preference( 'RequireStrongPassword', 0 );
- $patron->set_password({ password => $password });
+ my $clave = hash_password( $password );
+ $sth->execute( $clave, $patron->borrowernumber );
$s->opac_auth( $patron->userid, $password );
my $public_lists = $s->opac_base_url . q|opac-shelves.pl?op=list&category=2|;
$login ||= $self->login;
$password ||= $self->password;
- my $mainpage = $self->base_url . 'opac-main.pl';
+ my $mainpage = $self->opac_base_url . 'opac-main.pl';
$self->driver->get($mainpage . q|?logout.x=1|); # Logout before, to make sure we will see the login form
$self->driver->get($mainpage);
$self->fill_form( { userid => $login, password => $password } );
- my $login_button = $self->driver->find_element('//input[@id="submit"]');
- $login_button->submit();
+ $self->submit_form;
}
sub fill_form {