X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=C4%2FUploadedFile.pm;h=e8c90809a8635d521254353ad5c7caa36e9f2b64;hb=35279926b3865b003c6bd01d5c5378addfa903a9;hp=da29c1fbe7c1def07ed839e4f5f037bd7cced98a;hpb=7c0e441d50d8587ba496d3031d79bde3b0ec6a57;p=koha_gimpoz

diff --git a/C4/UploadedFile.pm b/C4/UploadedFile.pm
index da29c1fbe7..e8c90809a8 100644
--- a/C4/UploadedFile.pm
+++ b/C4/UploadedFile.pm
@@ -159,6 +159,24 @@ sub name {
     }
 }
 
+=head2 filename
+
+  my $filename = $uploaded_file->filename();
+
+Accessor method for the name by which the file is to be known.
+
+=cut
+
+sub filename {
+    my $self = shift;
+    if (@_) {
+        $self->{'tmp_file_name'} = shift;
+        $self->_serialize();
+    } else {
+        return $self->{'tmp_file_name'};
+    }
+}
+
 =head2 max_size
 
   my $max_size = $uploaded_file->max_size();