Revision 9c6337f3
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
43 | 43 |
use CGI::Ajax; |
44 | 44 |
use Cwd; |
45 | 45 |
use Encode; |
46 |
use File::Copy; |
|
46 | 47 |
use IO::File; |
47 | 48 |
use SL::Auth; |
48 | 49 |
use SL::Auth::DB; |
... | ... | |
1269 | 1270 |
$self->error("$self->{IN} : " . $template->get_error()); |
1270 | 1271 |
} |
1271 | 1272 |
|
1273 |
if ($self->{media} eq 'file') { |
|
1274 |
copy(join('/', $self->{cwd}, $userspath, $self->{tmpfile}), $out =~ m|^/| ? $out : join('/', $self->{cwd}, $out)) if $template->uses_temp_file; |
|
1275 |
$self->cleanup; |
|
1276 |
chdir("$self->{cwd}"); |
|
1277 |
|
|
1278 |
$::lxdebug->leave_sub(); |
|
1279 |
|
|
1280 |
return; |
|
1281 |
} |
|
1282 |
|
|
1272 | 1283 |
if ($template->uses_temp_file() || $self->{media} eq 'email') { |
1273 | 1284 |
|
1274 | 1285 |
if ($self->{media} eq 'email') { |
Auch abrufbar als: Unified diff
parse_template: $form->{media} == 'file' bedeutet, nur Druckdatei in $form->{OUT} erstellen, nicht ausgeben
Conflicts: