Revision b166ba3b
Von Jan Büren vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
|
use SL::IS;
|
||
|
use SL::ReportGenerator;
|
||
|
use SL::DBUtils qw(selectrow_query selectall_hashref_query);
|
||
|
use SL::Webdav;
|
||
|
use SL::Locale::String qw(t8);
|
||
|
|
||
|
require "bin/mozilla/common.pl";
|
||
|
require "bin/mozilla/reportgenerator.pl";
|
||
| ... | ... | |
|
|
||
|
$form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
|
||
|
|
||
|
if ($form->{reference} && $::instance_conf->get_webdav) {
|
||
|
my $webdav = SL::Webdav->new(
|
||
|
type => 'general_ledger',
|
||
|
number => $form->{reference},
|
||
|
);
|
||
|
my $webdav_path = $webdav->webdav_path;
|
||
|
my @all_objects = $webdav->get_all_objects;
|
||
|
@{ $form->{WEBDAV} } = map { { name => $_->filename,
|
||
|
type => t8('File'),
|
||
|
link => File::Spec->catdir($webdav_path, $_->filename),
|
||
|
} } @all_objects;
|
||
|
}
|
||
|
form_header();
|
||
|
display_rows();
|
||
|
form_footer();
|
||
| ... | ... | |
|
$form->{storno} = 0;
|
||
|
|
||
|
post_transaction();
|
||
|
if ($::instance_conf->get_webdav) {
|
||
|
SL::Webdav->new(type => 'general_ledger',
|
||
|
number => $form->{reference},
|
||
|
)->webdav_path;
|
||
|
}
|
||
|
|
||
|
$form->{callback} = build_std_url("action=add", "show_details");
|
||
|
$form->redirect($form->{callback});
|
||
Auch abrufbar als: Unified diff
Dialogbuchen um WebDAV-Funktion erweitert