Revision ac7caac1
Von Bernd Bleßmann vor mehr als 4 Jahren hinzugefügt
SL/Controller/CustomerVendor.pm | ||
---|---|---|
10 | 10 |
use SL::Helper::Flash; |
11 | 11 |
use SL::Locale::String; |
12 | 12 |
use SL::Util qw(trim); |
13 |
use SL::Webdav; |
|
13 | 14 |
use SL::Controller::Helper::GetModels; |
14 | 15 |
use SL::Controller::Helper::ReportGenerator; |
15 | 16 |
use SL::Controller::Helper::ParseFilter; |
... | ... | |
1046 | 1047 |
], |
1047 | 1048 |
); |
1048 | 1049 |
} |
1050 |
|
|
1051 |
if ($self->{cv}->number && $::instance_conf->get_webdav) { |
|
1052 |
my $webdav = SL::Webdav->new( |
|
1053 |
type => $self->is_customer ? 'customer' |
|
1054 |
: $self->is_vendor ? 'vendor' |
|
1055 |
: undef, |
|
1056 |
number => $self->{cv}->number, |
|
1057 |
); |
|
1058 |
my @all_objects = $webdav->get_all_objects; |
|
1059 |
@{ $self->{template_args}->{WEBDAV} } = map { { name => $_->filename, |
|
1060 |
type => t8('File'), |
|
1061 |
link => File::Spec->catfile($_->full_filedescriptor), |
|
1062 |
} } @all_objects; |
|
1063 |
} |
|
1064 |
|
|
1049 | 1065 |
$self->{template_args} ||= {}; |
1050 | 1066 |
|
1051 | 1067 |
$::request->{layout}->add_javascripts('kivi.CustomerVendor.js'); |
SL/Webdav.pm | ||
---|---|---|
32 | 32 |
letter => 'briefe', |
33 | 33 |
general_ledger => 'dialogbuchungen', |
34 | 34 |
accounts_payable => 'kreditorenbuchungen', |
35 |
customer => 'kunden', |
|
36 |
vendor => 'lieferanten', |
|
35 | 37 |
); |
36 | 38 |
|
37 | 39 |
sub get_all_files { |
templates/webpages/customer_vendor/form.html | ||
---|---|---|
26 | 26 |
[% IF show_deliveries %] |
27 | 27 |
<li><a href="#deliveries">[% 'Supplies' | $T8 %]</a></li> |
28 | 28 |
[% END %] |
29 |
[%- IF INSTANCE_CONF.get_webdav %] |
|
30 |
<li><a href="#ui-tabs-webdav">[% 'WebDAV' | $T8 %]</a></li> |
|
31 |
[%- END %] |
|
29 | 32 |
[%- IF INSTANCE_CONF.get_doc_storage %] |
30 | 33 |
<li><a href="controller.pl?action=File/list&file_type=attachment&object_type=[% FORM.db == 'vendor' ? 'vendor' : 'customer' %]&object_id=[% SELF.cv.id %]">[% 'Attachments' | $T8 %]</a></li> |
31 | 34 |
[%- END %] |
... | ... | |
64 | 67 |
[% IF show_deliveries %] |
65 | 68 |
[% PROCESS "customer_vendor/tabs/deliveries.html" %] |
66 | 69 |
[% END %] |
70 |
[% PROCESS 'webdav/_list.html' %] |
|
67 | 71 |
[% PROCESS "customer_vendor/tabs/vcnotes.html" %] |
68 | 72 |
[% IF ( cv_cvars.size ) %] |
69 | 73 |
[% PROCESS "customer_vendor/tabs/custom_variables.html" %] |
Auch abrufbar als: Unified diff
Kunden-/Lieferantenstamm: Anzeige WebDAV-Reiter