--- loncom/interface/lonmeta.pm	2002/09/16 21:01:41	1.20
+++ loncom/interface/lonmeta.pm	2002/10/07 13:50:36	1.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.20 2002/09/16 21:01:41 www Exp $
+# $Id: lonmeta.pm,v 1.21 2002/10/07 13:50:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -179,13 +179,21 @@ sub handler {
   }
 
 # --------------------------------------------------------------- Render Output
-
+  my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta/);
 my $creationdate=localtime($content{'creationdate'});
 my $lastrevisiondate=localtime($content{'lastrevisiondate'});
 my $language=&Apache::loncommon::languagedescription($content{'language'});
 my $mime=&Apache::loncommon::filedescription($content{'mime'}); 
 my $disuri=&Apache::lonnet::declutter($uri);
   $disuri=~s/\.meta$//;
+my $currentversion=&Apache::lonnet::getversion($disuri);
+my $versiondisplay='';
+if ($thisversion) {
+    $versiondisplay='Version: '.$thisversion.
+    ' (most recent version: '.$currentversion.')';
+} else {
+    $versiondisplay='Version: '.$currentversion;
+}
 my $bodytag=&Apache::loncommon::bodytag
             ('Catalog Information','','','',$resdomain);
   $r->print(<<ENDHEAD);
@@ -193,6 +201,7 @@ my $bodytag=&Apache::loncommon::bodytag
 $bodytag
 <h2>$content{'title'}</h2>
 <h3><tt>$disuri</tt></h3>
+$versiondisplay<br />
 <table cellspacing=2 border=0>
 <tr><td bgcolor='#AAAAAA'>Author(s)</td>
 <td bgcolor="#CCCCCC">$content{'author'}&nbsp;</td></tr>