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

Diff for /loncom/interface/lonmeta.pm between versions 1.12 and 1.15

version 1.12, 2001/12/24 23:01:31 version 1.15, 2002/03/29 18:44:41
Line 29 Line 29
 #  #
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  # 05/29/00,05/30,10/11 Gerd Kortemeyer)
 #  #
 # 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24 Gerd Kortemeyer  # 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24,12/25 Gerd Kortemeyer
   
 package Apache::lonmeta;  package Apache::lonmeta;
   
Line 100  sub dynamicmeta { Line 100  sub dynamicmeta {
   
 sub evalgraph {  sub evalgraph {
     my $value=shift;      my $value=shift;
       unless ($value) { return ''; }
     my $val=int($value*10.+0.5)-10;      my $val=int($value*10.+0.5)-10;
     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';      my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
     if ($val>=20) {      if ($val>=20) {
Line 121  sub evalgraph { Line 122  sub evalgraph {
   
 sub diffgraph {  sub diffgraph {
     my $value=shift;      my $value=shift;
       unless ($value) { return ''; }
     my $val=int(40.0*$value+0.5);      my $val=int(40.0*$value+0.5);
     my @colors=('#FF3333','#EEBB33','#BBEE33','#33FF33',      my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
                 '#33FF33','#BBEE33','#EEBB33','#FF3333');                  '#BBDD33','#CCCC33','#DDBB33','#EEAA33');
     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';      my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
     for (my $i=0;$i<8;$i++) {      for (my $i=0;$i<8;$i++) {
  if ($val>$i*5) {   if ($val>$i*5) {
Line 152  sub handler { Line 154  sub handler {
 # ------------------------------------------------------------------- Read file  # ------------------------------------------------------------------- Read file
   
   my $uri=$r->uri;    my $uri=$r->uri;
   map {    foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
       $content{$_}=&Apache::lonnet::metadata($uri,$_);        $content{$_}=&Apache::lonnet::metadata($uri,$_);
   } split(/\,/,&Apache::lonnet::metadata($uri,'keys'));    }
   
 # ------------------------------------------------------------------ Hide stuff  # ------------------------------------------------------------------ Hide stuff
   
   unless ($ENV{'user.adv'}) {    unless ($ENV{'user.adv'}) {
       map {        foreach ('keywords','notes','abstract','subject') {
           $content{$_}='<i>- not displayed -</i>';            $content{$_}='<i>- not displayed -</i>';
       } ('keywords','notes','abstract','subject');        }
   }    }
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
Line 217  ENDHEAD Line 219  ENDHEAD
   delete($content{'copyright'});    delete($content{'copyright'});
   if ($ENV{'user.adv'}) {    if ($ENV{'user.adv'}) {
 # ------------------------------------------------------------ Dynamic Metadata  # ------------------------------------------------------------ Dynamic Metadata
    $r->print('<h3>Dynamic Metadata (updated periodically)</h3>');     $r->print(
      '<h3>Dynamic Metadata (updated periodically)</h3>Processing ...<br>');
      $r->rflush();
     my %items=(      my %items=(
  'count'      => 'Network-wide number of accesses (hits)',   'count'      => 'Network-wide number of accesses (hits)',
  'course'     => 'Network-wide number of courses using resource',   'course'     => 'Network-wide number of courses using resource',
Line 276  $dynmeta{$_}."&nbsp;</td></tr>\n"); Line 280  $dynmeta{$_}."&nbsp;</td></tr>\n");
       my $display=&Apache::lonnet::metadata($uri,$name.'.display');        my $display=&Apache::lonnet::metadata($uri,$name.'.display');
       unless ($display) { $display=$name; };        unless ($display) { $display=$name; };
       my $otherinfo='';        my $otherinfo='';
       map {        foreach ('name','part','type','default') {
           if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {            if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {
              $otherinfo.=' '.$_.'='.               $otherinfo.=' '.$_.'='.
  &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';   &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';
           }            }
       } ('name','part','type','default');         }
       $r->print('<b>'.$display.':</b> '.$content{$name});        $r->print('<b>'.$display.':</b> '.$content{$name});
       if ($otherinfo) {        if ($otherinfo) {
          $r->print(' ('.$otherinfo.')');           $r->print(' ('.$otherinfo.')');
Removed from v.1.12  
changed lines
  Added in v.1.15

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