Unverified Commit 1c635742 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

users: rename "add_user" to "add" and "get_data" to "get"

parent e98fc849

lib/Travelynx.pm

+1 −1
Original line number Diff line number Diff line
@@ -821,7 +821,7 @@ sub startup { 


			$uid //= $self->current_user->{id};



			return $self->users->get_data( uid => $uid );

			return $self->users->get( uid => $uid );

		}

	);

lib/Travelynx/Command/account.pm

+4 −4
Original line number Diff line number Diff line
@@ -34,7 +34,7 @@ sub add_user { 
	my $password_hash = hash_password($password);



	my $tx      = $db->begin;

	my $user_id = $self->app->users->add_user(

	my $user_id = $self->app->users->add(

		db            => $db,

		name          => $name,

		email         => $email,
@@ -58,7 +58,7 @@ sub add_user { 
sub delete_user {

	my ( $self, $uid ) = @_;



	my $user_data = $self->app->users->get_data( uid => $uid );

	my $user_data = $self->app->users->get( uid => $uid );



	if ( not $user_data ) {

		say "UID $uid does not exist.";
@@ -73,7 +73,7 @@ sub delete_user { 
sub really_delete_user {

	my ( $self, $uid, $name ) = @_;



	my $user_data = $self->app->users->get_data( uid => $uid );

	my $user_data = $self->app->users->get( uid => $uid );



	if ( $user_data->{name} ne $name ) {

		say

lib/Travelynx/Controller/Account.pm

+1 −1
Original line number Diff line number Diff line
@@ -337,7 +337,7 @@ sub register { 
	my $pw_hash = hash_password($password);

	my $db      = $self->pg->db;

	my $tx      = $db->begin;

	my $user_id = $self->users->add_user(

	my $user_id = $self->users->add(

		db            => $db,

		name          => $user,

		email         => $email,

lib/Travelynx/Model/Users.pm

+2 −2
Original line number Diff line number Diff line
@@ -318,7 +318,7 @@ sub remove_password_token { 
	);

}



sub get_data {

sub get {

	my ( $self, %opt ) = @_;

	my $db  = $opt{db} // $self->{pg}->db;

	my $uid = $opt{uid};
@@ -377,7 +377,7 @@ sub get_login_data { 
	return $res_h;

}



sub add_user {

sub add {

	my ( $self, %opt ) = @_;

	my $db        = $opt{db} // $self->{pg}->db;

	my $user_name = $opt{name};