projekt kivitendo

sub set_standard_title {

  $::lxdebug->enter_sub;

  my $self = shift;

  $self->{titlebar}  = "Lx-Office " . $::locale->text('Version') . " $self->{version}";

  $self->{titlebar} .= "- $::myconfig{name}"   if $::myconfig{name};

  $self->{titlebar} .= "- $::myconfig{dbname}" if $::myconfig{name};

  $::lxdebug->leave_sub;

}

  if (!$self->{callback}) {

#  my ($script, $argv) = split(/\?/, $self->{callback}, 2);

#  $script =~ s|.*/||;

#  $script =~ s|[^a-zA-Z0-9_\.]||g;

#  exec("perl", "$script", $argv);

  print $::form->redirect_header($self->{callback});