loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.24, 2002/10/25 13:50:48
+version 1.26, 2003/02/18 22:39:18
  Line 98  sub dynamicmeta {
      return %returnhash;
  }
+ # ------------------------------------- Try to make an alt tag if there is none
+ sub alttag {
+     my ($base,$src)=@_;
+     my $fullpath=&Apache::lonnet::hreflocation($base,$src);
+     my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
+                &Apache::lonnet::metadata($fullpath,'subject').' '.
+                &Apache::lonnet::metadata($fullpath,'abstract');
+     $alttag=~s/\s+/ /gs;
+     $alttag=~s/\"//gs;
+     $alttag=~s/\'//gs;
+     $alttag=~s/\s+$//gs;
+     $alttag=~s/^\s+//gs;
+     if ($alttag) { return $alttag; } else
+                  { return 'No information available'; }
+ }
  # -------------------------------------------------------------- Pretty display
  sub evalgraph {