Merge branch 'tax_festsetzen'

[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 94d3c566afd1ee0fa6c081d17e46ac4079800f7f..f406817f6ef83404ac657f84ece1b478a3a01a22 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -467,9 +467,10 @@ sub header {
    # standard css for all
    # this should gradually move to the layouts that need it
    $layout->use_stylesheet("$_.css") for qw(
-    main menu tabcontent list_accounts jquery.autocomplete
+    main menu list_accounts jquery.autocomplete
      jquery.multiselect2side frame_header/header
      ui-lightness/jquery-ui-1.8.12.custom
+    jquery-ui.custom
      js/jscalendar/calendar-win2k-1
    );
  
@@ -515,15 +516,6 @@ EOT
    print "  $_\n" for @header;
    print <<EOT;
    <meta name="robots" content="noindex,nofollow">
-  <script type="text/javascript" src="js/tabcontent.js">
-
-  /***********************************************
-   * Tab Content script v2.2- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
-   * This notice MUST stay intact for legal use
-   * Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
-   ***********************************************/
-
-  </script>
   </head>
   <body>
  
@@ -2537,7 +2529,7 @@ sub all_vc {
    # Hotfix für Bug 1837 - Besser wäre es alte Buchungsbelege
    # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
    # nicht für veränderbare Belege (oe, do, ...)
-  my $obsolete = "WHERE NOT obsolete" unless $self->{id};
+  my $obsolete = $self->{id} ? '' : "WHERE NOT obsolete";
    my $query = qq|SELECT count(*) FROM $table $obsolete|;
    my ($count) = selectrow_query($self, $dbh, $query);
  
@@ -2738,7 +2730,7 @@ sub create_links {
    }
  
    my $extra_columns = '';
-  $extra_columns   .= 'a.direct_debit, ' if $module eq 'AR';
+  $extra_columns   .= 'a.direct_debit, ' if ($module eq 'AR') || ($module eq 'AP');
  
    if ($self->{id}) {
      $query =