projekt kivitendo

use SL::DBUtils;

use SL::DB;

sub unique_id {

  my ($a, $b) = gettimeofday();

      . $main::locale->text('To (email)') . ": $form->{email}\n"

      . "${cc}${bcc}"

      . $main::locale->text('Subject') . ": $form->{subject}\n\n"

    $intnotes =~ s|\r||g;

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

use SL::Helper::Flash qw(flash_later);

use SL::Presenter::Tag qw(select_tag hidden_tag div_tag);

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

use SL::SessionFile::Random;

  $intnotes   .= t8('Cc')         . ": " . $::form->{cc}                                                              . "\n"    if $::form->{cc};

  $intnotes   .= t8('Bcc')        . ": " . $::form->{bcc}                                                             . "\n"    if $::form->{bcc};

  $intnotes   .= t8('Subject')    . ": " . $::form->{subject}                                                         . "\n\n";

  $self->order->update_attributes(intnotes => $intnotes);

  $mail->{to}     = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};

  $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;

  $mail->{fileid} = time() . '.' . $$ . '.';

  my $full_signature     =  $self->create_email_signature();

  $mail->{attachments} =  [];

  my @attfiles;

  # if we send html or plain text inline

  if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) {

    $mail->{message}        =~ s/\r//g;

    $mail->{message}        =~ s{\n}{<br>\n}g;

    $mail->{message}       .=  $full_signature;

    open(IN, "<", $self->{tmpfile})

  return undef unless $body;

  my $translation_type = $params{translation_type} // "preset_text_$self->{formname}";

  my $main_body        = GenericTranslations->get(translation_type => $translation_type,                  language_id => $self->{language_id});

  $main_body           = GenericTranslations->get(translation_type => $params{fallback_translation_type}, language_id => $self->{language_id}) if !$main_body && $params{fallback_translation_type};

  $body               .= $main_body;

  $body = $main::locale->unquote_special_chars('HTML', $body);

}

sub create_email_signature {

  my $client_signature = $::instance_conf->get_signature;

  my $user_signature   = $::myconfig{signature};

sub calculate_tax {

  # this function calculates the net amount and tax for the lines in ar, ap and

    if (!kivi.SalesPurchase.check_required_email_fields())

      return false;

    $('#send_email_dialog').children().remove().appendTo('#email_inputs');

    $('#send_email_dialog').dialog('close');

    kivi.submit_form_with_action('#form', $('#form').data('send-email-action'));

    return true;

    $('#print_options').children().remove().appendTo('#email_form_print_options');

    var to_focus = $('#email_form_to').val() === '' ? 'to' : 'subject';

    $('#email_form_' + to_focus).focus();

  };

   <th align="right" nowrap>[% LxERP.t8("Message") %]

    <sup> [% L.link("generictranslations.pl?action=edit_email_strings", "1)", title=LxERP.t8('Tired of copying always nice phrases for this message? Click here to use the new preset message option!'), target="_blank") %]</sup>

  </th>

  </tr>

[% IF INSTANCE_CONF.get_doc_storage %]