Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision db9ec33a

Von Moritz Bunkus vor fast 11 Jahren hinzugefügt

  • ID db9ec33ad27c32416647a21d82217959aa34bf0f
  • Vorgänger 2714604a
  • Nachfolger 7d993563

SL::Form->prepare_for_printing: Variablen aus %::myconfig sowie output_*format zur Verfügung stellen

Unterschiede anzeigen:

SL/Form.pm
3326 3326
  # compatibility.
3327 3327
  $self->{$_} = $defaults->$_ for qw(company address taxnumber co_ustid duns sepa_creditor_id);
3328 3328

  
3329
  $self->{"myconfig_${_}"} = $::myconfig{$_} for grep { $_ ne 'dbpasswd' } keys %::myconfig;
3330

  
3331
  if (!$self->{employee_id}) {
3332
    $self->{"employee_${_}"} = $::myconfig{$_} for qw(email tel fax name signature);
3333
    $self->{"employee_${_}"} = $defaults->$_   for qw(address businessnumber co_ustid company duns sepa_creditor_id taxnumber);
3334
  }
3335

  
3329 3336
  # set shipto from billto unless set
3330 3337
  my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);
3331 3338
  if (!$has_shipto && ($self->{type} =~ m/^(?:purchase_order|request_quotation)$/)) {
......
3344 3351
    $output_longdates    = 1;
3345 3352
  }
3346 3353

  
3354
  $self->{myconfig_output_dateformat}   = $output_dateformat;
3355
  $self->{myconfig_output_longdates}    = $output_longdates;
3356
  $self->{myconfig_output_numberformat} = $output_numberformat;
3357

  
3347 3358
  # Retrieve accounts for tax calculation.
3348 3359
  IC->retrieve_accounts(\%::myconfig, $self, map { $_ => $self->{"id_$_"} } 1 .. $self->{rowcount});
3349 3360

  

Auch abrufbar als: Unified diff