version 1.76, 2004/05/06 20:56:07
|
version 1.86, 2004/08/24 21:40:00
|
Line 41 use Apache::lonmysql;
|
Line 41 use Apache::lonmysql;
|
use Apache::lonmsg; |
use Apache::lonmsg; |
|
|
|
|
|
############################################################ |
|
############################################################ |
|
## |
|
## &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/(\w+)/(\w+)/:); |
|
if (! defined($authordom)) { |
|
$authordom = shift(); |
|
} |
|
if (! defined($author)) { |
|
$author = shift(); |
|
} |
|
if (! defined($authordom) || ! defined($author)) { |
|
return (); |
|
} |
|
my @Fields = ('url','count','course', |
|
'goto','goto_list', |
|
'comefrom','comefrom_list', |
|
'sequsage','sequsage_list', |
|
'stdno','stdno_list', |
|
'dependencies', |
|
'avetries','avetries_list', |
|
'difficulty','difficulty_list', |
|
'disc','disc_list', |
|
'clear','technical','correct', |
|
'helpful','depth'); |
|
# |
|
my $query = 'SELECT '.join(',',@Fields). |
|
' FROM metadata WHERE url LIKE "'.$url.'%"'; |
|
my $server = &Apache::lonnet::homeserver($author,$authordom); |
|
my $reply = &Apache::lonnet::metadata_query($query,undef,undef, |
|
,[$server]); |
|
return () if (! defined($reply) || ref($reply) ne 'HASH'); |
|
my $filename = $reply->{$server}; |
|
if (! defined($filename) || $filename =~ /^error/) { |
|
return (); |
|
} |
|
my $max_time = time + 10; # wait 10 seconds for results at most |
|
my %ReturnHash; |
|
# |
|
# Look for results |
|
my $finished = 0; |
|
while (! $finished && time < $max_time) { |
|
my $datafile=$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename; |
|
if (! -e "$datafile.end") { next; } |
|
my $fh; |
|
if (!($fh=Apache::File->new($datafile))) { next; } |
|
while (my $result = <$fh>) { |
|
chomp($result); |
|
next if (! $result); |
|
my @Data = |
|
map { |
|
&Apache::lonnet::unescape($_); |
|
} split(',',$result); |
|
my $url = $Data[0]; |
|
for (my $i=0;$i<=$#Fields;$i++) { |
|
$ReturnHash{$url}->{$Fields[$i]}=$Data[$i]; |
|
} |
|
} |
|
$finished = 1; |
|
} |
|
# |
|
return %ReturnHash; |
|
} |
|
|
|
|
# Fetch and evaluate dynamic metadata |
# Fetch and evaluate dynamic metadata |
sub dynamicmeta { |
sub dynamicmeta { |
my $url=&Apache::lonnet::declutter(shift); |
my $url=&Apache::lonnet::declutter(shift); |
Line 175 sub fieldnames {
|
Line 256 sub fieldnames {
|
'owner' => 'Publisher/Owner', |
'owner' => 'Publisher/Owner', |
'copyright' => 'Copyright/Distribution', |
'copyright' => 'Copyright/Distribution', |
'customdistributionfile' => 'Custom Distribution File', |
'customdistributionfile' => 'Custom Distribution File', |
|
'sourceavail' => 'Source Available', |
|
'sourcerights' => 'Source Custom Distribution File', |
'obsolete' => 'Obsolete', |
'obsolete' => 'Obsolete', |
'obsoletereplacement' => 'Suggested Replacement for Obsolete File', |
'obsoletereplacement' => 'Suggested Replacement for Obsolete File', |
'count' => 'Network-wide number of accesses (hits)', |
'count' => 'Network-wide number of accesses (hits)', |
Line 195 sub fieldnames {
|
Line 278 sub fieldnames {
|
'stdno' => 'Total number of students who have worked on this problem', |
'stdno' => 'Total number of students who have worked on this problem', |
'difficulty' => 'Degree of difficulty', |
'difficulty' => 'Degree of difficulty', |
'disc' => 'Degree of discrimination', |
'disc' => 'Degree of discrimination', |
|
'dependencies' => 'Resources used by this resource', |
); |
); |
} |
} |
|
|
# Pretty printing of metadata field |
# Pretty printing of metadata field |
|
|
sub prettyprint { |
sub prettyprint { |
my ($type,$value)=@_; |
my ($type,$value,$target,$prefix,$form,$noformat)=@_; |
|
# $target,$prefix,$form are optional and for filecrumbs only |
if (! defined($value)) { |
if (! defined($value)) { |
return ' '; |
return ' '; |
} |
} |
Line 224 sub prettyprint {
|
Line 309 sub prettyprint {
|
if ($type eq 'copyright') { |
if ($type eq 'copyright') { |
return &Apache::loncommon::copyrightdescription($value); |
return &Apache::loncommon::copyrightdescription($value); |
} |
} |
|
# Copyright |
|
if ($type eq 'sourceavail') { |
|
return &Apache::loncommon::source_copyrightdescription($value); |
|
} |
# MIME |
# MIME |
if ($type eq 'mime') { |
if ($type eq 'mime') { |
return '<img src="'.&Apache::loncommon::icon($value).'" /> '. |
return '<img src="'.&Apache::loncommon::icon($value).'" /> '. |
Line 251 sub prettyprint {
|
Line 340 sub prettyprint {
|
($type eq 'obsoletereplacement') || |
($type eq 'obsoletereplacement') || |
($type eq 'goto_list') || |
($type eq 'goto_list') || |
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list')) { |
($type eq 'sequsage_list') || |
return join('<br />',map { |
($type eq 'dependencies')) { |
|
return '<ul><font size="-1">'.join("\n",map { |
my $url = &Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter($_); |
my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
if ($title eq '') { |
if ($title eq '') { |
Line 269 sub prettyprint {
|
Line 359 sub prettyprint {
|
$title .= ' Syllabus'; |
$title .= ' Syllabus'; |
} |
} |
} |
} |
$_ = '<b>'.$title.'</b> '. |
$_ = '<li>'.$title.' '. |
'<a href="'.$url.'" target="preview">'. |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat). |
'<font size="-1">'.$url.'</font>'. |
'</li>' |
'</a>' |
} split(/\s*\,\s*/,$value)).'</ul></font>'; |
} split(/\s*\,\s*/,$value)); |
|
} |
} |
# Evaluations |
# Evaluations |
if (($type eq 'clear') || |
if (($type eq 'clear') || |
Line 365 sub prettyinput {
|
Line 454 sub prettyinput {
|
(&Apache::loncommon::copyrightids)). |
(&Apache::loncommon::copyrightids)). |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
|
# Source Copyright |
|
if ($type eq 'sourceavail') { |
|
return &selectbox($fieldname, |
|
$value, |
|
\&Apache::loncommon::source_copyrightdescription, |
|
(&Apache::loncommon::source_copyrightids)). |
|
&relatedfield(0,$relatedsearchflag,$relatedsep); |
|
} |
# Gradelevels |
# Gradelevels |
if (($type eq 'lowestgradelevel') || |
if (($type eq 'lowestgradelevel') || |
($type eq 'highestgradelevel')) { |
($type eq 'highestgradelevel')) { |
Line 393 sub prettyinput {
|
Line 490 sub prettyinput {
|
",'rights')\">".&mt('Select').'</a>'. |
",'rights')\">".&mt('Select').'</a>'. |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
|
# Source Customdistribution file |
|
if ($type eq 'sourcerights') { |
|
return '<input type="text" name="'.$fieldname. |
|
'" size="60" value="'.$value.'" /><a href="javascript:openbrowser'. |
|
"('".$formname."','".$fieldname."'". |
|
",'rights')\">".&mt('Select').'</a>'. |
|
&relatedfield(0,$relatedsearchflag,$relatedsep); |
|
} |
# Dates |
# Dates |
if (($type eq 'creationdate') || |
if (($type eq 'creationdate') || |
($type eq 'lastrevisiondate')) { |
($type eq 'lastrevisiondate')) { |
Line 404 sub prettyinput {
|
Line 509 sub prettyinput {
|
$value=~s/^\s+//gs; |
$value=~s/^\s+//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+/ /gs; |
$value=~s/\s+/ /gs; |
$value=~s/\"/\&quod\;/gs; |
$value=~s/\"/\"\;/gs; |
return |
return |
'<input type="text" name="'.$fieldname.'" size="'.$size.'" '. |
'<input type="text" name="'.$fieldname.'" size="'.$size.'" '. |
'value="'.$value.'" />'. |
'value="'.$value.'" />'. |
Line 439 sub handler {
|
Line 544 sub handler {
|
&present_editable_metadata($r,$uri); |
&present_editable_metadata($r,$uri); |
} else { |
} else { |
$r->print(&Apache::loncommon::bodytag |
$r->print(&Apache::loncommon::bodytag |
('Catalog Information','','','',$resdomain)); |
('Catalog Information','','','',$resdomain)); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
Line 542 sub present_uneditable_metadata {
|
Line 647 sub present_uneditable_metadata {
|
'lastrevisiondate', |
'lastrevisiondate', |
'owner', |
'owner', |
'copyright', |
'copyright', |
'customdistributionfile', |
'customdistributionfile', |
|
'sourceavail', |
|
'sourcerights', |
'obsolete', |
'obsolete', |
'obsoletereplacement') { |
'obsoletereplacement') { |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}. |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}. |
Line 580 sub print_dynamic_metadata {
|
Line 687 sub print_dynamic_metadata {
|
$r->rflush(); |
$r->rflush(); |
my %items=&fieldnames(); |
my %items=&fieldnames(); |
my %dynmeta=&dynamicmeta($uri); |
my %dynmeta=&dynamicmeta($uri); |
&Apache::lonnet::logthis('dynamic metadata keys:'.$/. |
|
join("\n",keys(%dynmeta))); |
|
# |
# |
# General Access and Usage Statistics |
# General Access and Usage Statistics |
if (exists($dynmeta{'count'}) || |
if (exists($dynmeta{'count'}) || |
Line 728 sub print_dynamic_metadata {
|
Line 833 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>'); |
'</h3><table border="0" cellspacing="1">'); |
foreach (sort(keys(%content))) { |
foreach (sort(keys(%content))) { |
my $name=$_; |
my $name=$_; |
if ($name!~/\.display$/) { |
if ($name!~/\.display$/) { |
Line 746 sub print_dynamic_metadata {
|
Line 851 sub print_dynamic_metadata {
|
$name.'.'.$_).'; '; |
$name.'.'.$_).'; '; |
} |
} |
} |
} |
$r->print('<b>'.$display.':</b> '.$content{$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}); |
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print("<br />\n"); |
$r->print("</font></td></tr>\n"); |
} |
} |
} |
} |
|
$r->print("</table>"); |
return; |
return; |
} |
} |
|
|
Line 799 ENDBOMBS
|
Line 905 ENDBOMBS
|
&mt('Default Cataloging Information for Directory').' '. |
&mt('Default Cataloging Information for Directory').' '. |
$dir; |
$dir; |
} |
} |
my $bodytag= |
|
&Apache::loncommon::bodytag('Edit Catalog Information'); |
|
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn)); |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn)); |
$r->print(<<ENDEDIT); |
$r->print(<<ENDEDIT); |
<html><head><title>Edit Catalog Information</title></head> |
|
$bodytag |
|
<h1>$displayfile</h1> |
<h1>$displayfile</h1> |
<form method="post" name="defaultmeta"> |
<form method="post" name="defaultmeta"> |
ENDEDIT |
ENDEDIT |
$r->print('<script language="JavaScript">'. |
$r->print('<script language="JavaScript">'. |
&Apache::loncommon::browser_and_searcher_javascript. |
&Apache::loncommon::browser_and_searcher_javascript(). |
'</script>'); |
'</script>'); |
my %lt=&fieldnames(); |
my %lt=&fieldnames(); |
foreach ('author','title','subject','keywords','abstract','notes', |
foreach ('author','title','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language', |
'copyright','customdistributionfile','language', |
'standards', |
'standards', |
'lowestgradelevel','highestgradelevel', |
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
'obsolete','obsoletereplacement') { |
'obsolete','obsoletereplacement') { |
if (defined($ENV{'form.new_'.$_})) { |
if (defined($ENV{'form.new_'.$_})) { |
$Apache::lonpublisher::metadatafields{$_}= |
$Apache::lonpublisher::metadatafields{$_}= |