projekt kivitendo

}

sub _recode_recursively {

  my ($iconv, $param) = @_;

  if (ref $param eq 'HASH') {

      }

    }

  }

}

sub new {

}

sub quote {

  my ($self, $str) = @_;

  if ($str && !ref($str)) {

  $str;

}

sub unquote {

  my ($self, $str) = @_;

  if ($str && !ref($str)) {

  $str;

}

sub hide_form {

  my $self = shift;

  if (@_) {

      print($main::cgi->hidden("-name" => $_, "-default" => $self->{$_}) . "\n");

    }

  }

}

sub error {

}

sub get_formname_translation {

  my ($self, $formname) = @_;

  $formname ||= $self->{formname};

    purchase_delivery_order => $main::locale->text('Delivery Order'),

  );

  return $formname_translations{$formname}

}

sub get_number_prefix_for_type {

  my ($self) = @_;

  my $prefix =

    : ($self->{type} =~ /_delivery_order$/)                   ? 'do'

    :                                                           'ord';

  return $prefix;

}

sub get_extension_for_format {

  my ($self)    = @_;

  my $extension = $self->{format} =~ /pdf/i          ? ".pdf"

                : $self->{format} =~ /html/i         ? ".html"

                :                                      "";

  return $extension;

}

sub generate_attachment_filename {

  my ($self) = @_;

  my $attachment_filename = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());

  $attachment_filename =  $main::locale->quote_special_chars('filenames', $attachment_filename);

  $attachment_filename =~ s|[\s/\\]+|_|g;

  return $attachment_filename;

}

sub generate_email_subject {

  my ($self) = @_;

  my $subject = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());

    $subject .= " " . $self->{"${prefix}number"}

  }

  return $subject;

}