X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FUploadedFile.pm;h=b7bcd37386863c532eeb8d09ff467a807cdbec7d;hb=ef65eee25e2946adf20650d61781363f735058b6;hp=da29c1fbe7c1def07ed839e4f5f037bd7cced98a;hpb=7c0e441d50d8587ba496d3031d79bde3b0ec6a57;p=koha_fer

diff --git a/C4/UploadedFile.pm b/C4/UploadedFile.pm
index da29c1fbe7..b7bcd37386 100644
--- a/C4/UploadedFile.pm
+++ b/C4/UploadedFile.pm
@@ -28,7 +28,7 @@ use vars qw($VERSION);
 
 BEGIN {
 	# set the version for version checking
-	$VERSION = 3.00;
+    $VERSION = 3.07.00.049;
 }
 
 =head1 NAME
@@ -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();