grahamc/hydra2 - Change BXHG3HYLCKXL35S2MCIBTXTP6UO55NASYE7XCLQP4PXPSVDMUIAQC

When renaming a jobset, add a redirect from the old name

Created by Eelco Dolstra on April 23, 2014

BXHG3HYLCKXL35S2MCIBTXTP6UO55NASYE7XCLQP4PXPSVDMUIAQC

Dependencies

In channels

main

Change contents

Replacement in src/lib/Hydra/Controller/Jobset.pm at line 23 [6.104]

B:BD[4.245] → [5.123:284]

    notFound($c, "Jobset ‘$jobsetName’ doesn't exist.")
        if !$c->stash->{jobset} && !($c->action->name eq "jobset" and $c->request->method eq "PUT");

[4.245]

[6.699]

    if (!$c->stash->{jobset} && !($c->action->name eq "jobset" and $c->request->method eq "PUT")) {
        my $rename = $project->jobsetrenames->find({ from_ => $jobsetName });
        notFound($c, "Jobset ‘$jobsetName’ doesn't exist.") unless defined $rename;
        $c->stash->{jobset} = $project->jobsets->find({ name => $rename->to_ }) or die;
    }

Insertion in src/lib/Hydra/Controller/Jobset.pm at line 199 [6.104]
[5.1112]
[5.1112]
```
    my $oldName = $jobset->name;
```

Replacement in src/lib/Hydra/Controller/Jobset.pm at line 204 [6.104]

B:BD[5.1361] → [5.1361:1474]

        if $jobsetName ne $jobset->name && defined $c->stash->{project}->jobsets->find({ name => $jobsetName });

[5.1361]

[7.1667]

        if $jobsetName ne $oldName && defined $c->stash->{project}->jobsets->find({ name => $jobsetName });

Insertion in src/lib/Hydra/Controller/Jobset.pm at line 231 [6.104]

[7.2285]

[2.64]

    $jobset->project->jobsetrenames->search({ from_ => $jobsetName })->delete;
    $jobset->project->jobsetrenames->create({ from_ => $oldName, to_ => $jobsetName })
        if $jobsetName ne $oldName;

File addition: JobsetRenames.pm (----------)

[8.477]

use utf8;
package Hydra::Schema::JobsetRenames;
# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE
=head1 NAME
Hydra::Schema::JobsetRenames
=cut
use strict;
use warnings;
use base 'DBIx::Class::Core';
=head1 COMPONENTS LOADED
=over 4
=item * L<Hydra::Component::ToJSON>
=back
=cut
__PACKAGE__->load_components("+Hydra::Component::ToJSON");
=head1 TABLE: C<JobsetRenames>
=cut
__PACKAGE__->table("JobsetRenames");
=head1 ACCESSORS
=head2 project
  data_type: 'text'
  is_foreign_key: 1
  is_nullable: 0
=head2 from_
  data_type: 'text'
  is_nullable: 0
=head2 to_
  data_type: 'text'
  is_foreign_key: 1
  is_nullable: 0
=cut
__PACKAGE__->add_columns(
  "project",
  { data_type => "text", is_foreign_key => 1, is_nullable => 0 },
  "from_",
  { data_type => "text", is_nullable => 0 },
  "to_",
  { data_type => "text", is_foreign_key => 1, is_nullable => 0 },
);
=head1 PRIMARY KEY
=over 4
=item * L</project>
=item * L</from_>
=back
=cut
__PACKAGE__->set_primary_key("project", "from_");
=head1 RELATIONS
=head2 jobset
Type: belongs_to
Related object: L<Hydra::Schema::Jobsets>
=cut
__PACKAGE__->belongs_to(
  "jobset",
  "Hydra::Schema::Jobsets",
  { name => "to_", project => "project" },
  { is_deferrable => 0, on_delete => "CASCADE", on_update => "CASCADE" },
);
=head2 project
Type: belongs_to
Related object: L<Hydra::Schema::Projects>
=cut
__PACKAGE__->belongs_to(
  "project",
  "Hydra::Schema::Projects",
  { name => "project" },
  { is_deferrable => 0, on_delete => "CASCADE", on_update => "CASCADE" },
);
# Created by DBIx::Class::Schema::Loader v0.07033 @ 2014-04-23 23:13:51
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SBpKWF9swFc9T1Uc0VFlgA
# You can replace this text with custom code or comments, and it will be preserved on regeneration
1;

Insertion in src/lib/Hydra/Schema/Jobsets.pm at line 273 [10.1960]

[9.3194]


=head2 jobsetrenames
Type: has_many
Related object: L<Hydra::Schema::JobsetRenames>

Insertion in src/lib/Hydra/Schema/Jobsets.pm at line 280 [10.1960]

[9.3195]

[11.22309]

=cut
__PACKAGE__->has_many(
  "jobsetrenames",
  "Hydra::Schema::JobsetRenames",
  { "foreign.project" => "self.project", "foreign.to_" => "self.name" },
  undef,
);

Replacement in src/lib/Hydra/Schema/Jobsets.pm at line 323 [10.1960]

B:BD[12.1963] → [12.1963:2105]

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2013-10-14 15:46:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:DTAGxP5RFvcNxP/ciJGo4Q

[12.1963]

[3.0]

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2014-04-23 23:13:51
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:CO0aE+jrjB+UrwGRzWZLlw

Insertion in src/lib/Hydra/Schema/Projects.pm at line 153 [10.3266]
[13.2211]
[14.20800]
```
=head2 jobsetrenames
Type: has_many
Related object: L<Hydra::Schema::JobsetRenames>
```

Insertion in src/lib/Hydra/Schema/Projects.pm at line 160 [10.3266]

[14.20801]

[11.24803]

=cut
__PACKAGE__->has_many(
  "jobsetrenames",
  "Hydra::Schema::JobsetRenames",
  { "foreign.project" => "self.name" },
  undef,
);

Replacement in src/lib/Hydra/Schema/Projects.pm at line 300 [10.3266]

B:BD[15.7308] → [12.2323:2465]

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2013-10-14 15:46:29
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PdNQ2mf5azBB6nI+iAm8fQ

[15.7308]

[16.171]

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2014-04-23 22:48:21
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:l8eN9UAavdqnL7Sjv4rmFw

Insertion in src/sql/hydra.sql at line 73 [17.1]

[13.5726]

);
create table JobsetRenames (
    project       text not null,
    from_         text not null,
    to_           text not null,
    primary key   (project, from_),
    foreign key   (project) references Projects(name) on delete cascade on update cascade,
    foreign key   (project, to_) references Jobsets(project, name) on delete cascade on update cascade

File addition: upgrade-26.sql (----------)

[8.3004]

create table JobsetRenames (
    project       text not null,
    from_         text not null,
    to_           text not null,
    primary key   (project, from_),
    foreign key   (project) references Projects(name) on delete cascade on update cascade,
    foreign key   (project, to_) references Jobsets(project, name) on delete cascade on update cascade
);