--- loncom/interface/lonmeta.pm	2003/09/22 00:48:32	1.35
+++ loncom/interface/lonmeta.pm	2003/09/25 22:30:06	1.36
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.35 2003/09/22 00:48:32 www Exp $
+# $Id: lonmeta.pm,v 1.36 2003/09/25 22:30:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -244,6 +244,14 @@ if ($content{'customdistributionfile'})
    $customdistributionfile='<a href="'.$content{'customdistributionfile'}.
      '"><tt>'.$content{'customdistributionfile'}.'</tt></a>';
 }
+
+my $obsolete=$content{'obsolete'};
+my $obsoletereplace=$content{'obsoletereplacement'};
+my $obsoletewarning='';
+if (($obsolete) && ($ENV{'user.adv'})) {
+    $obsoletewarning='<p><font color="red">'.&mt('This resource has been marked obsolete by the author(s)').'</font></p>';
+}
+
 my %lt=&Apache::lonlocal::texthash(
 				   'au' =>'Author(s)',
 				   'sb' => 'Subject',
@@ -255,7 +263,10 @@ my %lt=&Apache::lonlocal::texthash(
 				   'cd' => 'Creation Date',
 				   'pu' => 'Publisher/Owner',
                                    'co' => 'Copyright/Distribution',
-				   'cf' => 'Custom Distribution File');
+				   'cf' => 'Custom Distribution File',
+                                   'ob' => 'Obsolete',
+                                   'or' => 
+                                    'Suggested Replacement for Obsolete File');
 my $bodytag=&Apache::loncommon::bodytag
             ('Catalog Information','','','',$resdomain);
   $r->print(<<ENDHEAD);
@@ -263,6 +274,7 @@ my $bodytag=&Apache::loncommon::bodytag
 $bodytag
 <h2>$content{'title'}</h2>
 <h3><tt>$disuri</tt></h3>
+$obsoletewarning
 $versiondisplay<br />
 <table cellspacing=2 border=0>
 <tr><td bgcolor='#AAAAAA'>$lt{'au'}</td>
@@ -289,6 +301,10 @@ Last Revision Date</td><td bgcolor="#CCC
 <td bgcolor="#CCCCCC">$content{'copyright'}&nbsp;</td></tr>
 <tr><td bgcolor='#AAAAAA'>$lt{'cf'}</td>
 <td bgcolor="#CCCCCC">$customdistributionfile&nbsp;</td></tr>
+<tr><td bgcolor='#AAAAAA'>$lt{'ob'}</td>
+<td bgcolor="#CCCCCC">$obsolete&nbsp;</td></tr>
+<tr><td bgcolor='#AAAAAA'>$lt{'or'}</td>
+<td bgcolor="#CCCCCC">$obsoletereplace&nbsp;</td></tr>
 </table>
 ENDHEAD
   delete($content{'title'});
@@ -304,6 +320,8 @@ ENDHEAD
   delete($content{'owner'});
   delete($content{'copyright'});
   delete($content{'customdistributionfile'});
+  delete($content{'obsolete'});
+  delete($content{'obsoletereplacement'});
   if ($ENV{'user.adv'}) {
 # ------------------------------------------------------------ Dynamic Metadata
    $r->print(