loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

version 1.25, 2003/02/18 21:17:00	version 1.35, 2003/09/22 00:48:32
Line 39 use Apache::lonnet();	Line 39 use Apache::lonnet();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonmsg;	use Apache::lonmsg;
use Apache::lonpublisher;	use Apache::lonpublisher;
	use Apache::lonlocal;

# ----------------------------------------- Fetch and evaluate dynamic metadata	# ----------------------------------------- Fetch and evaluate dynamic metadata

Line 51 sub dynamicmeta {	Line 52 sub dynamicmeta {
$regexp='___'.$regexp.'___';	$regexp='___'.$regexp.'___';
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,	my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
$aauthor,$regexp);	$aauthor,$regexp);
my %sum;	my %sum=();
my %cnt;	my %cnt=();
	my %concat=();
my %listitems=('count' => 'add',	my %listitems=('count' => 'add',
'course' => 'add',	'course' => 'add',
	'goto' => 'add',
	'comefrom' => 'add',
'avetries' => 'avg',	'avetries' => 'avg',
'stdno' => 'add',	'stdno' => 'add',
'difficulty' => 'avg',	'difficulty' => 'avg',
Line 67 sub dynamicmeta {	Line 71 sub dynamicmeta {
'usage' => 'cnt'	'usage' => 'cnt'
);	);
foreach (keys %evaldata) {	foreach (keys %evaldata) {
$_=~/___(\w+)$/;	my ($item,$purl,$cat)=&Apache::lonnet::decode_symb($_);
if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; }	### print "\n".$_.' - '.$item.'<br />';
unless ($listitems{$1} eq 'app') {	if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; }
if (defined($sum{$1})) {	unless ($listitems{$cat} eq 'app') {
$sum{$1}+=$evaldata{$_};	if (defined($sum{$cat})) {
	$sum{$cat}+=$evaldata{$_};
	$concat{$cat}.=','.$item;
} else {	} else {
$sum{$1}=$evaldata{$_};	$sum{$cat}=$evaldata{$_};
	$concat{$cat}=$item;
}	}
} else {	} else {
if (defined($sum{$1})) {	if (defined($sum{$cat})) {
if ($evaldata{$_}) {	if ($evaldata{$_}) {
$sum{$1}.='<hr>'.$evaldata{$_};	$sum{$cat}.='<hr>'.$evaldata{$_};
}	}
} else {	} else {
$sum{$1}=''.$evaldata{$_};	$sum{$cat}=''.$evaldata{$_};
}	}
}	}
}	}
Line 94 sub dynamicmeta {	Line 101 sub dynamicmeta {
} else {	} else {
$returnhash{$_}=$sum{$_};	$returnhash{$_}=$sum{$_};
}	}
	$returnhash{$_.'_list'}=$concat{$_};
	### print "\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'};
}	}
return %returnhash;	return %returnhash;
}	}
Line 101 sub dynamicmeta {	Line 110 sub dynamicmeta {
# ------------------------------------- Try to make an alt tag if there is none	# ------------------------------------- Try to make an alt tag if there is none

sub alttag {	sub alttag {
my $src=shift;	my ($base,$src)=@_;
return 'None';	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'; }
	}

	# -------------------------------------------------------------- Author display

	sub authordisplay {
	my ($aname,$adom)=@_;
	return &Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($aname,$adom),
	$aname,$adom).' <tt>['.$aname.'@'.$adom.']</tt>';
}	}

# -------------------------------------------------------------- Pretty display	# -------------------------------------------------------------- Pretty display
Line 172 sub handler {	Line 200 sub handler {

# ----------------------------------------------------------- Set document type	# ----------------------------------------------------------- Set document type

$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

return OK if $r->header_only;	return OK if $r->header_only;
Line 185 sub handler {	Line 213 sub handler {

unless ($ENV{'user.adv'}) {	unless ($ENV{'user.adv'}) {
foreach ('keywords','notes','abstract','subject') {	foreach ('keywords','notes','abstract','subject') {
$content{$_}='<i>- not displayed -</i>';	$content{$_}='<i>- '.&mt('not displayed').' -</i>';
}	}
}	}

Line 200 my $mime=&Apache::loncommon::filedescrip	Line 228 my $mime=&Apache::loncommon::filedescrip
my $disuri=&Apache::lonnet::declutter($uri);	my $disuri=&Apache::lonnet::declutter($uri);
$disuri=~s/\.meta$//;	$disuri=~s/\.meta$//;
my $currentversion=&Apache::lonnet::getversion($disuri);	my $currentversion=&Apache::lonnet::getversion($disuri);
	my $author=$content{'author'};
	$author=~s/(\w+)(\:\|\@)(\w+)/&authordisplay($1,$3)/gse;
	my $owner=$content{'owner'};
	$owner=~s/(\w+)(\:\|\@)(\w+)/&authordisplay($1,$3)/gse;
my $versiondisplay='';	my $versiondisplay='';
if ($thisversion) {	if ($thisversion) {
$versiondisplay='Version: '.$thisversion.	$versiondisplay='Version: '.$thisversion.
Line 207 if ($thisversion) {	Line 239 if ($thisversion) {
} else {	} else {
$versiondisplay='Version: '.$currentversion;	$versiondisplay='Version: '.$currentversion;
}	}
	my $customdistributionfile='';
	if ($content{'customdistributionfile'}) {
	$customdistributionfile='<a href="'.$content{'customdistributionfile'}.
	'"><tt>'.$content{'customdistributionfile'}.'</tt></a>';
	}
	my %lt=&Apache::lonlocal::texthash(
	'au' =>'Author(s)',
	'sb' => 'Subject',
	'kw' => 'Keyword(s)',
	'no' => 'Notes',
	'ab' => 'Abstract',
	'mi' => 'MIME Type',
	'la' => 'Language',
	'cd' => 'Creation Date',
	'pu' => 'Publisher/Owner',
	'co' => 'Copyright/Distribution',
	'cf' => 'Custom Distribution File');
my $bodytag=&Apache::loncommon::bodytag	my $bodytag=&Apache::loncommon::bodytag
('Catalog Information','','','',$resdomain);	('Catalog Information','','','',$resdomain);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
Line 216 $bodytag	Line 265 $bodytag
<h3><tt>$disuri</tt></h3>	<h3><tt>$disuri</tt></h3>
$versiondisplay<br />	$versiondisplay<br />
<table cellspacing=2 border=0>	<table cellspacing=2 border=0>
<tr><td bgcolor='#AAAAAA'>Author(s)</td>	<tr><td bgcolor='#AAAAAA'>$lt{'au'}</td>
<td bgcolor="#CCCCCC">$content{'author'} </td></tr>	<td bgcolor="#CCCCCC">$author </td></tr>
<tr><td bgcolor='#AAAAAA'>Subject</td>	<tr><td bgcolor='#AAAAAA'>$lt{'sb'}</td>
<td bgcolor="#CCCCCC">$content{'subject'} </td></tr>	<td bgcolor="#CCCCCC">$content{'subject'} </td></tr>
<tr><td bgcolor='#AAAAAA'>Keyword(s)</td>	<tr><td bgcolor='#AAAAAA'>$lt{'kw'}</td>
<td bgcolor="#CCCCCC">$content{'keywords'} </td></tr>	<td bgcolor="#CCCCCC">$content{'keywords'} </td></tr>
<tr><td bgcolor='#AAAAAA'>Notes</td>	<tr><td bgcolor='#AAAAAA'>$lt{'no'}</td>
<td bgcolor="#CCCCCC">$content{'notes'} </td></tr>	<td bgcolor="#CCCCCC">$content{'notes'} </td></tr>
<tr><td bgcolor='#AAAAAA'>Abstract</td>	<tr><td bgcolor='#AAAAAA'>$lt{'ab'}</td>
<td bgcolor="#CCCCCC">$content{'abstract'} </td></tr>	<td bgcolor="#CCCCCC">$content{'abstract'} </td></tr>
<tr><td bgcolor='#AAAAAA'>MIME Type</td>	<tr><td bgcolor='#AAAAAA'>$lt{'mi'}</td>
<td bgcolor="#CCCCCC">$mime ($content{'mime'}) </td></tr>	<td bgcolor="#CCCCCC">$mime ($content{'mime'}) </td></tr>
<tr><td bgcolor='#AAAAAA'>Language</td>	<tr><td bgcolor='#AAAAAA'>$lt{'la'}</td>
<td bgcolor="#CCCCCC">$language </td></tr>	<td bgcolor="#CCCCCC">$language </td></tr>
<tr><td bgcolor='#AAAAAA'>Creation Date</td>	<tr><td bgcolor='#AAAAAA'>$lt{'cd'}</td>
<td bgcolor="#CCCCCC">$creationdate </td></tr>	<td bgcolor="#CCCCCC">$creationdate </td></tr>
<tr><td bgcolor='#AAAAAA'>	<tr><td bgcolor='#AAAAAA'>
Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate </td></tr>	Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate </td></tr>
<tr><td bgcolor='#AAAAAA'>Publisher/Owner</td>	<tr><td bgcolor='#AAAAAA'>$lt{'pu'}</td>
<td bgcolor="#CCCCCC">$content{'owner'} </td></tr>	<td bgcolor="#CCCCCC">$owner </td></tr>
<tr><td bgcolor='#AAAAAA'>Copyright/Distribution</td>	<tr><td bgcolor='#AAAAAA'>$lt{'co'}</td>
<td bgcolor="#CCCCCC">$content{'copyright'}	<td bgcolor="#CCCCCC">$content{'copyright'} </td></tr>
	<tr><td bgcolor='#AAAAAA'>$lt{'cf'}</td>
	<td bgcolor="#CCCCCC">$customdistributionfile </td></tr>
</table>	</table>
ENDHEAD	ENDHEAD
delete($content{'title'});	delete($content{'title'});
Line 252 ENDHEAD	Line 303 ENDHEAD
delete($content{'lastrevisiondate'});	delete($content{'lastrevisiondate'});
delete($content{'owner'});	delete($content{'owner'});
delete($content{'copyright'});	delete($content{'copyright'});
	delete($content{'customdistributionfile'});
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
# ------------------------------------------------------------ Dynamic Metadata	# ------------------------------------------------------------ Dynamic Metadata
$r->print(	$r->print(
'<h3>Dynamic Metadata (updated periodically)</h3>Processing ...<br>');	'<h3>'.&mt('Dynamic Metadata').' ('.
	&mt('updated periodically').')</h3>'.&mt('Processing').
	' ...<br>');
$r->rflush();	$r->rflush();
my %items=(	my %items=&Apache::lonlocal::texthash(
'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',
'usage' => 'Number of resources using or importing resource',	'usage' => 'Number of resources using or importing resource',
	'goto' => 'Number of resources that follow this resource in maps',
	'comefrom' => 'Number of resources that lead up to this resource in maps',
'clear' => 'Material presented in clear way',	'clear' => 'Material presented in clear way',
'depth' => 'Material covered with sufficient depth',	'depth' => 'Material covered with sufficient depth',
'helpful' => 'Material is helpful',	'helpful' => 'Material is helpful',
Line 271 ENDHEAD	Line 327 ENDHEAD
'difficulty' => 'Degree of difficulty');	'difficulty' => 'Degree of difficulty');
my %dynmeta=&dynamicmeta($uri);	my %dynmeta=&dynamicmeta($uri);
$r->print(	$r->print(
'</table><h4>Access and Usage Statistics</h4><table cellspacing=2 border=0>');	'</table><h4>'.&mt('Access and Usage Statistics').'</h4><table cellspacing=2 border=0>');
foreach ('count','usage','course') {	foreach ('count') {
$r->print(	$r->print(
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.	'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
$dynmeta{$_}." </td></tr>\n");	$dynmeta{$_}." </td></tr>\n");
}	}
	foreach my $cat ('usage','comefrom','goto') {
	$r->print(
	'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'.
	$dynmeta{$cat}.'<font size="-1"><ul>'.join("\n",
	map { my $murl=$_;
	'<li><a href="'.&Apache::lonnet::clutter($murl).'" target="preview">'.
	&Apache::lonnet::gettitle($murl).' [<tt>'.$murl
	.'</tt>]</a></li>' }
	split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></td></tr>\n");
	}
	foreach my $cat ('course') {
	$r->print(
	'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'.
	$dynmeta{$cat}.'<font size="-1"><ul>'.join("\n",
	map { my %courseinfo=&Apache::lonnet::coursedescription($_);
	'<li><a href="/public/'.
	$courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'.
	$courseinfo{'description'}.'</a></li>' }
	split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></td></tr>\n");
	}
$r->print('</table>');	$r->print('</table>');
if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form)\.meta$/) {	if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form)\.meta$/) {
$r->print(	$r->print(
'<h4>Assessment Statistical Data</h4><table cellspacing=2 border=0>');	'<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>');
foreach ('stdno','avetries') {	foreach ('stdno','avetries') {
$r->print(	$r->print(
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.	'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
Line 293 $dynmeta{$_}." </td></tr>\n");	Line 369 $dynmeta{$_}." </td></tr>\n");
}	}
$r->print('</table>');	$r->print('</table>');
}	}
$r->print('<h4>Evaluation Data</h4><table cellspacing=2 border=0>');	$r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>');
foreach ('clear','depth','helpful','correct','technical') {	foreach ('clear','depth','helpful','correct','technical') {
$r->print(	$r->print(
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.	'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
Line 304 $dynmeta{$_}." </td></tr>\n");	Line 380 $dynmeta{$_}." </td></tr>\n");
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))	if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))
\|\| ($ENV{'user.role.ca./'.$1.'/'.$2})) {	\|\| ($ENV{'user.role.ca./'.$1.'/'.$2})) {
$r->print(	$r->print(
'<h4>Evaluation Comments (visible to author and co-authors only)</h4>'.	'<h4>'.&mt('Evaluation Comments').' ('.&mt('visible to author and co-authors only').')</h4>'.
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>');	'<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
$r->print(	$r->print(
'<h4>Error Messages (visible to author and co-authors only)</h4>');	'<h4>Error Messages (visible to author and co-authors only)</h4>');
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);	my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);
foreach (keys %errormsgs) {	foreach (keys %errormsgs) {
if ($_=~/^$disuri\_\d+$/) {	if ($_=~/^\Q$disuri\E\_\d+$/) {
my %content=&Apache::lonmsg::unpackagemsg($errormsgs{$_});	my %content=&Apache::lonmsg::unpackagemsg($errormsgs{$_});
$r->print('<b>'.$content{'time'}.'</b>: '.$content{'message'}.	$r->print('<b>'.$content{'time'}.'</b>: '.$content{'message'}.
'<br />');	'<br />');
Line 319 $dynmeta{$_}." </td></tr>\n");	Line 395 $dynmeta{$_}." </td></tr>\n");
}	}
# ------------------------------------------------------------- All other stuff	# ------------------------------------------------------------- All other stuff
$r->print(	$r->print(
'<h3>Additional Metadata (non-standard, parameters, exports)</h3>');	'<h3>'.&mt('Additional Metadata (non-standard, parameters, exports)').'</h3>');
foreach (sort keys %content) {	foreach (sort keys %content) {
my $name=$_;	my $name=$_;
my $display=&Apache::lonnet::metadata($uri,$name.'.display');	unless ($name=~/\.display$/) {
unless ($display) { $display=$name; };	my $display=&Apache::lonnet::metadata($uri,$name.'.display');
my $otherinfo='';	unless ($display) { $display=$name; };
foreach ('name','part','type','default') {	my $otherinfo='';
if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {	foreach ('name','part','type','default') {
$otherinfo.=' '.$_.'='.	if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {
&Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';	$otherinfo.=' '.$_.'='.
}	&Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';
}	}
$r->print('<b>'.$display.':</b> '.$content{$name});	}
if ($otherinfo) {	$r->print('<b>'.$display.':</b> '.$content{$name});
$r->print(' ('.$otherinfo.')');	if ($otherinfo) {
	$r->print(' ('.$otherinfo.')');
	}
	$r->print("<br>\n");
}	}
$r->print("<br>\n");
}	}
}	}
# ===================================================== End Resource Space Call	# ===================================================== End Resource Space Call
Line 370 $bodytag	Line 448 $bodytag
<form method="post">	<form method="post">
ENDEDIT	ENDEDIT
foreach ('author','title','subject','keywords','abstract','notes',	foreach ('author','title','subject','keywords','abstract','notes',
'copyright','language') {	'copyright','customdistributionfile','language') {
if ($ENV{'form.new_'.$_}) {	if ($ENV{'form.new_'.$_}) {
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};	$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
}	}
$r->print(	if (m/copyright/) {
&Apache::lonpublisher::textfield($_,'new_'.$_,	$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,
$Apache::lonpublisher::metadatafields{$_}));	$Apache::lonpublisher::metadatafields{$_},
	\&Apache::loncommon::copyrightdescription,
	(&Apache::loncommon::copyrightids)));
	} elsif (m/language/) {
	$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,
	$Apache::lonpublisher::metadatafields{$_},
	\&Apache::loncommon::languagedescription,
	(&Apache::loncommon::languageids)));
	} else {
	$r->print(&Apache::lonpublisher::textfield($_,'new_'.$_,
	$Apache::lonpublisher::metadatafields{$_}));
	}
}	}
if ($ENV{'form.store'}) {	if ($ENV{'form.store'}) {
my $mfh;	my $mfh;

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

Removed from v.1.25
changed lines
	Added in v.1.35