Item6447: File attachment version should be returned to user as $fileVersion

Here is the patch. The fix for Item6646 is included.

--- AttachmentListPlugin.pm.orig   2010-05-05 22:25:23.000000000 -0400
+++ AttachmentListPlugin.pm   2010-05-05 22:58:32.000000000 -0400
@@ -343,6 +343,7 @@
 
     foreach my $fileData (@files) {
 
+        my $attrVersion = $fileData->{attachment}->{version} || '';
         my $attrComment = $fileData->{attachment}->{comment} || '';
         my $attrAttr = $fileData->{attachment}->{attr};
 
@@ -380,6 +381,7 @@
         $s =~ s/\$fileName/$fileData->{name}/g;
         $s =~ s/\$fileIcon/%ICON{"$fileExtension"}%/g;
         $s =~ s/\$fileSize/$attrSizeStr/g;
+        $s =~ s/\$fileVersion/$attrVersion/g;
         $s =~ s/\$fileComment/$attrComment/g;
         $s =~ s/\$fileExtension/$fileExtension/g;
         $s =~ s/\$fileDate/_formatDate($fileData->{date})/ge;
@@ -394,7 +396,6 @@
         }
 
         if ( $s =~ m/\$viewfileUrl/ ) {
-            my $attrVersion = $fileData->{attachment}->{Version} || '';
             my $viewfileUrl =
               TWiki::Func::getScriptUrl( $fileData->{web}, $fileData->{topic},
                 "viewfile" )

-- TWiki:Main/SeanLazar - 06 May 2010

Thanks Sean! See my comment in TWiki:Plugins/AttachmentListPluginDev.

-- TWiki:Main.PeterThoeny - 06 May 2010