| '; + $output.=' | '; } else { - $output.=' | '. - ' | '; + $output.=' | '. + ' | '; } $output.=' | '; if ($val>20) { - $output.=' | '. - ' | '; + $output.=' | '. + ' | '; } else { - $output.=' | '; + $output.=' | '; } - $output.=' | ('.$value.') |
| '; + $output.=' | '; } else { - $output.=' | '; + $output.=' | '; } } - $output.=' | ('.$value.') |
| Author(s) | -$content{'author'} | ||
| Subject | -$content{'subject'} | ||
| Keyword(s) | -$content{'keywords'} | ||
| Notes | -$content{'notes'} | ||
| Abstract | -$content{'abstract'} | ||
| MIME Type | -$mime ($content{'mime'}) | ||
| Language | -$language | ||
| Creation Date | -$creationdate | ||
| -Last Revision Date | $lastrevisiondate | ||
| Publisher/Owner | -$content{'owner'} | ||
| Copyright/Distribution | -$content{'copyright'}
+#####################################################
+#####################################################
+### ###
+### Report Bombs ###
+### ###
+#####################################################
+#####################################################
+sub report_bombs {
+ my ($r,$uri) = @_;
+ # Set document type
+ $uri =~ s:/adm/bombs/::;
+ $uri = &Apache::lonnet::declutter($uri);
+ $r->print(''.&Apache::lonnet::clutter($uri).''); + my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); + if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) { + if ($env{'form.clearbombs'}) { + &Apache::lonmsg::clear_author_res_msg($uri); + } + my $clear=&mt('Clear all Messages in Subdirectory'); + $r->print(<'); + } + } + } else { + $r->print(&mt('Not authorized')); + } + return; +} + +##################################################### +##################################################### +### ### +### Uneditable Metadata Display ### +### ### +##################################################### +##################################################### +sub present_uneditable_metadata { + my ($r,$uri) = @_; + # + my $uploaded = ($uri =~ m|/uploaded/|); + my %content=(); + # Read file + foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { + $content{$_}=&Apache::lonnet::metadata($uri,$_); + } + # Render Output + # displayed url + my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); + $uri=~s/\.meta$//; + my $disuri=&Apache::lonnet::clutter_with_no_wrapper($uri); + # version + my $versiondisplay=''; + if (!$uploaded) { + my $currentversion=&Apache::lonnet::getversion($disuri); + if ($thisversion) { + $versiondisplay=&mt('Version').': '.$thisversion. + ' ('.&mt('most recent version').': '. + ($currentversion>0 ? + $currentversion : + &mt('information not available')).')'; + } else { + $versiondisplay='Version: '.$currentversion; + } + } + # crumbify displayed URL uri target prefix form size + $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1'); + $disuri =~ s: ::g; + # obsolete + my $obsolete=$content{'obsolete'}; + my $obsoletewarning=''; + if (($obsolete) && ($env{'user.adv'})) { + $obsoletewarning=' '. + &mt('This resource has been marked obsolete by the author(s)'). + ' '; + } + # + my %lt=&fieldnames(); + my $table=''; + my $title = $content{'title'}; + if (! defined($title)) { + $title = 'Untitled Resource'; + } + my @fields; + if ($uploaded) { + @fields = ('title','author','subject','keywords','notes','abstract', + 'lowestgradelevel','highestgradelevel','standards','mime', + 'owner'); + } else { + @fields = ('title', + 'author', + 'subject', + 'keywords', + 'notes', + 'abstract', + 'lowestgradelevel', + 'highestgradelevel', + 'standards', + 'mime', + 'language', + 'creationdate', + 'lastrevisiondate', + 'owner', + 'copyright', + 'customdistributionfile', + 'sourceavail', + 'sourcerights', + 'obsolete', + 'obsoletereplacement'); + } + foreach my $field (@fields) { + $table.=''.$lt{$field}.
+ ' | '.
+ &prettyprint($field,$content{$field}).' |
+$disuri Dynamic Metadata (updated periodically)Processing ...'); - $r->rflush(); - my %items=( - 'count' => 'Network-wide number of accesses (hits)', - 'course' => 'Network-wide number of courses using resource', - 'usage' => 'Number of resources using or importing resource', - 'clear' => 'Material presented in clear way', - 'depth' => 'Material covered with sufficient depth', - 'helpful' => 'Material is helpful', - 'correct' => 'Material appears to be correct', - 'technical' => 'Resource is technically correct', - 'avetries' => 'Average number of tries till solved', - 'stdno' => 'Total number of students who have worked on this problem', - 'difficulty' => 'Degree of difficulty'); - my %dynmeta=&dynamicmeta($uri); - $r->print( -' |
| '.$items{$_}.' | '. -$dynmeta{$_}." |
| '.$items{$_}.' | '. -$dynmeta{$_}." |
| '.$items{$_}.' | '. -&diffgraph($dynmeta{$_})." |
| '.$items{$_}.' | '. -&evalgraph($dynmeta{$_})." |
'.$dynmeta{'comments'}.''); - $r->print( - '
| '.$lt{$_}.' | '. + ''. + &prettyprint($_,$dynmeta{$_})." |
| '.$lt{'stdno'}.' | '. + ''. + &prettyprint('stdno',$dynmeta{'stdno'}). + ' | '."
| '.$lt{$_}.' | '. + ''. + &prettyprint($_,sprintf('%5.2f',$dynmeta{$_})). + ' | '."
| '.&mt('Course').' | '. + ''.&mt('Section(s)').' | '. + ''.&mt('Num Student').'s | '. + ''.&mt('Mean Tries').' | '. + ''.&mt('Degree of Difficulty').' | '. + ''.&mt('Degree of Discrimination').' | '. + ''.&mt('Time of computation').' | '. + '
|---|---|---|---|---|---|---|
| '.$data->{'sections'}.' | '; + $table .= + ''.$data->{'stdno'}.' | '; + foreach ('avetries','difficulty','disc') { + $table .= ''; + if (exists($data->{$_})) { + $table .= sprintf('%.2f',$data->{$_}).' '; + } else { + $table .= ''; + } + $table .= ' | '; + } + $table .= + '
| '.$lt{$_}.' | '. + ''. + &prettyprint($_,$dynmeta{$_})." |
'.$dynmeta{'comments'}.''); + } else { + $r->print('
| '.$display.' | '.$content{$name}); + if ($otherinfo) { + $r->print(' ('.$otherinfo.')'); + } + $r->print(" |