projekt kivitendo

package SL::Controller::RequirementSpecTextBlock;

use strict;

use parent qw(SL::Controller::Base);

use SL::Helper::Flash;

use SL::Locale::String;

(

#

# actions

#

my ($self) = @_;

my $result = { };

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type});

my $new_where;

} else {

$new_where = $self->output_position_from_id($::form->{clicked_id});

}

# $::lxdebug->message(0, "cur $current_where new $new_where");

->run(SORTABLE_PICTURE_LIST())

->render($self);

my ($self) = @_;

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type}) // -1;

my $new_where = $self->output_position_from_id($::form->{id}) // $::form->{output_position};

my ($self) = @_;

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type}) // -1;

$self->show_list(output_position => $self->text_block->output_position, id => $self->text_block->id, requirement_spec_id => $self->text_block->requirement_spec_id);

->hide('#text-block-' . $self->text_block->id)

->jstree->select_node('#tree', '#tb-' . $self->text_block->id)

}

my $insert_after = delete $attributes->{insert_after};

return SL::ClientJS->new->error(@errors)->render($self) if @errors;

$self->text_block->add_to_list(position => 'after', reference => $insert_after) if $insert_after;

my $html = $self->render('requirement_spec_text_block/_text_block', { output => 0 }, text_block => $self->text_block);

$self->add_new_text_block_form(output_position => $self->text_block->output_position, insert_after_id => $self->text_block->id, requirement_spec_id => $self->text_block->requirement_spec_id)

}

my $prefix = $::form->{form_prefix} || 'text_block';

my $attributes = $::form->{$prefix} || {};

}

return SL::ClientJS->new->error(@errors)->render($self) if @errors;

$self->text_block->save;

my $html = $self->render('requirement_spec_text_block/_text_block', { output => 0 }, text_block => $self->text_block);

->replaceWith('#text-block-' . $self->text_block->id, $html)

->addClass('#tb-' . $self->text_block->id . ' a', 'tooltip')

->reinit_widgets

}

my ($self) = @_;

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type}) // -1;

if ($self->text_block->output_position == $current_where) {

->remove('#edit_text_block_' . $self->text_block->id . '_form')

$self->text_block->delete;

sub action_ajax_flag {

my ($self) = @_;

$self->text_block->update_attributes(is_flagged => !$self->text_block->is_flagged);

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type});

SL::ClientJS->new

->action_if($current_where == $self->text_block->output_position, 'toggleClass', '#text-block-' . $self->text_block->id, 'flagged')

->toggleClass('#tb-' . $self->text_block->id, 'flagged')

->render($self);

my ($self) = @_;

my $position = $::form->{position} =~ m/^ (?: before | after | last ) $/x ? $::form->{position} : die "Unknown 'position' parameter";

my $dropped_text_block = $position =~ m/^ (?: before | after ) $/x ? SL::DB::RequirementSpecTextBlock->new(id => $::form->{dropped_id})->load : undef;

$self->text_block->remove_from_list;

});

->jstree->open_node('#tree', '#tb-' . (!$self->text_block->output_position ? 'front' : 'back'));

return $self->js->render($self) if $::form->{current_content_type} !~ m/^text-block/;

my $current_where = $self->output_position_from_id($::form->{current_content_id}, $::form->{current_content_type}) // -1;

my $id = $self->text_block->id;

# $::lxdebug->message(0, "old $old_where current $current_where new $new_where current_CID " . $::form->{current_content_id} . ' selfid ' . $self->text_block->id);

if (($old_where != $new_where) && ($::form->{current_content_id} == $self->text_block->id)) {

# The currently selected text block is dragged to the opposite

# text block location. Re-render the whole content column.

} else {

if ($old_where == $current_where) {

if (0 == scalar(@{ SL::DB::Manager::RequirementSpecTextBlock->get_all(where => [ requirement_spec_id => $self->text_block->requirement_spec_id, output_position => $current_where ]) })) {

}

if ($new_where == $current_where) {

my $html = "" . $self->render('requirement_spec_text_block/_text_block', { output => 0 }, text_block => $self->text_block);

$html =~ s/^\s+//;

my $prior_text_block = $self->text_block->get_previous_in_list;

if ($prior_text_block) {

}

}

->run(SORTABLE_PICTURE_LIST())

->render($self);

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

SL::Clipboard->new->copy($self->text_block);

SL::ClientJS->new->render($self);

}

sub action_ajax_paste {

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

return SL::ClientJS->new

->error(t8("The clipboard does not contain anything that can be pasted here."))

->render($self);

}

$self->load_requirement_spec_text_block;

return $self->paste_picture($copied);

}

my $new_output_position = $::form->{id} ? $self->output_position_from_id($::form->{id}) : $::form->{output_position};

my $front_back = 0 == $new_output_position ? 'front' : 'back';

$self->text_block($copied->to_object);

$self->text_block->update_attributes(requirement_spec_id => $::form->{requirement_spec_id}, output_position => $new_output_position);

$self->text_block->add_to_list(position => 'after', reference => $::form->{id}) if $::form->{id};

if ($current_output_position == $new_output_position) {

my $html = $self->render('requirement_spec_text_block/_text_block', { output => 0 }, text_block => $self->text_block);

->render($self);

# actions for pictures

#

sub action_ajax_add_picture {

my ($self) = @_;

$self->picture(SL::DB::RequirementSpecPicture->new);

$self->render('requirement_spec_text_block/_picture_form', { layout => 0 });

}

sub action_ajax_edit_picture {

my ($self) = @_;

$self->text_block($self->picture->text_block);

$self->render('requirement_spec_text_block/_picture_form', { layout => 0 });

}

sub action_ajax_create_picture {

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

my $attributes = $::form->{ $::form->{form_prefix} } || die "Missing attributes";

$attributes->{picture_file_name} = ((($::form->{ATTACHMENTS} || {})->{ $::form->{form_prefix} } || {})->{picture_content} || {})->{filename};

my @errors = $self->picture(SL::DB::RequirementSpecPicture->new(%{ $attributes }))->validate;

return $self->js->error(@errors)->render($self) if @errors;

$self->picture->save;

$self->text_block($self->picture->text_block);

my $html = $self->render('requirement_spec_text_block/_text_block_picture', { output => 0 }, picture => $self->picture);

$self->invalidate_version

->dialog->close('#jqueryui_popup_dialog')

->append('#text-block-' . $self->text_block->id . '-pictures', $html)

->show('#text-block-' . $self->text_block->id . '-pictures')

->render($self);

}

sub action_ajax_update_picture {

my ($self) = @_;

my $attributes = $::form->{ $::form->{form_prefix} } || die "Missing attributes";

if (!$attributes->{picture_content}) {

delete $attributes->{picture_content};

} else {

$attributes->{picture_file_name} = ((($::form->{ATTACHMENTS} || {})->{ $::form->{form_prefix} } || {})->{picture_content} || {})->{filename};

}

$self->picture->assign_attributes(%{ $attributes });

my @errors = $self->picture->validate;

return $self->js->error(@errors)->render($self) if @errors;

$self->picture->save;

$self->text_block($self->picture->text_block);

my $html = $self->render('requirement_spec_text_block/_text_block_picture', { output => 0 }, picture => $self->picture);

$self->invalidate_version

->dialog->close('#jqueryui_popup_dialog')

->replaceWith('#text-block-picture-' . $self->picture->id, $html)

->show('#text-block-' . $self->text_block->id . '-pictures')

->render($self);

}

sub action_ajax_delete_picture {

my ($self) = @_;

$self->picture->delete;

$self->text_block(SL::DB::RequirementSpecTextBlock->new(id => $self->picture->text_block_id)->load);

$self->invalidate_version

->remove('#text-block-picture-' . $self->picture->id)

->action_if(!@{ $self->text_block->pictures }, 'hide', '#text-block-' . $self->text_block->id . '-pictures')

->render($self);

}

sub action_ajax_download_picture {

my ($self) = @_;

$self->send_file(\$self->picture->{picture_content}, type => $self->picture->picture_content_type, name => $self->picture->picture_file_name);

}

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

SL::Clipboard->new->copy($self->picture);

SL::ClientJS->new->render($self);

}

sub action_ajax_paste_picture {

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

my $copied = SL::Clipboard->new->get_entry(qr/^RequirementSpecPicture$/);

if (!$copied) {

return SL::ClientJS->new

->error(t8("The clipboard does not contain anything that can be pasted here."))

->render($self);

}

$self->text_block($self->picture->text_block); # Save text block via the picture the user clicked on

$self->paste_picture($copied);

}

my ($self) = @_;

SL::DB::RequirementSpecPicture->reorder_list(@{ $::form->{picture_id} || [] });

$self->render(\'', { type => 'json' });

}

# filters

#

my ($self) = @_;

$::auth->assert('requirement_spec_edit');

}

my ($self) = @_;

$self->text_block(SL::DB::RequirementSpecTextBlock->new(id => $::form->{id})->load || die "No such requirement spec text block");

}

#

# helpers

#

my ($self, $id, $type, %params) = @_;

return $1 eq 'front' ? 0 : 1 if $type =~ m/-(front|back)$/;

return undef if $type !~ m/text-block/;

}

sub init_predefined_texts {

return SL::DB::RequirementSpecPicture->new(id => $::form->{picture_id} || $::form->{id})->load;

}

requirement_spec => SL::DB::RequirementSpec->new(id => $::form->{requirement_spec_id} || $self->text_block->requirement_spec_id)->load);

return $self->js->html('#requirement_spec_version', $html);

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

croak "Missing parameter requirement_spec_id" unless $params{requirement_spec_id};

$self->text_block(SL::DB::RequirementSpecTextBlock->new(

));

my $id_base = join('_', 'new_text_block', Time::HiRes::gettimeofday(), int rand 1000000000000);

my $html = $self->render('requirement_spec_text_block/_form', { output => 0 }, id_base => $id_base, insert_after => $params{insert_after_id});

$self->js

->action($params{insert_after_id} ? 'insertAfter' : 'appendTo', $html, '#text-block-' . ($params{insert_after_id} || 'list'))

}

my $self = shift;

$params{requirement_spec_id} ||= $::form->{requirement_spec_id};

croak "Unknown requirement_spec_id" if !$params{requirement_spec_id};

my $text_blocks = SL::DB::Manager::RequirementSpecTextBlock->get_all_sorted(where => [ output_position => $params{output_position}, requirement_spec_id => $params{requirement_spec_id} ]);

my $html = $self->render('requirement_spec_text_block/ajax_list', { output => 0 }, TEXT_BLOCKS => $text_blocks, output_position => $params{output_position});

$self->js->html('#column-content', $html);

$self->js->val('#current_content_id', $params{id}) if $params{id};