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

Diff for /loncom/interface/lonmeta.pm between versions 1.40 and 1.43

version 1.40, 2003/11/12 21:38:35 version 1.43, 2003/12/26 21:17:37
Line 40  use Apache::loncommon(); Line 40  use Apache::loncommon();
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonpublisher;  use Apache::lonpublisher;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonmysql;
   
 # ----------------------------------------- Fetch and evaluate dynamic metadata  # ----------------------------------------- Fetch and evaluate dynamic metadata
   
Line 235  sub handler { Line 236  sub handler {
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
   my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);    my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
 my $creationdate=&Apache::lonlocal::locallocaltime(  my $creationdate=&Apache::lonlocal::locallocaltime(
  &Apache::loncommon::unsqltime($content{'creationdate'}));   &Apache::lonmysql::unsqltime($content{'creationdate'}));
 my $lastrevisiondate=&Apache::lonlocal::locallocaltime(  my $lastrevisiondate=&Apache::lonlocal::locallocaltime(
  &Apache::loncommon::unsqltime($content{'lastrevisiondate'}));   &Apache::lonmysql::unsqltime($content{'lastrevisiondate'}));
 my $language=&Apache::loncommon::languagedescription($content{'language'});  my $language=&Apache::loncommon::languagedescription($content{'language'});
 my $mime=&Apache::loncommon::filedescription($content{'mime'});   my $mime=&Apache::loncommon::filedescription($content{'mime'}); 
 my $disuri=&Apache::lonnet::declutter($uri);  my $disuri=&Apache::lonnet::declutter($uri);
Line 273  my %lt=&Apache::lonlocal::texthash( Line 274  my %lt=&Apache::lonlocal::texthash(
    'kw' => 'Keyword(s)',     'kw' => 'Keyword(s)',
    'no' => 'Notes',     'no' => 'Notes',
    'ab' => 'Abstract',     'ab' => 'Abstract',
                                      'lg' => 'Lowest Grade Level',
                                      'hg' => 'Highest Grade Level',
                                      'st' => 'Standards',
    'mi' => 'MIME Type',     'mi' => 'MIME Type',
    'la' => 'Language',     'la' => 'Language',
    'cd' => 'Creation Date',     'cd' => 'Creation Date',
Line 302  $versiondisplay<br /> Line 306  $versiondisplay<br />
 <td bgcolor="#CCCCCC">$content{'notes'}&nbsp;</td></tr>  <td bgcolor="#CCCCCC">$content{'notes'}&nbsp;</td></tr>
 <tr><td bgcolor='#AAAAAA'>$lt{'ab'}</td>  <tr><td bgcolor='#AAAAAA'>$lt{'ab'}</td>
 <td bgcolor="#CCCCCC">$content{'abstract'}&nbsp;</td></tr>  <td bgcolor="#CCCCCC">$content{'abstract'}&nbsp;</td></tr>
   <tr><td bgcolor='#AAAAAA'>$lt{'lg'}</td>
   <td bgcolor="#CCCCCC">$content{'lowestgradelevel'}&nbsp;</td></tr>
   <tr><td bgcolor='#AAAAAA'>$lt{'hg'}</td>
   <td bgcolor="#CCCCCC">$content{'highestgradelevel'}&nbsp;</td></tr>
   <tr><td bgcolor='#AAAAAA'>$lt{'st'}</td>
   <td bgcolor="#CCCCCC">$content{'standards'}&nbsp;</td></tr>
 <tr><td bgcolor='#AAAAAA'>$lt{'mi'}</td>  <tr><td bgcolor='#AAAAAA'>$lt{'mi'}</td>
 <td bgcolor="#CCCCCC">$mime ($content{'mime'})&nbsp;</td></tr>  <td bgcolor="#CCCCCC">$mime ($content{'mime'})&nbsp;</td></tr>
 <tr><td bgcolor='#AAAAAA'>$lt{'la'}</td>  <tr><td bgcolor='#AAAAAA'>$lt{'la'}</td>
Line 490  ENDEDIT Line 500  ENDEDIT
        }         }
        if (m/copyright/) {         if (m/copyright/) {
    $r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,     $r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,
        $Apache::lonpublisher::metadatafields{$_},         ($Apache::lonpublisher::metadatafields{$_}?
    $Apache::lonpublisher::metadatafields{$_}:'default'),
        \&Apache::loncommon::copyrightdescription,         \&Apache::loncommon::copyrightdescription,
        (&Apache::loncommon::copyrightids)));         (&Apache::loncommon::copyrightids)));
        } elsif (m/language/) {         } elsif (m/language/) {
Removed from v.1.40  
changed lines
  Added in v.1.43

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