X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f46bab538d8953b357098ca4ff9ace670d9b0d55..7ff9fa05e670aa2e5fa76b9d8d0b39ea66a74dd1:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index 94d3c566a..f406817f6 100644 --- 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 < - @@ -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 =