X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f46bab538d8953b357098ca4ff9ace670d9b0d55..b8fee3fc:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 94d3c566a..6a6dc9c21 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
+ ui-lightness/jquery-ui
+ jquery-ui.custom
js/jscalendar/calendar-win2k-1
);
@@ -489,10 +490,12 @@ sub header {
push @header, "";
}
- push @header, map { qq|| } $layout->stylesheets;
+ my $auto_reload_resources_param = $layout->auto_reload_resources_param;
+
+ push @header, map { qq|| } $layout->stylesheets;
push @header, " " if $self->{landscape};
push @header, "" if -f $self->{favicon};
- push @header, map { qq|| } $layout->javascripts;
+ push @header, map { qq|| } $layout->javascripts;
push @header, $self->{javascript} if $self->{javascript};
push @header, map { $_->show_javascript } @{ $self->{AJAX} || [] };
@@ -515,15 +518,6 @@ EOT
print " $_\n" for @header;
print <
-
@@ -2537,7 +2531,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 +2732,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 =