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.207 and 1.218

version 1.207, 2007/05/12 23:04:07	version 1.218, 2008/12/10 18:43:32
Line 42 use Apache::lonmsg;	Line 42 use Apache::lonmsg;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


############################################################
############################################################
##
## &get_dynamic_metadata_from_sql($url)
##
## Queries sql database for dynamic metdata
## Returns a hash of hashes, with keys of urls which match $url
## Returned fields are given below.
##
## Examples:
##
## %DynamicMetadata = &Apache::lonmeta::get_dynmaic_metadata_from_sql
## ('/res/msu/korte/');
##
## $DynamicMetadata{'/res/msu/korte/example.problem'}->{$field}
##
############################################################
############################################################
sub get_dynamic_metadata_from_sql {	sub get_dynamic_metadata_from_sql {
my ($url) = shift();	my ($url) = shift();
my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/});	my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/});
Line 811 sub handler {	Line 793 sub handler {
{'domain' => $resdomain,}));	{'domain' => $resdomain,}));
&present_editable_metadata($r,$uri);	&present_editable_metadata($r,$uri);
} else {	} else {
$r->print(&Apache::loncommon::start_page('Catalog Information',	$r->print(&Apache::loncommon::start_page('Metadata',
undef,	undef,
{'domain' => $resdomain,}));	{'domain' => $resdomain,}));
&present_uneditable_metadata($r,$uri);	&present_uneditable_metadata($r,$uri);
Line 839 sub report_bombs {	Line 821 sub report_bombs {
&Apache::lonmsg::clear_author_res_msg($uri);	&Apache::lonmsg::clear_author_res_msg($uri);
}	}
my $clear=&mt('Clear all Messages in Subdirectory');	my $clear=&mt('Clear all Messages in Subdirectory');
$r->print(<<ENDCLEAR);	my $cancel=&mt('Back to Directory');
	my $cancelurl=$uri;
	$cancelurl=~s/^\Q$domain\E/\/priv/;
	$r->print(<<ENDCLEAR);
<form method="post">	<form method="post">
<input type="submit" name="clearbombs" value="$clear" />	<input type="submit" name="clearbombs" value="$clear" />
</form>	<a href="$cancelurl">$cancel</a>
	</form><hr />
ENDCLEAR	ENDCLEAR
my %brokenurls =	my %brokenurls =
&Apache::lonmsg::all_url_author_res_msg($author,$domain);	&Apache::lonmsg::all_url_author_res_msg($author,$domain);
Line 902 sub present_uneditable_metadata {	Line 888 sub present_uneditable_metadata {
my $obsolete=$content{'obsolete'};	my $obsolete=$content{'obsolete'};
my $obsoletewarning='';	my $obsoletewarning='';
if (($obsolete) && ($env{'user.adv'})) {	if (($obsolete) && ($env{'user.adv'})) {
$obsoletewarning='<p><font color="red">'.	$obsoletewarning='<p><span class="LC_warning">'.
&mt('This resource has been marked obsolete by the author(s)').	&mt('This resource has been marked obsolete by the author(s)').
'</font></p>';	'</span></p>';
}	}
#	#
my %lt=&fieldnames();	my %lt=&fieldnames();
Line 941 sub present_uneditable_metadata {	Line 927 sub present_uneditable_metadata {
'obsoletereplacement');	'obsoletereplacement');
}	}
foreach my $field (@fields) {	foreach my $field (@fields) {
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$field}.	$table.=&Apache::lonhtmlcommon::row_title($lt{$field})
'</td><td bgcolor="#CCCCCC">'.	.&prettyprint($field,$content{$field})
&prettyprint($field,$content{$field}).'</td></tr>';	.&Apache::lonhtmlcommon::row_closure();
delete($content{$field});	delete($content{$field});
}	}
#	#
$r->print(<<ENDHEAD);	$r->print("<h2>$title</h2>"
<h2>$title</h2>	.'<p>'
<p>	.$disuri.'<br />'
$disuri<br />	.$obsoletewarning
$obsoletewarning	.$versiondisplay
$versiondisplay	.'</p>'
</p>	.&Apache::lonhtmlcommon::start_pick_box()
<table cellspacing="2" border="0">	.$table
$table	.&Apache::lonhtmlcommon::end_pick_box()
</table>	);
ENDHEAD
if (!$uploaded && $env{'user.adv'}) {	if (!$uploaded && $env{'user.adv'}) {
&print_dynamic_metadata($r,$uri,\%content);	&print_dynamic_metadata($r,$uri,\%content);
}	}
Line 984 sub print_dynamic_metadata {	Line 969 sub print_dynamic_metadata {
exists($dynmeta{'goto'}) \|\|	exists($dynmeta{'goto'}) \|\|
exists($dynmeta{'course'})) {	exists($dynmeta{'course'})) {
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.	$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
'<table cellspacing="2" border="0">');	&Apache::lonhtmlcommon::start_pick_box());
foreach ('count',	foreach ('count',
'sequsage','sequsage_list',	'sequsage','sequsage_list',
'comefrom','comefrom_list',	'comefrom','comefrom_list',
'goto','goto_list',	'goto','goto_list',
'course','course_list') {	'course','course_list') {
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.	$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})
'<td bgcolor="#CCCCCC">'.	.&prettyprint($_,$dynmeta{$_})
&prettyprint($_,$dynmeta{$_})."</td></tr>\n");	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
$r->print('</table>');	$r->print(&Apache::lonhtmlcommon::end_pick_box());
} else {	} else {
$r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>');	$r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>');
}	}
Line 1009 sub print_dynamic_metadata {	Line 995 sub print_dynamic_metadata {
$r->print('<h4>'.	$r->print('<h4>'.
&mt('Overall Assessment Statistical Data').	&mt('Overall Assessment Statistical Data').
'</h4>'.	'</h4>'.
'<table cellspacing="2" border="0">');	&Apache::lonhtmlcommon::start_pick_box());
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.	$r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'})
'<td bgcolor="#CCCCCC">'.	.&prettyprint('stdno',$dynmeta{'stdno'})
&prettyprint('stdno',$dynmeta{'stdno'}).	.&Apache::lonhtmlcommon::row_closure()
'</td>'."</tr>\n");	);
foreach ('avetries','difficulty','disc') {	foreach ('avetries','difficulty','disc') {
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.	$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})
'<td bgcolor="#CCCCCC">'.	.&prettyprint($_,sprintf('%5.2f',$dynmeta{$_}))
&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})).	.&Apache::lonhtmlcommon::row_closure()
'</td>'."</tr>\n");	);
}	}
$r->print('</table>');	$r->print(&Apache::lonhtmlcommon::end_pick_box());
}	}
if (exists($dynmeta{'stats'})) {	if (exists($dynmeta{'stats'})) {
#	#
Line 1028 sub print_dynamic_metadata {	Line 1014 sub print_dynamic_metadata {
$r->print('<h4>'.	$r->print('<h4>'.
&mt('Recent Detailed Assessment Statistical Data').	&mt('Recent Detailed Assessment Statistical Data').
'</h4>');	'</h4>');
my $table = '<table cellspacing="2" border="0">'.	my $table=&Apache::loncommon::start_data_table()
'<tr>'.	.&Apache::loncommon::start_data_table_header_row()
'<th>'.&mt('Course').'</th>'.	.'<th>'.&mt('Course').'</th>'
'<th>'.&mt('Section(s)').'</th>'.	.'<th>'.&mt('Section(s)').'</th>'
'<th>'.&mt('Num Student').'s</th>'.	.'<th>'.&mt('Num Students').'</th>'
'<th>'.&mt('Mean Tries').'</th>'.	.'<th>'.&mt('Mean Tries').'</th>'
'<th>'.&mt('Degree of Difficulty').'</th>'.	.'<th>'.&mt('Degree of Difficulty').'</th>'
'<th>'.&mt('Degree of Discrimination').'</th>'.	.'<th>'.&mt('Degree of Discrimination').'</th>'
'<th>'.&mt('Time of computation').'</th>'.	.'<th>'.&mt('Time of computation').'</th>'
'</tr>'.$/;	.&Apache::loncommon::end_data_table_header_row().$/;
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {	foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
my $data = $dynmeta{'stats'}->{$identifier};	my $data = $dynmeta{'stats'}->{$identifier};
my $course = $data->{'course'};	my $course = $data->{'course'};
Line 1048 sub print_dynamic_metadata {	Line 1034 sub print_dynamic_metadata {
&Apache::lonnet::logthis('lookup for '.$course.' failed');	&Apache::lonnet::logthis('lookup for '.$course.' failed');
next;	next;
}	}
$table .= '<tr>';	$table .= &Apache::loncommon::start_data_table_row();
$table .=	$table .=
'<td><nobr>'.$courseinfo{'description'}.'</nobr></td>';	'<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>';
$table .=	$table .=
'<td align="right">'.$data->{'sections'}.'</td>';	'<td align="right">'.$data->{'sections'}.'</td>';
$table .=	$table .=
Line 1065 sub print_dynamic_metadata {	Line 1051 sub print_dynamic_metadata {
$table .= '</td>';	$table .= '</td>';
}	}
$table .=	$table .=
'<td><nobr>'.	'<td><span class="LC_nobreak">'.
&Apache::lonlocal::locallocaltime($data->{'timestamp'}).	&Apache::lonlocal::locallocaltime($data->{'timestamp'}).
'</nobr></td>';	'</span></td>';
$table .=	$table .= &Apache::loncommon::end_data_table_row().$/;
'</tr>'.$/;
}	}
$table .= '</table>'.$/;	$table .= &Apache::loncommon::end_data_table().$/;
$r->print($table);	$r->print($table);
} else {	} else {
$r->print('No new dynamic data found.');	$r->print(&mt('No new dynamic data found.'));
}	}
} else {	} else {
$r->print('<h4>'.	$r->print('<h4>'.
Line 1090 sub print_dynamic_metadata {	Line 1075 sub print_dynamic_metadata {
exists($dynmeta{'correct'}) \|\|	exists($dynmeta{'correct'}) \|\|
exists($dynmeta{'technical'})){	exists($dynmeta{'technical'})){
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.	$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
'<table cellspacing="2" border="0">');	&Apache::lonhtmlcommon::start_pick_box());
foreach ('clear','depth','helpful','correct','technical') {	foreach ('clear','depth','helpful','correct','technical') {
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.	$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})
'<td bgcolor="#CCCCCC">'.	.&prettyprint($_,$dynmeta{$_})
&prettyprint($_,$dynmeta{$_})."</td></tr>\n");	.&Apache::lonhtmlcommon::row_closure()
	);
}	}
$r->print('</table>');	$r->print(&Apache::lonhtmlcommon::end_pick_box());
} else {	} else {
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');	$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
}	}
Line 1124 sub print_dynamic_metadata {	Line 1110 sub print_dynamic_metadata {
# All other stuff	# All other stuff
$r->print('<h3>'.	$r->print('<h3>'.
&mt('Additional Metadata (non-standard, parameters, exports)').	&mt('Additional Metadata (non-standard, parameters, exports)').
'</h3><table border="0" cellspacing="1">');	'</h3>');
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
foreach (sort(keys(%content))) {	foreach (sort(keys(%content))) {
my $name=$_;	my $name=$_;
if ($name!~/\.display$/) {	if ($name!~/\.display$/) {
Line 1142 sub print_dynamic_metadata {	Line 1129 sub print_dynamic_metadata {
$name.'.'.$_).'; ';	$name.'.'.$_).'; ';
}	}
}	}
$r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name});	$r->print(&Apache::lonhtmlcommon::row_title($display)
	.$content{$name}
	);
if ($otherinfo) {	if ($otherinfo) {
$r->print(' ('.$otherinfo.')');	$r->print(' ('.$otherinfo.')');
}	}
$r->print("</font></td></tr>\n");	$r->print(&Apache::lonhtmlcommon::row_closure());
}	}
}	}
$r->print("</table>");	$r->print(&Apache::lonhtmlcommon::end_pick_box());
return;	return;
}	}

Line 1212 ENDBOMBS	Line 1201 ENDBOMBS
<input type="submit" name="clearmsg" value="$clear" />	<input type="submit" name="clearmsg" value="$clear" />
ENDDEL	ENDDEL
} else {	} else {
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>');	$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>');
if ($env{'form.clearmsg'}) {	if ($env{'form.clearmsg'}) {
my ($diruri) = ($disuri =~ m{(./)[^/]});	my ($diruri) = ($disuri =~ m{(./)[^/]});
$r->print('<p><a href="'.$diruri.'" />'.	$r->print('<p><a href="'.$diruri.'">'.
&mt('Back To Directory').'</a></p>');	&mt('Back To Directory').'</a></p>');
}	}
}	}
$r->print('<br />'.$bombs);	$r->print('<br />'.$bombs);
} else {	} else {
my $displayfile='Catalog Information for '.$disuri;	my $displayfile=&mt('Metadata for [_1]',$disuri);
if ($disuri=~/\/default$/) {	if ($disuri=~/\/default$/) {
my $dir=$disuri;	my $dir=$disuri;
$dir=~s/default$//;	$dir=~s/default$//;
$displayfile=	$displayfile=&mt('Default Metadata for Directory [_1]',$dir);
&mt('Default Cataloging Information for Directory').' '.
$dir;
}	}
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
Line 1312 ENDEDIT	Line 1299 ENDEDIT
$Apache::lonpublisher::metadatafields{'owner'} =	$Apache::lonpublisher::metadatafields{'owner'} =
$env{'user.name'}.':'.$env{'user.domain'};	$env{'user.name'}.':'.$env{'user.domain'};
}	}
	if (! $Apache::lonpublisher::metadatafields{'author'}) {
	$Apache::lonpublisher::metadatafields{'author'} =
	&Apache::loncommon::plainname($env{'user.name'},
	$env{'user.domain'});
	}
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {	if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {

if ($file_type eq 'portfolio') {	if ($file_type eq 'portfolio') {
Line 1327 ENDEDIT	Line 1319 ENDEDIT
".description"}.'</strong>').'<br />');	".description"}.'</strong>').'<br />');
}	}
} else {	} else {
$r->print('<a href="'.$uri.'?changecourse=true">This resource is not associated with a course.</a><br />');	$r->print('<a href="'.$uri.'?changecourse=true">'.&mt('This resource is not associated with a course.').'</a><br />');
}	}
}	}
if (@added_order) {	if (@added_order) {
Line 1385 ENDEDIT	Line 1377 ENDEDIT
my ($outcome,$result) = &store_metadata($fn,$uri,'store');	my ($outcome,$result) = &store_metadata($fn,$uri,'store');
$r->print($result);	$r->print($result);
}	}
$r->print($output.'<br /><input type="submit" name="store" value="'.	$r->print($output.'<br /><input type="submit" title="'.&mt('Save Metadata').'" name="store" value="'.
&mt('Save Catalog Information').'" />');	&mt('Save').'" />');

if ($file_type eq 'portfolio' \|\| $file_type eq 'groups') {	if ($file_type eq 'portfolio' \|\| $file_type eq 'groups') {
my ($port_path,$group) = &get_port_path_and_group($uri);	my ($port_path,$group) = &get_port_path_and_group($uri);
Line 1551 sub update_metadata_table {	Line 1543 sub update_metadata_table {
1;	1;
__END__	__END__


	=head1 NAME

	Apache::lonmeta - display meta data

	=head1 SYNOPSIS

	Handler to display meta data

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 SUBROUTINES

	=over

	=item &get_dynamic_metadata_from_sql($url) :

	Queries sql database for dynamic metdata
	Returns a hash of hashes, with keys of urls which match $url
	Returned fields are given below.

	Examples:

	%DynamicMetadata = &Apache::lonmeta::get_dynmaic_metadata_from_sql
	('/res/msu/korte/');

	$DynamicMetadata{'/res/msu/korte/example.problem'}->{$field}

	=item dynamicmeta()

	Fetch and evaluate dynamic metadata

	=item access_count()

	=item alttag()

	Try to make an alt tag if there is none

	=item authordisplay()

	Author display

	=item evalgraph()

	Pretty display

	=item diffgraph()

	=item fieldnames()

	=item portfolio_linked_path()

	=item get_port_path_and_group()

	=item portfolio_display_uri()

	=item pre_select_course()

	=item select_course()

	=item prettyprint()

	Pretty printing of metadata field

	=item direct()

	Pretty input of metadata field

	=item selectbox()

	=item relatedfield()

	=item prettyinput()

	=item report_bombs()

	=item present_uneditable_metadata()

	=item present_editable_metadata()

	=item store_metadata()

	=item store_transferred_addedfields()

	=item store_portfolio_metadata()

	=item update_metadata_table()

	=back

	=cut

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

Removed from v.1.207
changed lines
	Added in v.1.218