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.218 and 1.223

version 1.218, 2008/12/10 18:43:32	version 1.223, 2008/12/13 22:15:53
Line 164 sub evalgraph {	Line 164 sub evalgraph {
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) {
$output.='<td width="20" bgcolor="#555555">&nbsp </td>';	$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>';
} else {	} else {
$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'.	$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'.
'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>';	'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>';
Line 174 sub evalgraph {	Line 174 sub evalgraph {
$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'.	$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'.
'<td width="'.(40-$val).'" bgcolor="#555555"> </td>';	'<td width="'.(40-$val).'" bgcolor="#555555"> </td>';
} else {	} else {
$output.='<td width="20" bgcolor="#555555">&nbsp </td>';	$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>';
}	}
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';	$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';
return $output;	return $output;
Line 555 sub selectbox {	Line 555 sub selectbox {
$functionref=\&direct;	$functionref=\&direct;
}	}
my $selout='<select name="'.$name.'">';	my $selout='<select name="'.$name.'">';
foreach (@idlist) {	foreach my $id (@idlist) {
$selout.='<option value=\''.$_.'\'';	$selout.='<option value="'.$id.'"';
if ($_ eq $value) {	if ($id eq $value) {
$selout.=' selected>'.&{$functionref}($_).'</option>';	$selout.=' selected>'.&{$functionref}($id).'</option>';
}	} else {
else {$selout.='>'.&{$functionref}($_).'</option>';}	$selout.='>'.&{$functionref}($id).'</option>';
	}
}	}
return $selout.'</select>';	return $selout.'</select>';
}	}
Line 832 sub report_bombs {	Line 833 sub report_bombs {
ENDCLEAR	ENDCLEAR
my %brokenurls =	my %brokenurls =
&Apache::lonmsg::all_url_author_res_msg($author,$domain);	&Apache::lonmsg::all_url_author_res_msg($author,$domain);
foreach (sort(keys(%brokenurls))) {	foreach my $key (sort(keys(%brokenurls))) {
if ($_=~/^\Q$uri\E/) {	if ($key=~/^\Q$uri\E/) {
$r->print	$r->print
('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'.	('<a href="'.&Apache::lonnet::clutter($key).'">'.$key.'</a>'.
&Apache::lonmsg::retrieve_author_res_msg($_).	&Apache::lonmsg::retrieve_author_res_msg($key).
'<hr />');	'<hr />');
}	}
}	}
Line 859 sub present_uneditable_metadata {	Line 860 sub present_uneditable_metadata {
my $uploaded = ($uri =~ m\|/uploaded/\|);	my $uploaded = ($uri =~ m\|/uploaded/\|);
my %content=();	my %content=();
# Read file	# Read file
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {	foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
$content{$_}=&Apache::lonnet::metadata($uri,$_);	$content{$key}=&Apache::lonnet::metadata($uri,$key);
}	}
# Render Output	# Render Output
# displayed url	# displayed url
Line 926 sub present_uneditable_metadata {	Line 927 sub present_uneditable_metadata {
'obsolete',	'obsolete',
'obsoletereplacement');	'obsoletereplacement');
}	}
	my $rownum = 0;
foreach my $field (@fields) {	foreach my $field (@fields) {
	my $lastrow = '';
	$rownum ++;
	$lastrow = 1 if ($rownum == @fields);
$table.=&Apache::lonhtmlcommon::row_title($lt{$field})	$table.=&Apache::lonhtmlcommon::row_title($lt{$field})
.&prettyprint($field,$content{$field})	.&prettyprint($field,$content{$field})
.&Apache::lonhtmlcommon::row_closure();	.&Apache::lonhtmlcommon::row_closure($lastrow);
delete($content{$field});	delete($content{$field});
}	}
#	#
Line 970 sub print_dynamic_metadata {	Line 975 sub print_dynamic_metadata {
exists($dynmeta{'course'})) {	exists($dynmeta{'course'})) {
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.	$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
&Apache::lonhtmlcommon::start_pick_box());	&Apache::lonhtmlcommon::start_pick_box());
foreach ('count',	my @counts = ('count','sequsage','sequsage_list',
'sequsage','sequsage_list',	'comefrom','comefrom_list','goto',
'comefrom','comefrom_list',	'goto_list','course','course_list');
'goto','goto_list',	my $rownum = 0;
'course','course_list') {	foreach my $item (@counts) {
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})	my $lastrow = '';
.&prettyprint($_,$dynmeta{$_})	$rownum ++;
.&Apache::lonhtmlcommon::row_closure()	$lastrow = 1 if ($rownum == @counts);
	$r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
	.&prettyprint($item,$dynmeta{$item})
	.&Apache::lonhtmlcommon::row_closure($lastrow)
);	);
}	}
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1000 sub print_dynamic_metadata {	Line 1008 sub print_dynamic_metadata {
.&prettyprint('stdno',$dynmeta{'stdno'})	.&prettyprint('stdno',$dynmeta{'stdno'})
.&Apache::lonhtmlcommon::row_closure()	.&Apache::lonhtmlcommon::row_closure()
);	);
foreach ('avetries','difficulty','disc') {	my @stats = ('avetries','difficulty','disc');
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})	my $rownum = 0;
.&prettyprint($_,sprintf('%5.2f',$dynmeta{$_}))	foreach my $item (@stats) {
.&Apache::lonhtmlcommon::row_closure()	my $lastrow = '';
	$rownum ++;
	$lastrow = 1 if ($rownum == @stats);
	$r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
	.&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))
	.&Apache::lonhtmlcommon::row_closure($lastrow)
);	);
}	}
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1041 sub print_dynamic_metadata {	Line 1054 sub print_dynamic_metadata {
'<td align="right">'.$data->{'sections'}.'</td>';	'<td align="right">'.$data->{'sections'}.'</td>';
$table .=	$table .=
'<td align="right">'.$data->{'stdno'}.'</td>';	'<td align="right">'.$data->{'stdno'}.'</td>';
foreach ('avetries','difficulty','disc') {	foreach my $item ('avetries','difficulty','disc') {
$table .= '<td align="right">';	$table .= '<td align="right">';
if (exists($data->{$_})) {	if (exists($data->{$item})) {
$table .= sprintf('%.2f',$data->{$_}).' ';	$table .= sprintf('%.2f',$data->{$item}).' ';
} else {	} else {
$table .= '';	$table .= '';
}	}
Line 1076 sub print_dynamic_metadata {	Line 1089 sub print_dynamic_metadata {
exists($dynmeta{'technical'})){	exists($dynmeta{'technical'})){
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.	$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
&Apache::lonhtmlcommon::start_pick_box());	&Apache::lonhtmlcommon::start_pick_box());
foreach ('clear','depth','helpful','correct','technical') {	my @criteria = ('clear','depth','helpful','correct','technical');
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_})	my $rownum = 0;
.&prettyprint($_,$dynmeta{$_})	foreach my $item (@criteria) {
.&Apache::lonhtmlcommon::row_closure()	my $lastrow = '';
	$rownum ++;
	$lastrow = 1 if ($rownum == @criteria);
	$r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
	.&prettyprint($item,$dynmeta{$item})
	.&Apache::lonhtmlcommon::row_closure($lastrow)
);	);
}	}
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1112 sub print_dynamic_metadata {	Line 1130 sub print_dynamic_metadata {
&mt('Additional Metadata (non-standard, parameters, exports)').	&mt('Additional Metadata (non-standard, parameters, exports)').
'</h3>');	'</h3>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
foreach (sort(keys(%content))) {	my @names;
my $name=$_;	foreach my $key (sort(keys(%content))) {
if ($name!~/\.display$/) {	if ($key!~/\.display$/) {
	push(@names,$key);
	}
	}
	if (@names > 0) {
	my $rownum = 0;
	foreach my $name (@names) {
	my $lastrow = '';
	$rownum ++;
	$lastrow = 1 if ($rownum == @names);

my $display=&Apache::lonnet::metadata($uri,	my $display=&Apache::lonnet::metadata($uri,
$name.'.display');	$name.'.display');
if (! $display) {	if (! $display) {
$display=$name;	$display=$name;
};	};
my $otherinfo='';	my $otherinfo='';
foreach ('name','part','type','default') {	foreach my $item ('name','part','type','default') {
if (defined(&Apache::lonnet::metadata($uri,	if (defined(&Apache::lonnet::metadata($uri,
$name.'.'.$_))) {	$name.'.'.$item))) {
$otherinfo.=' '.$_.'='.	$otherinfo.=' '.$item.'='.
&Apache::lonnet::metadata($uri,	&Apache::lonnet::metadata($uri,
$name.'.'.$_).'; ';	$name.'.'.$item).'; ';
}	}
}	}
$r->print(&Apache::lonhtmlcommon::row_title($display)	$r->print(&Apache::lonhtmlcommon::row_title($display)
Line 1135 sub print_dynamic_metadata {	Line 1163 sub print_dynamic_metadata {
if ($otherinfo) {	if ($otherinfo) {
$r->print(' ('.$otherinfo.')');	$r->print(' ('.$otherinfo.')');
}	}
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure($lastrow));
}	}
}	}
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());

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

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