+sub action_revert_to {
+ my ($self, %params) = @_;
+
+ return $self->js->error(t8('Cannot revert a versioned copy.'))->render($self) if $self->requirement_spec->working_copy_id;
+
+ my $versioned_copy = SL::DB::RequirementSpec->new(id => $::form->{versioned_copy_id})->load;
+
+ $self->requirement_spec->copy_from(
+ $versioned_copy,
+ version_id => $versioned_copy->version_id,
+ );
+
+ flash_later('info', t8('The requirement spec has been reverted to version #1.', $self->requirement_spec->version->version_number));
+ $self->js->redirect_to($self->url_for(action => 'show', id => $self->requirement_spec->id))->render($self);
+}
+
+sub action_create_pdf {
+ my ($self, %params) = @_;
+
+ my %result = SL::Template::LaTeX->parse_and_create_pdf('requirement_spec.tex', SELF => $self, rspec => $self->requirement_spec);
+
+ $::form->error(t8('Conversion to PDF failed: #1', $result{error})) if $result{error};
+
+ my $attachment_name = $self->requirement_spec->type->description . ' ' . ($self->requirement_spec->working_copy_id || $self->requirement_spec->id);
+ $attachment_name .= ' (v' . $self->requirement_spec->version->version_number . ')' if $self->requirement_spec->version;
+ $attachment_name .= '.pdf';
+ $attachment_name =~ s/[^\wäöüÄÖÜß \-\+\(\)\[\]\{\}\.,]+/_/g;
+
+ $self->send_file($result{file_name}, type => 'application/pdf', name => $attachment_name);
+ unlink $result{file_name};
+}
+
+sub action_select_template_to_paste {
+ my ($self) = @_;
+
+ my @templates = grep { @{ $_->sections } || @{ $_->text_blocks } } @{ SL::DB::Manager::RequirementSpec->get_all(where => [ is_template => 1 ], sort_by => 'lower(title)') };
+ $self->render('requirement_spec/select_template_to_paste', { layout => 0 }, TEMPLATES => \@templates);
+}
+
+sub action_paste_template {
+ my ($self, %params) = @_;
+
+ my $template = SL::DB::RequirementSpec->new(id => $::form->{template_id})->load;
+ my %result = $self->requirement_spec->paste_template($template);
+
+ return $self->js->error($self->requirement_spec->error)->render($self) if !%result;
+
+ $self->render_pasted_text_block($_) for sort { $a->position <=> $b->position } @{ $result{text_blocks} };
+ $self->render_pasted_section($_) for sort { $a->position <=> $b->position } @{ $result{sections} };
+
+ if (@{ $result{sections} } && (($::form->{current_content_type} || 'sections') eq 'sections') && !$::form->{current_content_id}) {
+ $self->render_first_pasted_section_as_list($result{sections}->[0]);
+ }
+
+ $self->invalidate_version->render($self);
+}
+