projekt kivitendo

use SL::DB::Letter;

  filter            => 'type_filter',

  project           => 'globalproject',

  description       => 'transaction_description',

  description_title => t8('Transaction description'),

  date              => 'transdate',

  { title => t8('Requirement spec'),        type => 'requirement_spec',        model => 'RequirementSpec', number => 'id',           description => 'title',   description_title => t8('Title'),   date => undef, project => 'project', filter => 'working_copy_filter', },

  { title => t8('Letter'),                  type => 'letter',                  model => 'Letter',          number => 'letternumber', description => 'subject', description_title => t8('Subject'), date => 'date', project => undef },

  my $vc          = $self->link_type =~ m/sales_|^invoice|requirement_spec|letter/ ? 'customer' : 'vendor';

  my $project_id  = "${project}_id";

  my @where = $filter && $manager->can($filter) ? $manager->$filter($self->link_type) : ();

  push @where, ($project_id             => $::form->{globalproject_id})                                 if $::form->{globalproject_id} && $manager->can($project_id);

  my @with_objects = ($vc);

  push @with_objects, $project if $manager->can($project_id);

  my $objects = $manager->get_all_sorted(where => \@where, with_objects => \@with_objects);

    description_title  => $self->link_type_desc->{description_title},

                  'SL::DB::Letter'          => sub { $_[0]->letternumber },

              'SL::DB::PurchaseInvoice' => 150,

              'SL::DB::Letter'          => 200,

use SL::DB::Helper::LinkedRecords;

use SL::Presenter::Letter;

package SL::Presenter::Letter;

use strict;

use parent qw(Exporter);

use Exporter qw(import);

our @EXPORT = qw(letter);

use Carp;

sub letter {

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

  $params{display} ||= 'inline';

  croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;

  my $text = join '', (

    $params{no_link} ? '' : '<a href="controller.pl?action=Letter/edit&amp;letter.id=' . $self->escape($letter->id) . '">',

    $self->escape($letter->letternumber),

    $params{no_link} ? '' : '</a>',

  );

  return $self->escaped_text($text);

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::Presenter::Letter - Presenter module for letter objects

=head1 SYNOPSIS

  my $letter = SL::DB::Manager::Letter->get_first(where => [ … ]);

  my $html   = SL::Presenter->get->letter($letter, display => 'inline');

=head1 FUNCTIONS

=over 4

=item C<letter $object, %params>

Returns a rendered version (actually an instance of

L<SL::Presenter::EscapedText>) of the letter object C<$object>

.

C<%params> can include:

=over 2

=item * display

Either C<inline> (the default) or C<table-cell>. At the moment both

representations are identical and produce the invoice number linked

to the corresponding 'edit' action.

=item * no_link

If falsish (the default) then the invoice number will be linked to the

"edit invoice" dialog from the general ledger menu.

=back

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut

  $output .= _letter_list(                 $self, $groups{letters},                  %params) if $groups{letters};

    letters                  => sub { (ref($_[0]) eq 'SL::DB::Letter')          &&  $_[0]->id                           },

sub _letter_list {

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

  return $self->record_list(

    $list,

    title   => $::locale->text('Letters'),

    type    => 'letter',

    columns => [

      [ $::locale->text('Date'),         'date'                                                ],

      [ $::locale->text('Letternumber'), sub { $self->letter($_[0], display => 'table-cell') } ],

      [ $::locale->text('Customer'),     'customer'                                            ],

      [ $::locale->text('Reference'),    'reference'                                           ],

      [ $::locale->text('Subject'),      'subject'                                             ],

    ],

    %params,

  );

}

"Subject":"Betreff",

  <div id="oe_tabs" class="tabwidget">

   <ul>

    <li><a href="#ui-tabs-letter">[% LxERP.t8("Letter") %]</a></li>

[%- IF letter.id %]

    <li><a href="controller.pl?action=RecordLinks/ajax_list&object_model=Letter&object_id=[% HTML.url(letter.id) %]">[% LxERP.t8("Linked Records") %]</a></li>

[%- END %]

   </ul>

   <div id="ui-tabs-letter">

 </div>

 <div id="ui-tabs-1">

  [%- LxERP.t8("Loading...") %]

 </div>

</div>

  <tr id="record_links_add_filter_project_row">

  $('#record_links_add_filter_link_type').change(record_links_change_form_to_match_type);

  record_links_change_form_to_match_type();

function record_links_change_form_to_match_type() {

  var type  = $('#record_links_add_filter_link_type').val();

  var title = type == 'requirement_spec' ? kivi.t8('Title')

            : type == 'letter'           ? kivi.t8('Subject')

            :                              kivi.t8('Transaction description');

  if (type == 'letter') {

    $('#record_links_add_filter_project_row').hide();

  } else {

    $('#record_links_add_filter_project_row').show();

  }

  $('#record_links_add_filter_title').html(title);

}

  <th>[% HTML.escape(description_title) %]</th>

  [% IF project_column %]

   <th>[%- LxERP.t8("Project") %]</th>

  [% END %]

  [% IF project_column %]

   <td>[%- P.project(object.$project_column, no_link=1) %]</td>

  [% END %]