--- loncom/interface/lonmeta.pm 2009/04/04 13:47:50 1.212.2.5 +++ loncom/interface/lonmeta.pm 2008/11/10 15:15:29 1.213 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.212.2.5 2009/04/04 13:47:50 raeburn Exp $ +# $Id: lonmeta.pm,v 1.213 2008/11/10 15:15:29 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,141 @@ # http://www.lon-capa.org/ +=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 HANDLER SUBROUTINE + +handler() + +=head1 OTHER 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 + + package Apache::lonmeta; use strict; @@ -42,24 +177,6 @@ use Apache::lonmsg; 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 { my ($url) = shift(); my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/}); @@ -182,7 +299,7 @@ sub evalgraph { my $val=int($value*10.+0.5)-10; my $output=''; if ($val>=20) { - $output.=''; + $output.=''; } else { $output.=''. ''; @@ -192,7 +309,7 @@ sub evalgraph { $output.=''. ''; } else { - $output.=''; + $output.=''; } $output.='
'.(' ' x2).'      '.(' ' x2).'   ('.sprintf("%5.2f",$value).')
'; return $output; @@ -573,13 +690,12 @@ sub selectbox { $functionref=\&direct; } my $selout=''; } @@ -851,11 +967,11 @@ sub report_bombs { ENDCLEAR my %brokenurls = &Apache::lonmsg::all_url_author_res_msg($author,$domain); - foreach my $key (sort(keys(%brokenurls))) { - if ($key=~/^\Q$uri\E/) { + foreach (sort(keys(%brokenurls))) { + if ($_=~/^\Q$uri\E/) { $r->print - (''.$key.''. - &Apache::lonmsg::retrieve_author_res_msg($key). + (''.$_.''. + &Apache::lonmsg::retrieve_author_res_msg($_). '
'); } } @@ -878,8 +994,8 @@ sub present_uneditable_metadata { my $uploaded = ($uri =~ m|/uploaded/|); my %content=(); # Read file - foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { - $content{$key}=&Apache::lonnet::metadata($uri,$key); + foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { + $content{$_}=&Apache::lonnet::metadata($uri,$_); } # Render Output # displayed url @@ -907,9 +1023,9 @@ sub present_uneditable_metadata { my $obsolete=$content{'obsolete'}; my $obsoletewarning=''; if (($obsolete) && ($env{'user.adv'})) { - $obsoletewarning='

'. + $obsoletewarning='

'. &mt('This resource has been marked obsolete by the author(s)'). - '

'; + '

'; } # my %lt=&fieldnames(); @@ -945,27 +1061,24 @@ sub present_uneditable_metadata { 'obsolete', 'obsoletereplacement'); } - my $rownum = 0; foreach my $field (@fields) { - my $lastrow = ''; - $rownum ++; - $lastrow = 1 if ($rownum == @fields); - $table.=&Apache::lonhtmlcommon::row_title($lt{$field}) - .&prettyprint($field,$content{$field}) - .&Apache::lonhtmlcommon::row_closure($lastrow); + $table.=''.$lt{$field}. + ''. + &prettyprint($field,$content{$field}).''; delete($content{$field}); } # - $r->print("

$title

" - .'

' - .$disuri.'
' - .$obsoletewarning - .$versiondisplay - .'

' - .&Apache::lonhtmlcommon::start_pick_box() - .$table - .&Apache::lonhtmlcommon::end_pick_box() - ); + $r->print(<$title +

+$disuri
+$obsoletewarning +$versiondisplay +

+ +$table +
+ENDHEAD if (!$uploaded && $env{'user.adv'}) { &print_dynamic_metadata($r,$uri,\%content); } @@ -992,21 +1105,17 @@ sub print_dynamic_metadata { exists($dynmeta{'goto'}) || exists($dynmeta{'course'})) { $r->print('

'.&mt('Access and Usage Statistics').'

'. - &Apache::lonhtmlcommon::start_pick_box()); - my @counts = ('count','sequsage','sequsage_list', - 'comefrom','comefrom_list','goto', - 'goto_list','course','course_list'); - my $rownum = 0; - foreach my $item (@counts) { - my $lastrow = ''; - $rownum ++; - $lastrow = 1 if ($rownum == @counts); - $r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) - .&prettyprint($item,$dynmeta{$item}) - .&Apache::lonhtmlcommon::row_closure($lastrow) - ); + ''); + foreach ('count', + 'sequsage','sequsage_list', + 'comefrom','comefrom_list', + 'goto','goto_list', + 'course','course_list') { + $r->print(''. + '\n"); } - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print('
'.$lt{$_}.''. + &prettyprint($_,$dynmeta{$_})."
'); } else { $r->print('

'.&mt('No Access or Usages Statistics are available for this resource.').'

'); } @@ -1021,23 +1130,18 @@ sub print_dynamic_metadata { $r->print('

'. &mt('Overall Assessment Statistical Data'). '

'. - &Apache::lonhtmlcommon::start_pick_box()); - $r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'}) - .&prettyprint('stdno',$dynmeta{'stdno'}) - .&Apache::lonhtmlcommon::row_closure() - ); - my @stats = ('avetries','difficulty','disc'); - my $rownum = 0; - foreach my $item (@stats) { - 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(''. + ''."\n"); + foreach ('avetries','difficulty','disc') { + $r->print(''. + ''."\n"); } - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print('
'.$lt{'stdno'}.''. + &prettyprint('stdno',$dynmeta{'stdno'}). + '
'.$lt{$_}.''. + &prettyprint($_,sprintf('%5.2f',$dynmeta{$_})). + '
'); } if (exists($dynmeta{'stats'})) { # @@ -1045,16 +1149,16 @@ sub print_dynamic_metadata { $r->print('

'. &mt('Recent Detailed Assessment Statistical Data'). '

'); - my $table=&Apache::loncommon::start_data_table() - .&Apache::loncommon::start_data_table_header_row() - .''.&mt('Course').'' - .''.&mt('Section(s)').'' - .''.&mt('Num Student').'s' - .''.&mt('Mean Tries').'' - .''.&mt('Degree of Difficulty').'' - .''.&mt('Degree of Discrimination').'' - .''.&mt('Time of computation').'' - .&Apache::loncommon::end_data_table_header_row().$/; + my $table = ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''.$/; foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { my $data = $dynmeta{'stats'}->{$identifier}; my $course = $data->{'course'}; @@ -1065,29 +1169,30 @@ sub print_dynamic_metadata { &Apache::lonnet::logthis('lookup for '.$course.' failed'); next; } - $table .= &Apache::loncommon::start_data_table_row(); + $table .= ''; $table .= - ''; + ''; $table .= ''; $table .= ''; - foreach my $item ('avetries','difficulty','disc') { + foreach ('avetries','difficulty','disc') { $table .= ''; } $table .= - ''; - $table .= &Apache::loncommon::end_data_table_row().$/; + ''; + $table .= + ''.$/; } - $table .= &Apache::loncommon::end_data_table().$/; + $table .= '
'.&mt('Course').''.&mt('Section(s)').''.&mt('Num Student').'s'.&mt('Mean Tries').''.&mt('Degree of Difficulty').''.&mt('Degree of Discrimination').''.&mt('Time of computation').'
'.$courseinfo{'description'}.''.$courseinfo{'description'}.''.$data->{'sections'}.''.$data->{'stdno'}.''; - if (exists($data->{$item})) { - $table .= sprintf('%.2f',$data->{$item}).' '; + if (exists($data->{$_})) { + $table .= sprintf('%.2f',$data->{$_}).' '; } else { $table .= ''; } $table .= ''. + ''. &Apache::lonlocal::locallocaltime($data->{'timestamp'}). - '
'.$/; $r->print($table); } else { $r->print(&mt('No new dynamic data found.')); @@ -1106,19 +1211,13 @@ sub print_dynamic_metadata { exists($dynmeta{'correct'}) || exists($dynmeta{'technical'})){ $r->print('

'.&mt('Evaluation Data').'

'. - &Apache::lonhtmlcommon::start_pick_box()); - my @criteria = ('clear','depth','helpful','correct','technical'); - my $rownum = 0; - foreach my $item (@criteria) { - 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) - ); + ''); + foreach ('clear','depth','helpful','correct','technical') { + $r->print(''. + '\n"); } - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print('
'.$lt{$_}.''. + &prettyprint($_,$dynmeta{$_})."
'); } else { $r->print('

'.&mt('No Evaluation Data is available for this resource.').'

'); } @@ -1146,44 +1245,32 @@ sub print_dynamic_metadata { # All other stuff $r->print('

'. &mt('Additional Metadata (non-standard, parameters, exports)'). - '

'); - $r->print(&Apache::lonhtmlcommon::start_pick_box()); - my @names; - foreach my $key (sort(keys(%content))) { - if ($key!~/\.display$/) { - push(@names,$key); - } - } - if (@names > 0) { - my $rownum = 0; - foreach my $name (@names) { - my $lastrow = ''; - $rownum ++; - $lastrow = 1 if ($rownum == @names); - + ''); + foreach (sort(keys(%content))) { + my $name=$_; + if ($name!~/\.display$/) { my $display=&Apache::lonnet::metadata($uri, $name.'.display'); if (! $display) { $display=$name; }; my $otherinfo=''; - foreach my $item ('name','part','type','default') { + foreach ('name','part','type','default') { if (defined(&Apache::lonnet::metadata($uri, - $name.'.'.$item))) { - $otherinfo.=' '.$item.'='. + $name.'.'.$_))) { + $otherinfo.=' '.$_.'='. &Apache::lonnet::metadata($uri, - $name.'.'.$item).'; '; + $name.'.'.$_).'; '; } } - $r->print(&Apache::lonhtmlcommon::row_title($display) - .$content{$name}); + $r->print('\n"); } } - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print("
'.$display.''.$content{$name}); if ($otherinfo) { $r->print(' ('.$otherinfo.')'); } - $r->print(&Apache::lonhtmlcommon::row_closure($lastrow)); + $r->print("
"); return; }