X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fir.pl;h=c9624ccb3035b25ea14f1f0406e0195a006a8f68;hb=e06a7e08648363ef8c8ef14678ab853ae7bdd670;hp=136d6790f78bbf642e170c11ffb5ff589660789b;hpb=d7f060429e809653d45e93e86b3c5c8d7129e0a9;p=kivitendo-erp.git diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl index 136d6790f..c9624ccb3 100644 --- a/bin/mozilla/ir.pl +++ b/bin/mozilla/ir.pl @@ -291,7 +291,7 @@ sub form_header { | . $locale->text('Contact Person') . qq| | . - NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values, + NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values, '-style' => 'width: 250px', '-labels' => \%labels, '-default' => $form->{"cp_id"})) . qq| @@ -345,7 +345,7 @@ sub form_header { '-values' => \@values, '-labels' => \%labels)) . qq| |; - + %labels = (); @values = (); my $i = 0; @@ -358,7 +358,8 @@ sub form_header { | . NTI($cgi->popup_menu('-name' => 'vendor', '-default' => $form->{"vendor"}, '-onChange' => 'document.getElementById(\'update_button\').click();', - '-values' => \@values, '-labels' => \%labels)) . qq| + '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq| + |; %labels = (); @@ -374,7 +375,7 @@ sub form_header { | . $locale->text('Steuersatz') . qq| | . NTI($cgi->popup_menu('-name' => 'taxzone_id', '-default' => $form->{"taxzone_id"}, - '-values' => \@values, '-labels' => \%labels)) . qq| + '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq| |; @@ -392,7 +393,7 @@ sub form_header { $department = qq| | . $locale->text('Department') . qq| - + @@ -422,6 +423,7 @@ sub form_header { $form->{"javascript"} .= qq||; $form->{"javascript"} .= qq||; + $form->{javascript} .= qq||; $jsscript .= $form->write_trigger(\%myconfig, 2, @@ -436,24 +438,15 @@ sub form_header {
{script}> +|; -{id}> - - -{type}> -{level}> - -{creditlimit}> -{creditremaining}> - -{closedto}> -{locked}> + $form->hide_form(qw(id title vc type level creditlimit creditremaining + closedto locked shippted storno storno_id + max_dunning_level dunning_amount)); -{shipped}> -{storno}> -{storno_id}> + print qq|

$form->{saved_message}

| if $form->{saved_message}; -| . ($form->{saved_message} ? qq|

$form->{saved_message}

| : "") . qq| + print qq|
$form->{title}
@@ -472,7 +465,7 @@ sub form_header { | . $locale->text('Record in') . qq| - + $taxzone