Revert "Anpassungen an neues SL::File::Object Interface"

This reverts commit 05e0e8ca1544e1ca706a99e51f9caf9a2f56f6af.

Diese Änderung fügt einen Syntax-Fehler ein:
syntax error at /home/bernd/kivi/SL/Controller/DownloadZip.pm line 67, near ")) "
/home/bernd/kivi/SL/Controller/DownloadZip.pm had compilation errors.

diff --git a/SL/Controller/DownloadZip.pm b/SL/Controller/DownloadZip.pm
index 06f6221..5bac4ba 100644 (file)
--- a/SL/Controller/DownloadZip.pm
+++ b/SL/Controller/DownloadZip.pm
@@ -64,7 +64,9 @@ sub action_download_orderitems_files {
       # }
       if ( scalar (@wanted_files) > 0 ) {
         $zip->addDirectory($item->part->partnumber);
-        $zip->addFile($_->get_file ), Encode::encode($name_encoding,$item->part->partnumber.'/'.$_->file_name)) for @wanted_files;
+        $zip->addFile(SL::File->get_file_path(dbfile => $_ ),
+                      Encode::encode($name_encoding,$item->part->partnumber.'/'.$_->{file_name})
+                      ) for @wanted_files;
       }
     }
   }
@@ -116,7 +118,7 @@ THis method must be inserted into the customer branch:
     };
     if ( rowcount == 0 ) {
         kivi.display_flash('error', kivi.t8('No articles have been added yet.'));
-        return false;
+        return false; 
     }
     for (var i = 1; i <= rowcount; i++) {
         data['parts_id_'+i] =  $('#id_' + i).val();

diff --git a/SL/Controller/EmailJournal.pm b/SL/Controller/EmailJournal.pm
index c818cc3..a4ffc62 100644 (file)
--- a/SL/Controller/EmailJournal.pm
+++ b/SL/Controller/EmailJournal.pm
@@ -69,7 +69,7 @@ sub action_download_attachment {
   my $ref = \$attachment->content;
   if ( $attachment->file_id > 0 ) {
     my $file = SL::File->get(id => $attachment->file_id );
-    $ref = $file->get_content if $file;
+    $ref = SL::File->get_content(dbfile => $file) if $file;
   }
   $self->send_file($ref, name => $attachment->name, type => $attachment->mime_type);
 }

diff --git a/SL/Form.pm b/SL/Form.pm
index 5424a7c..644b9db 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1212,9 +1212,9 @@ sub send_email {
       }
     }
     foreach my $attfile ( @attfiles ) {
-      push @{ $mail->{attachments} }, { path => $attfile->get_file,
+      push @{ $mail->{attachments} }, { path => SL::File->get_file_path(dbfile => $attfile),
                                         id   => $attfile->id,
-                                        type => $attfile->mime_type,
+                                        type => $attfile->file_mime_type,
                                         name => $attfile->file_name };
     }
   }