sub store_root_credentials_in_session {
my ($self, $rpw) = @_;
- $rpw = SL::Auth::Password->hash_if_unhashed(login => 'root', password => $rpw)
- unless $self->{authenticator}->requires_cleartext_password;
-
- $self->set_session_value(rpw => $rpw);
+ $self->set_session_value(rpw => SL::Auth::Password->hash_if_unhashed(login => 'root', password => $rpw));
}
sub dbconnect {
["customer_vendor_edit", $locale->text("Create and edit customers and vendors")],
["part_service_assembly_edit", $locale->text("Create and edit parts, services, assemblies")],
["project_edit", $locale->text("Create and edit projects")],
- ["license_edit", $locale->text("Manage license keys")],
["--ar", $locale->text("AR")],
["sales_quotation_edit", $locale->text("Create and edit sales quotations")],
["sales_order_edit", $locale->text("Create and edit sales orders")],