Revision b166ba3b
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 43 | 43 |
use SL::IS; |
| 44 | 44 |
use SL::ReportGenerator; |
| 45 | 45 |
use SL::DBUtils qw(selectrow_query selectall_hashref_query); |
| 46 |
use SL::Webdav; |
|
| 47 |
use SL::Locale::String qw(t8); |
|
| 46 | 48 |
|
| 47 | 49 |
require "bin/mozilla/common.pl"; |
| 48 | 50 |
require "bin/mozilla/reportgenerator.pl"; |
| ... | ... | |
| 200 | 202 |
|
| 201 | 203 |
$form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
|
| 202 | 204 |
|
| 205 |
if ($form->{reference} && $::instance_conf->get_webdav) {
|
|
| 206 |
my $webdav = SL::Webdav->new( |
|
| 207 |
type => 'general_ledger', |
|
| 208 |
number => $form->{reference},
|
|
| 209 |
); |
|
| 210 |
my $webdav_path = $webdav->webdav_path; |
|
| 211 |
my @all_objects = $webdav->get_all_objects; |
|
| 212 |
@{ $form->{WEBDAV} } = map { { name => $_->filename,
|
|
| 213 |
type => t8('File'),
|
|
| 214 |
link => File::Spec->catdir($webdav_path, $_->filename), |
|
| 215 |
} } @all_objects; |
|
| 216 |
} |
|
| 203 | 217 |
form_header(); |
| 204 | 218 |
display_rows(); |
| 205 | 219 |
form_footer(); |
| ... | ... | |
| 1168 | 1182 |
$form->{storno} = 0;
|
| 1169 | 1183 |
|
| 1170 | 1184 |
post_transaction(); |
| 1185 |
if ($::instance_conf->get_webdav) {
|
|
| 1186 |
SL::Webdav->new(type => 'general_ledger', |
|
| 1187 |
number => $form->{reference},
|
|
| 1188 |
)->webdav_path; |
|
| 1189 |
} |
|
| 1171 | 1190 |
|
| 1172 | 1191 |
$form->{callback} = build_std_url("action=add", "show_details");
|
| 1173 | 1192 |
$form->redirect($form->{callback});
|
Auch abrufbar als: Unified diff
Dialogbuchen um WebDAV-Funktion erweitert