grahamc/hydra - Change LSZLZHJYGXZTCNH4JUXU7W23MW5PBVM4OBMWRRVNEDROMIBUVQNAC

Allow users to edit their own settings

Also, don't use the flash anymore for going back to the referer.

Created by Eelco Dolstra on March 4, 2013

LSZLZHJYGXZTCNH4JUXU7W23MW5PBVM4OBMWRRVNEDROMIBUVQNAC

Dependencies

In channels

main

upstream

Change contents

Deletion in src/lib/Hydra/Controller/API.pm at line 24 [10.24]

B:BD[10.370] → [11.11:238]

}
sub end : ActionClass('RenderView') {
    my ($self, $c) = @_;
    if (scalar @{$c->error}) {
        $c->stash->{json}->{error} = join "\n", @{$c->error};
        $c->forward('View::JSON');
        $c->clear_errors;
    }

Deletion in src/lib/Hydra/Controller/API.pm at line 310 [10.24]
B:BD[11.1440] → [8.11:43]
```
    $c->forward('View::JSON');
```
Replacement in src/lib/Hydra/Controller/API.pm at line 317 [10.24]
B:BD[8.190] → [8.190:195]
```
    
```
[8.190]
[8.195]
Replacement in src/lib/Hydra/Controller/API.pm at line 322 [10.24]
B:BD[8.428] → [8.428:433]
```
    
```
[8.428]
[8.433]
Deletion in src/lib/Hydra/Controller/API.pm at line 328 [10.24]
∅:D[8.781] → [11.1440:1472]
B:BD[11.1440] → [11.1440:1472]
```
    $c->forward('View::JSON');
```

Deletion in src/lib/Hydra/Controller/Admin.pm at line 11 [13.1]

B:BD[12.89] → [12.89:232]

use Crypt::RandPasswd;
use Sys::Hostname::Long;
use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP;

Deletion in src/lib/Hydra/Controller/Admin.pm at line 47 [13.1]

∅:D[14.911] → [15.62:64]

B:BD[13.239] → [15.62:64]

∅:D[15.64] → [13.239:240]

B:BD[13.239] → [13.239:240]

B:BD[13.240] → [16.6:7]

∅:D[17.127] → [12.235:538]

B:BD[12.235] → [12.235:538]

B:BD[12.538] → [17.128:186]

∅:D[17.186] → [12.674:693]

B:BD[12.674] → [12.674:693]

B:BD[12.693] → [2.0:32]

∅:D[2.32] → [12.762:1005]

B:BD[12.762] → [12.762:1005]

B:BD[12.1005] → [17.187:197]

∅:D[17.197] → [12.1022:1035]

B:BD[12.1022] → [12.1022:1035]

B:BD[12.1035] → [18.0:72]

B:BD[18.72] → [17.198:204]

∅:D[17.204] → [12.1098:1100]

B:BD[12.1098] → [12.1098:1100]

B:BD[12.1100] → [16.12:131]

B:BD[16.131] → [19.0:67]

B:BD[19.67] → [20.1761:1790]

}
sub updateUser {
    my ($c, $user) = @_;
    my $username     = trim $c->request->params->{"username"};
    my $fullname     = trim $c->request->params->{"fullname"};
    my $emailaddress = trim $c->request->params->{"emailaddress"};
    my $emailonerror = trim $c->request->params->{"emailonerror"};
    my $roles         = $c->request->params->{"roles"} ;
    $user->update(
        { fullname => $fullname
        , emailaddress => $emailaddress
        , emailonerror => $emailonerror
        });
    $user->userroles->delete_all;
    if(ref($roles) eq 'ARRAY') {
        for my $s (@$roles) {
            $user->userroles->create({ role => $s}) ;
        }
    } else {
        $user->userroles->create({ role => $roles}) if defined $roles ;
    }
}
sub create_user : Chained('admin') PathPart('create-user') Args(0) {
    my ($self, $c) = @_;
    requireAdmin($c);
    $c->stash->{template} = 'user.tt';
    $c->stash->{edit} = 1;
    $c->stash->{create} = 1;

Deletion in src/lib/Hydra/Controller/Admin.pm at line 48 [13.1]
∅:D[19.101] → [16.131:132]
B:BD[16.131] → [16.131:132]
B:BD[16.132] → [9.38:39]
∅:D[9.39] → [19.102:210]
B:BD[16.132] → [19.102:210]
```
sub create_user_submit : Chained('admin') PathPart('create-user/submit') Args(0) {
    my ($self, $c) = @_;
```
Deletion in src/lib/Hydra/Controller/Admin.pm at line 49 [13.1]
B:BD[19.211] → [19.211:268]
```
    my $username = trim $c->request->params->{username};
```

Deletion in src/lib/Hydra/Controller/Admin.pm at line 50 [13.1]

B:BD[19.269] → [19.269:515]

∅:D[19.515] → [16.179:181]

B:BD[16.179] → [16.179:181]

∅:D[16.182] → [12.1100:1101]

B:BD[12.1100] → [12.1100:1101]

B:BD[12.1101] → [19.516:517]

∅:D[19.518] → [12.1101:1370]

B:BD[12.1101] → [12.1101:1370]

B:BD[12.1370] → [16.183:184]

∅:D[16.184] → [12.1370:1371]

B:BD[12.1370] → [12.1370:1371]

    txn_do($c->model('DB')->schema, sub {
        my $user = $c->model('DB::Users')->create(
            {username => $username, emailaddress => "", password => ""});
        updateUser($c, $user);
    });
    $c->res->redirect("/admin/users");
}
sub user : Chained('admin') PathPart('user') CaptureArgs(1) {
    my ($self, $c, $username) = @_;
    requireAdmin($c);
    my $user = $c->model('DB::Users')->find($username)
        or notFound($c, "User $username doesn't exist.");
    $c->stash->{user} = $user;
}

Deletion in src/lib/Hydra/Controller/Admin.pm at line 53 [13.1]
B:BD[12.1542] → [12.1542:1543]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 57 [13.1]

∅:D[16.186] → [12.1586:1740]

B:BD[14.1492] → [12.1586:1740]

B:BD[12.1740] → [16.187:188]

∅:D[16.188] → [12.1740:1897]

B:BD[12.1740] → [12.1740:1897]

B:BD[12.1897] → [16.189:367]

∅:D[16.367] → [12.1941:1949]

B:BD[12.1941] → [12.1941:1949]

B:BD[12.1949] → [20.1791:1792]

∅:D[16.373] → [12.1949:1990]

∅:D[20.1792] → [12.1949:1990]

B:BD[12.1949] → [12.1949:1990]

B:BD[12.1990] → [16.374:375]

∅:D[16.375] → [12.1990:2007]

B:BD[12.1990] → [12.1990:2007]

B:BD[12.2007] → [17.205:241]

∅:D[17.241] → [12.2047:2132]

B:BD[12.2047] → [12.2047:2132]

B:BD[12.2132] → [17.242:243]

∅:D[17.243] → [12.2136:2361]

B:BD[12.2136] → [12.2136:2361]

B:BD[12.2361] → [16.376:377]

∅:D[16.377] → [12.2361:2461]

B:BD[12.2361] → [12.2361:2461]

B:BD[21.82] → [21.82:83]

∅:D[21.83] → [12.2462:2536]

B:BD[12.2462] → [12.2462:2536]

B:BD[12.2536] → [17.244:245]

∅:D[17.245] → [12.2541:2692]

B:BD[12.2541] → [12.2541:2692]

B:BD[12.2692] → [3.0:41]

∅:D[3.41] → [12.2725:2855]

∅:D[17.278] → [12.2725:2855]

B:BD[12.2725] → [12.2725:2855]

B:BD[12.2855] → [4.0:98]

∅:D[22.87] → [12.2927:3008]

∅:D[23.94] → [12.2927:3008]

∅:D[4.98] → [12.2927:3008]

∅:D[18.161] → [12.2927:3008]

B:BD[12.2927] → [12.2927:3008]

B:BD[12.3008] → [16.378:379]

∅:D[16.379] → [12.3008:3009]

B:BD[12.3008] → [12.3008:3009]

sub user_edit : Chained('user') PathPart('edit') Args(0) {
    my ($self, $c) = @_;
    $c->stash->{template} = 'user.tt';
    $c->stash->{edit} = 1;
}
sub user_edit_submit : Chained('user') PathPart('submit') Args(0) {
    my ($self, $c) = @_;
    requirePost($c);
    txn_do($c->model('DB')->schema, sub {
        if (($c->request->params->{submit} || "") eq "delete") {
            $c->stash->{user}->delete;
        } else {
            updateUser($c, $c->stash->{user});
        }
    });
    $c->res->redirect("/admin/users");
}
sub sendemail {
   my ($to, $subject, $body) = @_;
   my $url = hostname_long;
   my $sender = ($ENV{'USER'} || "hydra") .  "@" . $url;
   my $email = Email::Simple->create(
        header => [
            To      => $to,
            From    => "Hydra <$sender>",
            Subject => $subject
        ],
        body => $body
    );
    sendmail($email);
}
sub reset_password : Chained('user') PathPart('reset-password') Args(0) {
    my ($self, $c) = @_;
    # generate password
    my $password = Crypt::RandPasswd->word(8,10);
    # calculate hash
    my $hashed = sha1_hex($password);
    $c->stash->{user}-> update({ password => $hashed}) ;
    # send email
    sendemail(
        $c->stash->{user}->emailaddress,
        "New password for Hydra",
        "Hi,\n\n".
        "Your password has been reset. Your new password is '$password'.\n".
        "You can change your password at " . $c->config()->{'base_uri'} . "/change-password .\n".
        "With regards, Hydra\n"
    );
    $c->res->redirect("/admin/users");
}

Insertion in src/lib/Hydra/Controller/Admin.pm at line 177 [13.1]
[16.622]
[14.5454]

Replacement in src/lib/Hydra/Controller/Root.pm at line 159 [26.804]

B:BD[24.403] → [25.1594:1625]

    if (scalar @{$c->error}) {

[24.403]

[25.1625]

    if (defined $c->stash->{json}) {
        if (scalar @{$c->error}) {
            $c->stash->{json}->{error} = join "\n", @{$c->error};
            $c->clear_errors;
        }
        $c->forward('View::JSON');
    }
    elsif (scalar @{$c->error}) {

Deletion in src/lib/Hydra/Controller/Root.pm at line 227 [26.804]
B:BD[27.265] → [28.299:356]
∅:D[28.356] → [12.3100:3125]
B:BD[12.3100] → [12.3100:3125]
B:BD[12.3125] → [17.776:777]
∅:D[17.777] → [12.3130:3172]
B:BD[12.3130] → [12.3130:3172]
B:BD[12.3172] → [17.778:829]
∅:D[17.829] → [12.3230:3232]
B:BD[12.3230] → [12.3230:3232]
B:BD[12.3232] → [27.266:267]
∅:D[27.267] → [12.3232:3330]
B:BD[12.3232] → [12.3232:3330]
B:BD[12.3330] → [17.830:831]
∅:D[17.831] → [12.3335:3377]
B:BD[12.3335] → [12.3335:3377]
B:BD[12.3377] → [17.832:887]
∅:D[17.887] → [12.3437:3673]
B:BD[12.3437] → [12.3437:3673]
B:BD[12.3673] → [17.888:889]
∅:D[17.889] → [12.3678:3763]
B:BD[12.3678] → [12.3678:3763]
B:BD[12.3763] → [17.890:919]
∅:D[17.919] → [12.3800:3802]
B:BD[12.3800] → [12.3800:3802]
∅:D[12.3802] → [29.684:685]
B:BD[29.684] → [29.684:685]
B:BD[29.685] → [27.268:269]
```
sub change_password : Path('change-password') :Args(0) {
    my ($self, $c) = @_;
    requireLogin($c) if !$c->user_exists;
    $c->stash->{template} = 'change-password.tt';
}
sub change_password_submit : Path('change-password/submit') : Args(0) {
    my ($self, $c) = @_;
    requireLogin($c) if !$c->user_exists;
    my $password = $c->request->params->{"password"};
    my $password_check = $c->request->params->{"password_check"};
    print STDERR "$password \n";
    print STDERR "$password_check \n";
    error($c, "Passwords did not match, go back and try again!") if $password ne $password_check;
    my $hashed = sha1_hex($password);
    $c->user->update({ password => $hashed}) ;
    $c->res->redirect("/");
}
```
Insertion in src/lib/Hydra/Controller/User.pm at line 3 [9.252]
[9.287]
[9.287]
```
use utf8;
```
Insertion in src/lib/Hydra/Controller/User.pm at line 7 [9.252]
[9.346]
[9.346]
```
use Crypt::RandPasswd;
```

Replacement in src/lib/Hydra/Controller/User.pm at line 22 [9.252]

B:BD[9.640] → [9.640:719]

    if ($username eq "" && $password eq "" && !defined $c->flash->{referer}) {

[9.640]

[9.719]

    if ($username eq "" && $password eq "" && !defined $c->session->{referer}) {

Replacement in src/lib/Hydra/Controller/User.pm at line 24 [9.252]

B:BD[9.759] → [9.759:871]

        my $refurl = $c->request->referer;
        $c->flash->{referer} = $refurl if $refurl =~ m/^($baseurl)/;

[9.759]

[9.871]

        my $referer = $c->request->referer;
        $c->session->{referer} = $referer if defined $referer && $referer =~ m/^($baseurl)/;

Replacement in src/lib/Hydra/Controller/User.pm at line 29 [9.252]

B:BD[9.912] → [9.912:1142]

        if ($c->authenticate({username => $username, password => $password})) {
            $c->response->redirect($c->flash->{referer} || $c->uri_for('/'));
            $c->flash->{referer} = undef;
            return;
        }

[9.912]

[9.1142]

        backToReferer($c) if $c->authenticate({username => $username, password => $password});

Deletion in src/lib/Hydra/Controller/User.pm at line 32 [9.252]
B:BD[9.1209] → [9.1209:1241]
```
    $c->keep_flash("referer");
```

Insertion in src/lib/Hydra/Controller/User.pm at line 50 [9.252]

[9.1505]

sub isValidPassword {
    my ($password) = @_;
    return length($password) >= 6;
}
sub setPassword {
    my ($user, $password) = @_;
    $user->update({ password => sha1_hex($password) });
}

Replacement in src/lib/Hydra/Controller/User.pm at line 92 [9.252]
B:BD[9.2608] → [9.2608:2642]
```
        if length($password) < 6;
```
[9.2608]
[9.2642]
```
        unless isValidPassword($password);
```
Replacement in src/lib/Hydra/Controller/User.pm at line 101 [9.252]
B:BD[9.2934] → [9.2934:2980]
```
            , password => sha1_hex($password)
```
[9.2934]
[9.2980]
```
            , password => "!"
```
Insertion in src/lib/Hydra/Controller/User.pm at line 104 [9.252]
[9.3030]
[9.3030]
```
        setPassword($user, $password);
```

Replacement in src/lib/Hydra/Controller/User.pm at line 107 [9.252]

B:BD[9.3039] → [9.3039:3170]

    $c->authenticate({username => $userName, password => $password})
        or error($c, "Unable to authenticate the new user!");

[9.3039]

[9.3170]

    unless ($c->user_exists) {
        $c->authenticate({username => $userName, password => $password})
            or error($c, "Unable to authenticate the new user!");
    }

Replacement in src/lib/Hydra/Controller/User.pm at line 113 [9.252]

B:BD[9.3246] → [9.3246:3316]

    $c->response->redirect($c->flash->{referer} || $c->uri_for('/'));

[9.3246]

[9.3316]

    backToReferer($c);
}
sub user :Chained('/') PathPart('user') CaptureArgs(1) {
    my ($self, $c, $userName) = @_;
    requireLogin($c) if !$c->user_exists;
    error($c, "You do not have permission to edit other users.")
        if $userName ne $c->user->username && !isAdmin($c);
    $c->stash->{user} = $c->model('DB::Users')->find($userName)
        or notFound($c, "User $userName doesn't exist.");

Replacement in src/lib/Hydra/Controller/User.pm at line 130 [9.252]

B:BD[9.3320] → [9.3320:3353]

sub preferences :Local Args(0) {

[9.3320]

[9.3353]

sub deleteUser {
    my ($self, $c, $user) = @_;
    my ($project) = $c->model('DB::Projects')->search({ owner => $user->username });
    error($c, "User " . $user->username . " is still owner of project " . $project->name . ".")
        if defined $project;
    $c->logout() if $user->username eq $c->user->username;
    $user->delete;
}
sub edit :Chained('user') Args(0) {

Replacement in src/lib/Hydra/Controller/User.pm at line 142 [9.252]

B:BD[9.3378] → [9.3378:3413]

    error($c, "Not implemented.");

[9.3378]

[9.3413]


    my $user = $c->stash->{user};
    $c->stash->{template} = 'user.tt';
    $c->session->{referer} = $c->request->referer if !defined $c->session->{referer};
    if ($c->request->method ne "POST") {
        $c->stash->{fullname} = $user->fullname;
        $c->stash->{emailonerror} = $user->emailonerror;
        return;
    }
    if (($c->request->params->{submit} // "") eq "delete") {
        deleteUser($self, $c, $user);
        backToReferer($c);
    }
    if (($c->request->params->{submit} // "") eq "reset-password") {
        $c->stash->{json} = {};
        error($c, "No email address is set for this user.")
            unless $user->emailaddress;
        my $password = Crypt::RandPasswd->word(8,10);
        setPassword($user, $password);
        sendEmail($c,
            $user->emailaddress,
            "Hydra password reset",
            "Hi,\n\n".
            "Your password has been reset. Your new password is '$password'.\n\n".
            "You can change your password at " . $c->uri_for($self->action_for('edit'), [$user->username]) . ".\n\n".
            "With regards,\n\nHydra.\n"
        );
        return;
    }
    my $fullName = trim $c->req->params->{fullname};
    txn_do($c->model('DB')->schema, sub {
        error($c, "Your must specify your full name.") if $fullName eq "";
        $user->update(
            { fullname => $fullName
            , emailonerror => $c->request->params->{"emailonerror"} ? 1 : 0
            });
        my $password = $c->req->params->{password} // "";
        if ($password ne "") {
            error($c, "You must specify a password of at least 6 characters.")
                unless isValidPassword($password);
            error($c, "The passwords you specified did not match.")
                if $password ne trim $c->req->params->{password2};
            setPassword($user, $password);
        }
        if (isAdmin($c)) {
            $user->userroles->delete_all;
            $user->userroles->create({ role => $_})
                foreach paramToList($c, "roles");
        }
    });
    backToReferer($c);

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 7 [32.3469]

[30.106]

[31.144]

use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP;
use Sys::Hostname::Long;

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 22 [32.3469]
[11.1657]
[9.3453]
```
    sendEmail
    paramToList
    backToReferer
```

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 107 [32.3469]

[33.4358]

[34.1160]

sub backToReferer {
    my ($c) = @_;
    $c->response->redirect($c->session->{referer} || $c->uri_for('/'));
    $c->session->{referer} = undef;
    $c->detach;
}

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 117 [32.3469]
[34.1197]
[34.1245]
```
    $c->session->{referer} = $c->request->uri;
```
Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 179 [32.3469]
[35.11462]
[35.11462]
```
sub sendEmail {
    my ($c, $to, $subject, $body) = @_;
```

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 184 [32.3469]

[35.11463]

    my $sender = $c->config->{'notification_sender'} ||
        (($ENV{'USER'} || "hydra") .  "@" . hostname_long);

Insertion in src/lib/Hydra/Helper/CatalystUtils.pm at line 187 [32.3469]

[35.11464]

[30.184]

    my $email = Email::Simple->create(
        header => [
            To      => $to,
            From    => "Hydra <$sender>",
            Subject => $subject
        ],
        body => $body
    );
    print STDERR "Sending email:\n", $email->as_string if $ENV{'HYDRA_MAIL_TEST'};
    sendmail($email);
}
# Catalyst request parameters can be an array or a scalar or
# undefined, making them annoying to handle.  So this utility function
# always returns a request parameter as a list.
sub paramToList {
    my ($c, $name) = @_;
    my $x = $c->request->params->{$name};
    return () unless defined $x;
    return @$x if ref($x) eq 'ARRAY';
    return ($x);
}

File deletion: change-password.tt

BF:BFD[36.1486] → [12.4396:4438]

BF:BFD[12.4438] → [12.3804:3804]

B:BD[12.3804] → [12.3805:3978]

∅:D[6.220] → [12.4006:4395]

B:BD[12.4006] → [12.4006:4395]

B:BD[12.3978] → [6.193:220]

[% WRAPPER layout.tt title="Change password" %]
[% PROCESS common.tt %]
<form action="[% c.uri_for('/change-password/submit') %]" method="post">
<h2>Change password</h2>
  <tr>
    <th>Enter password:</th>
    <td><input type="password" class="string" id="password" name="password" /></td>
  </tr>
  <tr>
    <th>Enter password again:</th>
    <td><input type="password" class="string" id="password_check" name="password_check" /></td>
  </tr>
</table>
<p><button type="submit"><img src="/static/images/success.gif" />Change</button></p>
</form>
[% END %]
<table class="info-table">

Replacement in src/root/topbar.tt at line 205 [38.6671]

B:BD[37.3012] → [9.4410:4525]

      [% INCLUDE makeLink uri = c.uri_for(c.controller('Root').action_for('preferences')) title = "Preferences" %]

[37.3012]

      [% INCLUDE makeLink uri = c.uri_for(c.controller('User').action_for('edit'), [c.user.username]) title = "Preferences" %]

Replacement in src/root/user.tt at line 1 [12.4561]

B:BD[12.4561] → [9.4526:4611]

[% WRAPPER layout.tt title=(create ? "Register new user" : "User $user.username") %]

[12.4561]

[12.4648]

[% WRAPPER layout.tt title=(create ? "Register new user" : "Editing user $user.username") %]

Replacement in src/root/user.tt at line 64 [12.4561]

B:BD[9.6222] → [9.6222:6356]

            <input type="checkbox" name="enabled" [% IF 1; 'checked="checked"'; END %]></input>Receive evaluation error notifications

[9.6222]

[9.6356]

            <input type="checkbox" name="emailonerror" [% IF emailonerror; 'checked="checked"'; END %]></input>Receive evaluation error notifications

Insertion in src/root/user.tt at line 102 [12.4561]

[9.7453]

      [% IF !create && c.check_user_roles('admin') %]
        <button id="reset-password" type="submit" class="btn btn-warning" name="submit" value="reset-password">
          <i class="icon-trash icon-white"></i>
          Reset password
        </button>
        <script type="text/javascript">
          $("#reset-password").click(function() {
            bootbox.confirm(
              'Are you sure you want to reset the password for this user?',
              function(c) {
                if (!c) return;
                $.post("[% c.uri_for(c.controller('User').action_for('edit'), [user.username]) %]", { submit: 'reset-password' })
                  .done(function(data) {
                    if (data.error)
                      bootbox.alert("Unable to reset password: " + data.error);
                    else
                      bootbox.alert("An email containing the new password has been sent to the user.");
                  })
                  .fail(function() { bootbox.alert("Server request failed!"); });
              });
            return false;
          });
        </script>
      [% END %]

Deletion in src/root/users.tt at line 12 [12.6750]
B:BD[7.1307] → [7.1307:1330]
```
      <th>Options</th>
```

Replacement in src/root/users.tt at line 17 [12.6750]

B:BD[7.1401] → [7.1401:1543]

        <td><a class="row-link" href="[% c.uri_for(c.controller('Admin').action_for('user_edit'), [u.username]) %]">[% u.username %]</a></td>

[7.1401]

[7.1543]

        <td><a class="row-link" href="[% c.uri_for(c.controller('User').action_for('edit'), [u.username]) %]">[% u.username %]</a></td>

Deletion in src/root/users.tt at line 22 [12.6750]

B:BD[7.1757] → [7.1757:2004]

        <td>[% INCLUDE maybeLink uri = c.uri_for(c.controller('Admin').action_for('reset_password'), [u.username]) content = "Reset password" confirmmsg = "Are you sure you want to reset the password for this user?" class = "btn btn-mini" %]</td>

Replacement in src/root/users.tt at line 27 [12.6750]

B:BD[12.7793] → [16.19786:19877]

<p><a class="btn" href="[% c.uri_for(c.controller('Admin').action_for('create_user')) %]">

[12.7793]

[16.19877]

<p><a class="btn" href="[% c.uri_for(c.controller('Root').action_for('register')) %]">

Replacement in src/script/hydra-build at line 117 [41.2912]
B:BD[39.662] → [40.0:34]
```
    my $baseurl = hostname_long ;
```
[39.662]
[42.393]
```
    my $baseurl = hostname_long;
```

Replacement in tests/Setup.pm at line 15 [43.518]

B:BD[5.19] → [5.19:130]

    $db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' });

[5.19]

[44.0]

    $db->resultset('Users')->create({ username => "root", emailaddress => 'root@invalid.org', password => '' });

Replacement in tests/jobs/bzr-update.sh at line 17 [46.5459]

B:BD[45.3584] → [45.3584:3642]

    bzr whoami "build <build@donotemail.com>" -d bzr-repo

[45.3584]

[45.3642]

    bzr whoami "build <build@invalid.org>" -d bzr-repo

Allow users to edit their own settings

Dependencies

In channels

Change contents

Deletion in src/lib/Hydra/Controller/API.pm at line 24 [10.24]

Deletion in src/lib/Hydra/Controller/API.pm at line 310 [10.24]

Replacement in src/lib/Hydra/Controller/API.pm at line 317 [10.24]

Replacement in src/lib/Hydra/Controller/API.pm at line 322 [10.24]

Deletion in src/lib/Hydra/Controller/API.pm at line 328 [10.24]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 11 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 47 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 48 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 49 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 50 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 53 [13.1]

Deletion in src/lib/Hydra/Controller/Admin.pm at line 57 [13.1]

Insertion in src/lib/Hydra/Controller/Admin.pm at line 177 [13.1]

Replacement in src/lib/Hydra/Controller/Root.pm at line 159 [26.804]

Deletion in src/lib/Hydra/Controller/Root.pm at line 227 [26.804]

Insertion in src/lib/Hydra/Controller/User.pm at line 3 [9.252]

Insertion in src/lib/Hydra/Controller/User.pm at line 7 [9.252]