projekt kivitendo

  my $callback   = $form->unescape($form->{callback});

  $callback      = URI->new($callback)->rel($callback) if $callback;

  $form->header;

  my $charset = $dbcharset || 'ISO-8859-1';

  my $callback            = $form->unescape($form->{callback});

  $callback               = URI->new($callback)->rel($callback) if $callback;

  my $text    = $form->create_http_response('content_type' => 'text/xml',

                                            'charset'      => $charset)

  $form->{menu_items}     = acc_menu();

  my $callback            = $form->unescape($form->{callback});

  $callback               = URI->new($callback)->rel($callback) if $callback;

  $form->{callback}       = $callback;

  print $form->parse_html_template("menu/menunew");

  $form->{menu}     = acc_menu();

  my $callback      = $form->unescape($form->{callback});

  $callback         = URI->new($callback)->rel($callback) if $callback;

  $form->{callback} = $callback;

  print $form->parse_html_template("menu/menuv3");

  $form->{date}     = clock_line();

  $form->{menu}     = acc_menu();

  my $callback      = $form->unescape($form->{callback});

  $callback         = URI->new($callback)->rel($callback) if $callback;

  $form->{callback} = $callback;

  print $form->parse_html_template("menu/menuv4");