--- loncom/interface/lonmeta.pm 2003/02/18 21:17:00 1.25 +++ loncom/interface/lonmeta.pm 2003/02/18 22:39:18 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.25 2003/02/18 21:17:00 www Exp $ +# $Id: lonmeta.pm,v 1.26 2003/02/18 22:39:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -101,8 +101,18 @@ sub dynamicmeta { # ------------------------------------- Try to make an alt tag if there is none sub alttag { - my $src=shift; - return 'None'; + 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