projekt kivitendo

use SL::Webdav;

use SL::File;

sub add_file_to_record {

  my ($self, $record) = @_;

  # copy file to webdav folder

  if ($::instance_conf->get_webdav_documents) {

    my $record_type = $record->record_type;

    # TODO: file and webdav use different types for ap_transaction

    $record_type = 'accounts_payable' if $record_type eq 'ap_transaction';

    my $webdav = SL::Webdav->new(

      type     => $record_type,

      number   => $record->record_number,

    );

    my $webdav_file = SL::Webdav::File->new(

      webdav => $webdav,

      filename => $self->name,

    );

    eval {

      $webdav_file->store(data => \$self->content);

      1;

    } or do {

      die 'Storing the attachment file to the WebDAV folder failed: ' . $@;

    };

  }

  # copy file to doc storage

  if ($::instance_conf->get_doc_storage) {

    my $record_type = $record->record_type;

    # TODO: file and webdav use different types for ap_invoice

    $record_type = 'purchase_invoice' if $record_type eq 'ap_transaction';

    eval {

      SL::File->save(

        object_id     => $record->id,

        object_type   => $record_type,

        source        => 'uploaded',

        file_type     => 'document',

        file_name     => $self->name,

        file_contents => $self->content,

        mime_type     => $self->mime_type,

      );

      1;

    } or do {

      die 'Storing the attachment file to the file management failed: ' . $@;

    };

  }

}