Revision cc63261c
Von Philip Reetz vor fast 19 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 771 | 771 |
&{"$form->{display_form}"};
|
| 772 | 772 |
exit; |
| 773 | 773 |
} |
| 774 |
if ( $form->{print_and_post}
|
|
| 775 |
&& $form->{second_run}
|
|
| 776 |
&& ($form->{action} eq "display_form")) {
|
|
| 777 |
for (keys %$form) { $old_form->{$_} = $form->{$_} }
|
|
| 778 |
$old_form->{rowcount}++;
|
|
| 779 |
|
|
| 780 |
#$form->{rowcount}--;
|
|
| 781 |
#$form->{rowcount}--;
|
|
| 782 |
|
|
| 783 |
$form->{print_and_post} = 0;
|
|
| 784 |
|
|
| 785 |
&print_form($old_form); |
|
| 786 |
exit; |
|
| 787 |
} |
|
| 788 |
|
|
| 789 |
$form->{action} = "";
|
|
| 790 |
$form->{resubmit} = 0;
|
|
| 791 |
|
|
| 792 |
if ($form->{print_and_post} && !$form->{second_run}) {
|
|
| 793 |
$form->{second_run} = 1;
|
|
| 794 |
$form->{action} = "display_form";
|
|
| 795 |
$form->{rowcount}--;
|
|
| 796 |
my $rowcount = $form->{rowcount};
|
|
| 797 |
|
|
| 798 |
# get pricegroups for parts |
|
| 799 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 800 |
|
|
| 801 |
# build up html code for prices_$i |
|
| 802 |
set_pricegroup($rowcount); |
|
| 803 |
|
|
| 804 |
$form->{resubmit} = 1;
|
|
| 805 |
|
|
| 806 |
} |
|
| 774 |
# if ( $form->{print_and_post}
|
|
| 775 |
# && $form->{second_run}
|
|
| 776 |
# && ($form->{action} eq "display_form")) {
|
|
| 777 |
# for (keys %$form) { $old_form->{$_} = $form->{$_} }
|
|
| 778 |
# $old_form->{rowcount}++;
|
|
| 779 |
# |
|
| 780 |
# #$form->{rowcount}--;
|
|
| 781 |
# #$form->{rowcount}--;
|
|
| 782 |
# |
|
| 783 |
# $form->{print_and_post} = 0;
|
|
| 784 |
# |
|
| 785 |
# &print_form($old_form);
|
|
| 786 |
# exit;
|
|
| 787 |
# }
|
|
| 788 |
# |
|
| 789 |
# $form->{action} = "";
|
|
| 790 |
# $form->{resubmit} = 0;
|
|
| 791 |
# |
|
| 792 |
# if ($form->{print_and_post} && !$form->{second_run}) {
|
|
| 793 |
# $form->{second_run} = 1;
|
|
| 794 |
# $form->{action} = "display_form";
|
|
| 795 |
# $form->{rowcount}--;
|
|
| 796 |
# my $rowcount = $form->{rowcount};
|
|
| 797 |
# |
|
| 798 |
# # get pricegroups for parts
|
|
| 799 |
# IS->get_pricegroups_for_parts(\%myconfig, \%$form);
|
|
| 800 |
# |
|
| 801 |
# # build up html code for prices_$i
|
|
| 802 |
# set_pricegroup($rowcount);
|
|
| 803 |
# |
|
| 804 |
# $form->{resubmit} = 1;
|
|
| 805 |
# |
|
| 806 |
# }
|
|
| 807 | 807 |
&form_header; |
| 808 | 808 |
|
| 809 | 809 |
$numrows = ++$form->{rowcount};
|
| ... | ... | |
| 1261 | 1261 |
$form->{copies} = 3 unless $form->{copies};
|
| 1262 | 1262 |
|
| 1263 | 1263 |
$form->{PD}{ $form->{formname} } = "selected";
|
| 1264 |
$form->{DF}{ $form->{format} } = "";
|
|
| 1264 |
$form->{DF}{ $form->{format} } = "selected";
|
|
| 1265 | 1265 |
$form->{OP}{ $form->{media} } = "selected";
|
| 1266 | 1266 |
$form->{SM}{ $form->{sendmode} } = "selected";
|
| 1267 |
|
|
| 1267 |
print(STDERR $form->{format} , " Format\n");
|
|
| 1268 | 1268 |
if ($form->{type} eq 'purchase_order') {
|
| 1269 | 1269 |
$type = qq|<select name=formname> |
| 1270 | 1270 |
<option value=purchase_order $form->{PD}{purchase_order}>|
|
| ... | ... | |
| 1413 | 1413 |
|
| 1414 | 1414 |
sub print {
|
| 1415 | 1415 |
$lxdebug->enter_sub(); |
| 1416 |
if ($form->{second_run}) {
|
|
| 1417 |
$form->{print_and_post} = 0;
|
|
| 1418 |
} |
|
| 1416 |
|
|
| 1419 | 1417 |
|
| 1420 | 1418 |
# if this goes to the printer pass through |
| 1421 | 1419 |
if ($form->{media} eq 'printer' || $form->{media} eq 'queue') {
|
| ... | ... | |
| 1724 | 1722 |
? $locale->text('sent to printer')
|
| 1725 | 1723 |
: $locale->text('emailed to') . " $form->{email}";
|
| 1726 | 1724 |
$form->redirect(qq|$form->{label} $form->{"${inv}number"} $msg|);
|
| 1727 |
} else {
|
|
| 1728 |
&{"$display_form"};
|
|
| 1729 | 1725 |
} |
| 1730 | 1726 |
|
| 1731 | 1727 |
$lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Druckvorschau, Drucken und Drucken+Buchen ueberarbeitet, Fehler bei der HTML-Vorschau beseitigt