version 1.212.2.4, 2008/12/17 18:47:08
|
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 182 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">'.(' ' x2).'</td>'; |
$output.='<td width="20" bgcolor="#555555">  </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 192 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">'.(' ' x2).'</td>'; |
$output.='<td width="20" bgcolor="#555555">  </td>'; |
} |
} |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
return $output; |
return $output; |
Line 573 sub selectbox {
|
Line 555 sub selectbox {
|
$functionref=\&direct; |
$functionref=\&direct; |
} |
} |
my $selout='<select name="'.$name.'">'; |
my $selout='<select name="'.$name.'">'; |
foreach my $id (@idlist) { |
foreach (@idlist) { |
$selout.='<option value="'.$id.'"'; |
$selout.='<option value=\''.$_.'\''; |
if ($id eq $value) { |
if ($_ eq $value) { |
$selout.=' selected>'.&{$functionref}($_).'</option>'; |
$selout.=' selected>'.&{$functionref}($_).'</option>'; |
} else { |
} |
$selout.='>'.&{$functionref}($id).'</option>'; |
else {$selout.='>'.&{$functionref}($_).'</option>';} |
} |
|
} |
} |
return $selout.'</select>'; |
return $selout.'</select>'; |
} |
} |
Line 812 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 851 sub report_bombs {
|
Line 832 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 my $key (sort(keys(%brokenurls))) { |
foreach (sort(keys(%brokenurls))) { |
if ($key=~/^\Q$uri\E/) { |
if ($_=~/^\Q$uri\E/) { |
$r->print |
$r->print |
('<a href="'.&Apache::lonnet::clutter($key).'">'.$key.'</a>'. |
('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'. |
&Apache::lonmsg::retrieve_author_res_msg($key). |
&Apache::lonmsg::retrieve_author_res_msg($_). |
'<hr />'); |
'<hr />'); |
} |
} |
} |
} |
Line 878 sub present_uneditable_metadata {
|
Line 859 sub present_uneditable_metadata {
|
my $uploaded = ($uri =~ m|/uploaded/|); |
my $uploaded = ($uri =~ m|/uploaded/|); |
my %content=(); |
my %content=(); |
# Read file |
# Read file |
foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
$content{$key}=&Apache::lonnet::metadata($uri,$key); |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
} |
} |
# Render Output |
# Render Output |
# displayed url |
# displayed url |
Line 945 sub present_uneditable_metadata {
|
Line 926 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($lastrow); |
.&Apache::lonhtmlcommon::row_closure(); |
delete($content{$field}); |
delete($content{$field}); |
} |
} |
# |
# |
$r->print("<h2>$title</h2>" |
$r->print("<h2>$title</h2>" |
.'<p>' |
.'<p>' |
.$disuri.'<br />' |
.$disuri.'<br />' |
.$obsoletewarning |
.$obsoletewarning |
.$versiondisplay |
.$versiondisplay |
.'</p>' |
.'</p>' |
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::start_pick_box() |
.$table |
.$table |
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
); |
); |
if (!$uploaded && $env{'user.adv'}) { |
if (!$uploaded && $env{'user.adv'}) { |
&print_dynamic_metadata($r,$uri,\%content); |
&print_dynamic_metadata($r,$uri,\%content); |
Line 993 sub print_dynamic_metadata {
|
Line 970 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()); |
my @counts = ('count','sequsage','sequsage_list', |
foreach ('count', |
'comefrom','comefrom_list','goto', |
'sequsage','sequsage_list', |
'goto_list','course','course_list'); |
'comefrom','comefrom_list', |
my $rownum = 0; |
'goto','goto_list', |
foreach my $item (@counts) { |
'course','course_list') { |
my $lastrow = ''; |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
$rownum ++; |
.&prettyprint($_,$dynmeta{$_}) |
$lastrow = 1 if ($rownum == @counts); |
.&Apache::lonhtmlcommon::row_closure() |
$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 1023 sub print_dynamic_metadata {
|
Line 997 sub print_dynamic_metadata {
|
'</h4>'. |
'</h4>'. |
&Apache::lonhtmlcommon::start_pick_box()); |
&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'}) |
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
my @stats = ('avetries','difficulty','disc'); |
foreach ('avetries','difficulty','disc') { |
my $rownum = 0; |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
foreach my $item (@stats) { |
.&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})) |
my $lastrow = ''; |
.&Apache::lonhtmlcommon::row_closure() |
$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()); |
} |
} |
if (exists($dynmeta{'stats'})) { |
if (exists($dynmeta{'stats'})) { |
# |
# |
Line 1046 sub print_dynamic_metadata {
|
Line 1015 sub print_dynamic_metadata {
|
&mt('Recent Detailed Assessment Statistical Data'). |
&mt('Recent Detailed Assessment Statistical Data'). |
'</h4>'); |
'</h4>'); |
my $table=&Apache::loncommon::start_data_table() |
my $table=&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table_header_row() |
.&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>' |
.&Apache::loncommon::end_data_table_header_row().$/; |
.&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 1072 sub print_dynamic_metadata {
|
Line 1041 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 my $item ('avetries','difficulty','disc') { |
foreach ('avetries','difficulty','disc') { |
$table .= '<td align="right">'; |
$table .= '<td align="right">'; |
if (exists($data->{$item})) { |
if (exists($data->{$_})) { |
$table .= sprintf('%.2f',$data->{$item}).' '; |
$table .= sprintf('%.2f',$data->{$_}).' '; |
} else { |
} else { |
$table .= ''; |
$table .= ''; |
} |
} |
Line 1107 sub print_dynamic_metadata {
|
Line 1076 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()); |
my @criteria = ('clear','depth','helpful','correct','technical'); |
foreach ('clear','depth','helpful','correct','technical') { |
my $rownum = 0; |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
foreach my $item (@criteria) { |
.&prettyprint($_,$dynmeta{$_}) |
my $lastrow = ''; |
.&Apache::lonhtmlcommon::row_closure() |
$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 1148 sub print_dynamic_metadata {
|
Line 1112 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()); |
my @names; |
foreach (sort(keys(%content))) { |
foreach my $key (sort(keys(%content))) { |
my $name=$_; |
if ($key!~/\.display$/) { |
if ($name!~/\.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 my $item ('name','part','type','default') { |
foreach ('name','part','type','default') { |
if (defined(&Apache::lonnet::metadata($uri, |
if (defined(&Apache::lonnet::metadata($uri, |
$name.'.'.$item))) { |
$name.'.'.$_))) { |
$otherinfo.=' '.$item.'='. |
$otherinfo.=' '.$_.'='. |
&Apache::lonnet::metadata($uri, |
&Apache::lonnet::metadata($uri, |
$name.'.'.$item).'; '; |
$name.'.'.$_).'; '; |
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::row_title($display) |
$r->print(&Apache::lonhtmlcommon::row_title($display) |
.$content{$name}); |
.$content{$name} |
|
); |
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print(&Apache::lonhtmlcommon::row_closure($lastrow)); |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
Line 1255 ENDDEL
|
Line 1210 ENDDEL
|
} |
} |
$r->print('<br />'.$bombs); |
$r->print('<br />'.$bombs); |
} else { |
} else { |
my $displayfile=&mt('Catalog Information for [_1]',$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=&mt('Default Cataloging Information for Directory [_1]',$dir); |
$displayfile=&mt('Default Metadata for Directory [_1]',$dir); |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
Line 1422 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 1588 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 |