X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FUploadedFile.pm;h=e8c90809a8635d521254353ad5c7caa36e9f2b64;hb=fe37dd81678a7b140ca1daa7388047a45df061b0;hp=f75518fb549678ba15d70f77ab3393be6fb8eaff;hpb=4370a19d75e2824d71946898d0876fb899199e52;p=koha_gimpoz

diff --git a/C4/UploadedFile.pm b/C4/UploadedFile.pm
index f75518fb54..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();
@@ -284,7 +302,7 @@ __END__
 
 =head1 AUTHOR
 
-Koha Development Team <info@koha.org>
+Koha Development Team <http://koha-community.org/>
 
 Galen Charlton <galen.charlton@liblime.com>