[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.35 and 1.36

version 1.35, 2003/09/22 00:48:32 version 1.36, 2003/09/25 22:30:06
Line 244  if ($content{'customdistributionfile'}) Line 244  if ($content{'customdistributionfile'})
    $customdistributionfile='<a href="'.$content{'customdistributionfile'}.     $customdistributionfile='<a href="'.$content{'customdistributionfile'}.
      '"><tt>'.$content{'customdistributionfile'}.'</tt></a>';       '"><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(  my %lt=&Apache::lonlocal::texthash(
    'au' =>'Author(s)',     'au' =>'Author(s)',
    'sb' => 'Subject',     'sb' => 'Subject',
Line 255  my %lt=&Apache::lonlocal::texthash( Line 263  my %lt=&Apache::lonlocal::texthash(
    'cd' => 'Creation Date',     'cd' => 'Creation Date',
    'pu' => 'Publisher/Owner',     'pu' => 'Publisher/Owner',
                                    'co' => 'Copyright/Distribution',                                     'co' => 'Copyright/Distribution',
    'cf' => 'Custom Distribution File');     'cf' => 'Custom Distribution File',
                                      'ob' => 'Obsolete',
                                      'or' => 
                                       'Suggested Replacement for Obsolete File');
 my $bodytag=&Apache::loncommon::bodytag  my $bodytag=&Apache::loncommon::bodytag
             ('Catalog Information','','','',$resdomain);              ('Catalog Information','','','',$resdomain);
   $r->print(<<ENDHEAD);    $r->print(<<ENDHEAD);
Line 263  my $bodytag=&Apache::loncommon::bodytag Line 274  my $bodytag=&Apache::loncommon::bodytag
 $bodytag  $bodytag
 <h2>$content{'title'}</h2>  <h2>$content{'title'}</h2>
 <h3><tt>$disuri</tt></h3>  <h3><tt>$disuri</tt></h3>
   $obsoletewarning
 $versiondisplay<br />  $versiondisplay<br />
 <table cellspacing=2 border=0>  <table cellspacing=2 border=0>
 <tr><td bgcolor='#AAAAAA'>$lt{'au'}</td>  <tr><td bgcolor='#AAAAAA'>$lt{'au'}</td>
Line 289  Last Revision Date</td><td bgcolor="#CCC Line 301  Last Revision Date</td><td bgcolor="#CCC
 <td bgcolor="#CCCCCC">$content{'copyright'}&nbsp;</td></tr>  <td bgcolor="#CCCCCC">$content{'copyright'}&nbsp;</td></tr>
 <tr><td bgcolor='#AAAAAA'>$lt{'cf'}</td>  <tr><td bgcolor='#AAAAAA'>$lt{'cf'}</td>
 <td bgcolor="#CCCCCC">$customdistributionfile&nbsp;</td></tr>  <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>  </table>
 ENDHEAD  ENDHEAD
   delete($content{'title'});    delete($content{'title'});
Line 304  ENDHEAD Line 320  ENDHEAD
   delete($content{'owner'});    delete($content{'owner'});
   delete($content{'copyright'});    delete($content{'copyright'});
   delete($content{'customdistributionfile'});    delete($content{'customdistributionfile'});
     delete($content{'obsolete'});
     delete($content{'obsoletereplacement'});
   if ($ENV{'user.adv'}) {    if ($ENV{'user.adv'}) {
 # ------------------------------------------------------------ Dynamic Metadata  # ------------------------------------------------------------ Dynamic Metadata
    $r->print(     $r->print(
Removed from v.1.35  
changed lines
  Added in v.1.36

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>