projekt kivitendo

package SL::Presenter::SepaExportItem;

use strict;

use utf8;

use SL::Locale::String qw(t8);

use SL::Presenter::EscapedText qw(escape);

use Exporter qw(import);

our @EXPORT_OK = qw(show sepa_export_item);

use Carp;

sub show {goto &sepa_export_item};

sub sepa_export_item {

  my ($sepa_export_item) = @_;

  my ($title, $source, $destination) = $sepa_export_item->ap_id ?

      (t8('Bank transfer via SEPA'), 'our', 'vc')

    : (t8('Bank collections via SEPA'), 'vc', 'our')

  ;

  my $source_bic       = "${source}_bic";

  my $source_iban      = "${source}_iban";

  my $destination_bic  = "${destination}_bic";

  my $destination_iban = "${destination}_iban";

  escape(join ' ', (

     $title,

     $sepa_export_item->sepa_export_id . ":",

     t8('Execution date'), $sepa_export_item->execution_date,

     "-",

     t8('Export date'), $sepa_export_item->sepa_export->itime->to_kivitendo,

     "-",

     $sepa_export_item->$source_bic,

     $sepa_export_item->$source_iban,

     "→",

     $sepa_export_item->$destination_bic,

     $sepa_export_item->$destination_iban,

     "-",

     t8('Amount'), $sepa_export_item->amount,

  ));

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::Presenter::SepaExportItem - Presenter module for SL::DB::SepaExportItem objects

=head1 SYNOPSIS

  my $object = SL::DB::Manager::SepaExportItem->get_first();

  my $html   = SL::Presenter::SepaExportItem::sepa_export_item($object);

=head1 FUNCTIONS

=over 4

=item C<show $object>

Alias for C<sepa_export_item $object>.

=item C<sepa_export_item $object>

Returns a rendered version (actually an instance of

L<SL::Presenter::EscapedText>) of the sepa export item object

C<$object>.

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>

=cut