Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2536b717

Von Sven Schöling vor mehr als 10 Jahren hinzugefügt

  • ID 2536b717d4c7ce36e0bd2a85a6fba9e81d980955
  • Vorgänger 361a37a3
  • Nachfolger 98896d56

2 Warnungen in den Tests beseitigen

Unterschiede anzeigen:

SL/DBUpgrade2/Base.pm
90 90
    croak "File '${src_dir}/$_' does not exist" unless -f "${src_dir}/$_";
91 91
  }
92 92

  
93
  my $template_dir = $::instance_conf->reload->get_templates;
93
  return 1 unless my $template_dir = $::instance_conf->reload->get_templates;
94 94
  $::lxdebug->message(LXDebug::DEBUG1(), "add_print_templates: template_dir $template_dir");
95 95

  
96
  return 1 if !$template_dir;
97

  
98 96
  foreach my $src_file (@files) {
99 97
    my $dest_file = $template_dir . '/' . $src_file;
100 98

  
SL/Form.pm
2365 2365
  my $dbh = $self->get_standard_dbh(\%main::myconfig);
2366 2366
  my ($sth, $query, $ref);
2367 2367

  
2368
  my $vc = $self->{"vc"} eq "customer" ? "customer" : "vendor";
2369
  my $vc_id = $self->{"${vc}_id"};
2368
  my ($vc, $vc_id);
2369
  if ($params{contacts} || $params{shipto}) {
2370
    $vc = 'customer' if $self->{"vc"} eq "customer";
2371
    $vc = 'vendor'   if $self->{"vc"} eq "vendor";
2372
    die "invalid use of get_lists, need 'vc'";
2373
    $vc_id = $self->{"${vc}_id"};
2374
  }
2370 2375

  
2371 2376
  if ($params{"contacts"}) {
2372 2377
    $self->_get_contacts($dbh, $vc_id, $params{"contacts"});

Auch abrufbar als: Unified diff