Revision 8cd05ad6
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1611 | 1611 |
my $filename; |
| 1612 | 1612 |
if ($filename = $queued{ $form->{formname} }) {
|
| 1613 | 1613 |
$form->{queued} =~ s/\Q$form->{formname} $filename\E//;
|
| 1614 |
unlink "$main::spool/$filename";
|
|
| 1614 |
unlink $::lx_office_conf{paths}->{spool} . "/$filename";
|
|
| 1615 | 1615 |
$filename =~ s/\..*$//g; |
| 1616 | 1616 |
} else {
|
| 1617 | 1617 |
$filename = time; |
| ... | ... | |
| 1619 | 1619 |
} |
| 1620 | 1620 |
|
| 1621 | 1621 |
$filename .= ($form->{postscript}) ? '.ps' : '.pdf';
|
| 1622 |
$form->{OUT} = ">$main::spool/$filename";
|
|
| 1622 |
$form->{OUT} = ">" . $::lx_office_conf{paths}->{spool} . "/$filename";
|
|
| 1623 | 1623 |
|
| 1624 | 1624 |
# add type |
| 1625 | 1625 |
$form->{queued} .= " $form->{formname} $filename";
|
| ... | ... | |
| 1647 | 1647 |
} |
| 1648 | 1648 |
# /saving the history |
| 1649 | 1649 |
|
| 1650 |
$form->parse_template(\%myconfig, $main::userspath);
|
|
| 1650 |
$form->parse_template(\%myconfig); |
|
| 1651 | 1651 |
|
| 1652 | 1652 |
$form->{callback} = "";
|
| 1653 | 1653 |
|
Auch abrufbar als: Unified diff
Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf verschoben