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.89 and 1.119

version 1.89, 2005/01/19 01:28:33	version 1.119, 2005/10/26 23:37:51
Line 17	Line 17
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.	# GNU General Public License for more details.
#	#
# You should have received a copy of the GNU General Public License	# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software	# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#	#
Line 31 package Apache::lonmeta;	Line 31 package Apache::lonmeta;
use strict;	use strict;
use LONCAPA::lonmetadata();	use LONCAPA::lonmetadata();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet();	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonmsg;	use Apache::lonmsg;
use Apache::lonpublisher;	use Apache::lonpublisher;
use Apache::lonlocal;	use Apache::lonlocal;
Line 236 sub diffgraph {	Line 236 sub diffgraph {

# The field names	# The field names
sub fieldnames {	sub fieldnames {
return &Apache::lonlocal::texthash	my $file_type=shift;
(	my %fields =
'title' => 'Title',	('title' => 'Title',
'author' =>'Author(s)',	'author' =>'Author(s)',
'authorspace' => 'Author Space',	'authorspace' => 'Author Space',
'modifyinguser' => 'Last Modifying User',	'modifyinguser' => 'Last Modifying User',
Line 247 sub fieldnames {	Line 247 sub fieldnames {
'notes' => 'Notes',	'notes' => 'Notes',
'abstract' => 'Abstract',	'abstract' => 'Abstract',
'lowestgradelevel' => 'Lowest Grade Level',	'lowestgradelevel' => 'Lowest Grade Level',
'highestgradelevel' => 'Highest Grade Level',	'highestgradelevel' => 'Highest Grade Level');
	if (! defined($file_type) \|\| $file_type ne 'portfolio') {
	%fields =
	(%fields,
	'domain' => 'Domain',
'standards' => 'Standards',	'standards' => 'Standards',
'mime' => 'MIME Type',	'mime' => 'MIME Type',
'language' => 'Language',	'language' => 'Language',
Line 280 sub fieldnames {	Line 284 sub fieldnames {
'disc' => 'Degree of discrimination',	'disc' => 'Degree of discrimination',
'dependencies' => 'Resources used by this resource',	'dependencies' => 'Resources used by this resource',
);	);
	}
	return &Apache::lonlocal::texthash(%fields);
}	}

	sub select_course {
	my ($r)=@_;
	my %courses;
	foreach my $key (keys (%env)) {
	if ($key =~ m/\.metadata\./) {
	$key =~ m/^course\.(.+)(\.metadata.+$)/;
	my $course = $1;
	my $coursekey = 'course.'.$course.'.description';
	my $value = $env{$coursekey};
	$courses{$coursekey} = $value;
	}
	}
	$r->print('<h3>Course Related Meta-Data</h3><br />');
	$r->print('<form action="" method="post">');
	$r->print('Select your test course<br />');
	$r->print('<select name="metacourse" >');
	my $meta_not_found = 1;
	foreach my $key (keys (%courses)) {
	if ($meta_not_found) {
	undef($meta_not_found);
	$r->print('<h3>Portfolio Meta-Data</h3><br />');
	$r->print('<form action="" method="post">');
	$r->print('Select your course<br />');
	$r->print('<select name="metacourse" >');
	}
	$r->print('<option value="'.$key.'">');
	$r->print($courses{$key});
	$r->print('</option>');
	}
	unless ($meta_not_found) {
	$r->print('</select><br />');
	$r->print('<input type="submit" value="Assign Portfolio Metadata" />');
	$r->print('</form>');
	}
	return 'ok';
	}
# Pretty printing of metadata field	# Pretty printing of metadata field

sub prettyprint {	sub prettyprint {
Line 332 sub prettyprint {	Line 374 sub prettyprint {
return &Apache::loncommon::gradeleveldescription($value);	return &Apache::loncommon::gradeleveldescription($value);
}	}
# Only for advance users below	# Only for advance users below
if (! $ENV{'user.adv'}) {	if (! $env{'user.adv'}) {
return '<i>- '.&mt('not displayed').' -</i>';	return '<i>- '.&mt('not displayed').' -</i>';
}	}
# File	# File
Line 434 sub relatedfield {	Line 476 sub relatedfield {

sub prettyinput {	sub prettyinput {
my ($type,$value,$fieldname,$formname,	my ($type,$value,$fieldname,$formname,
$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;	$relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
if (! defined($size)) {	if (! defined($size)) {
$size = 80;	$size = 80;
}	}
	if (defined($course_key)) {
	my $stu_add;
	my $only_one;
	my $values = $env{$course_key.'.metadata.'.$_.'.values'};
	if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) {
	$stu_add = 'true';
	}
	if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/onlyone/) {
	$only_one = 'true';
	}
	if ($type eq 'author') {
	}
	if ($type eq 'authorspace') {
	}
	if ($type eq 'modifyinguser') {
	}
	if ($type eq 'subject') {
	}
	if ($type eq 'keywords') {
	my %hash;
	my $def;
	foreach (split(/,/,$values)) {
	$hash{$_} = $_;
	}
	if ($only_one) {
	return(&Apache::loncommon::select_form($def,'new_keywords',%hash));
	} else {
	return(&Apache::loncommon::multiple_select_form('new_keywords',undef,undef,%hash));
	}
	}
	if ($type eq 'notes') {
	}
	if ($type eq 'abstract') {
	}

	if (($type eq 'lowestgradelevel') \|\|
	($type eq 'highestgradelevel')) {
	return &Apache::loncommon::select_level_form($value,$fieldname).
	&relatedfield(0,$relatedsearchflag,$relatedsep);
	}
	return();
	}
# Language	# Language
if ($type eq 'language') {	if ($type eq 'language') {
return &selectbox($fieldname,	return &selectbox($fieldname,
Line 530 sub handler {	Line 614 sub handler {
#	#
my ($resdomain,$resuser)=	my ($resdomain,$resuser)=
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);	(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
$r->print('<html><head><title>'.	my $html=&Apache::lonxml::xmlbegin();
	$r->print($html.'<head><title>'.
'Catalog Information'.	'Catalog Information'.
'</title></head>');	'</title></head>');
if ($uri=~m:/adm/bombs/(.*)$:) {	if ($uri=~m:/adm/bombs/(.*)$:) {
Line 538 sub handler {	Line 623 sub handler {
# Looking for all bombs?	# Looking for all bombs?
&report_bombs($r,$uri);	&report_bombs($r,$uri);
} elsif ($uri=~/\/portfolio\//) {	} elsif ($uri=~/\/portfolio\//) {
	($resdomain,$resuser)=
	(&Apache::lonnet::declutter($uri)=~m\|^(\w+)/(\w+)/portfolio\|);
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
('Edit Portfolio File Information','','','',$resdomain));	('Edit Portfolio File Information','','','',$resdomain));
&present_editable_metadata($r,$uri);	&present_editable_metadata($r,$uri,'portfolio');
	&select_course($r);
} elsif ($uri=~/^\/\~/) {	} elsif ($uri=~/^\/\~/) {
# Construction space	# Construction space
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
Line 571 sub report_bombs {	Line 658 sub report_bombs {
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');	$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);	my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);
if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {	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(<<ENDCLEAR);
	<form method="post">
	<input type="submit" name="clearbombs" value="$clear" />
	</form>
	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 (sort(keys(%brokenurls))) {
Line 625 sub present_uneditable_metadata {	Line 721 sub present_uneditable_metadata {
# obsolete	# obsolete
my $obsolete=$content{'obsolete'};	my $obsolete=$content{'obsolete'};
my $obsoletewarning='';	my $obsoletewarning='';
if (($obsolete) && ($ENV{'user.adv'})) {	if (($obsolete) && ($env{'user.adv'})) {
$obsoletewarning='<p><font color="red">'.	$obsoletewarning='<p><font color="red">'.
&mt('This resource has been marked obsolete by the author(s)').	&mt('This resource has been marked obsolete by the author(s)').
'</font></p>';	'</font></p>';
Line 674 $versiondisplay	Line 770 $versiondisplay
$table	$table
</table>	</table>
ENDHEAD	ENDHEAD
if ($ENV{'user.adv'}) {	if ($env{'user.adv'}) {
&print_dynamic_metadata($r,$uri,\%content);	&print_dynamic_metadata($r,$uri,\%content);
}	}
return;	return;
Line 815 sub print_dynamic_metadata {	Line 911 sub print_dynamic_metadata {
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');	$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
}	}
$uri=~/^\/res\/(\w+)\/(\w+)\//;	$uri=~/^\/res\/(\w+)\/(\w+)\//;
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))	if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
\|\| ($ENV{'user.role.ca./'.$1.'/'.$2})) {	\|\| ($env{'user.role.ca./'.$1.'/'.$2})) {
if (exists($dynmeta{'comments'})) {	if (exists($dynmeta{'comments'})) {
$r->print('<h4>'.&mt('Evaluation Comments').' ('.	$r->print('<h4>'.&mt('Evaluation Comments').' ('.
&mt('visible to author and co-authors only').	&mt('visible to author and co-authors only').
Line 867 sub print_dynamic_metadata {	Line 963 sub print_dynamic_metadata {
return;	return;
}	}



#####################################################	#####################################################
#####################################################	#####################################################
### ###	### ###
Line 875 sub print_dynamic_metadata {	Line 973 sub print_dynamic_metadata {
#####################################################	#####################################################
#####################################################	#####################################################
sub present_editable_metadata {	sub present_editable_metadata {
my ($r,$uri) = @_;	my ($r,$uri, $file_type) = @_;
# Construction Space Call	# Construction Space Call
# Header	# Header
my $disuri=$uri;	my $disuri=$uri;
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);
$disuri=~s/^\/\~/\/priv\//;	$disuri=~s/^\/\~/\/priv\//;
$disuri=~s/\.meta$//;	$disuri=~s/\.meta$//;
	$disuri=~s\|^/editupload\|\|;
my $target=$uri;	my $target=$uri;
$target=~s/^\/\~/\/res\/$ENV{'request.role.domain'}\//;	$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;
$target=~s/\.meta$//;	$target=~s/\.meta$//;
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);	my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);
if ($bombs) {	if ($bombs) {
if ($ENV{'form.delmsg'}) {	my $showdel=1;
	if ($env{'form.delmsg'}) {
if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {	if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
$bombs=&mt('Messages deleted.');	$bombs=&mt('Messages deleted.');
	$showdel=0;
} else {	} else {
$bombs=&mt('Error deleting messages');	$bombs=&mt('Error deleting messages');
}	}
}	}
my $del=&mt('Delete Messages');	if ($env{'form.clearmsg'}) {
	my $cleardir=$target;
	$cleardir=~s/\/[^\/]+$/\//;
	if (&Apache::lonmsg::clear_author_res_msg($cleardir) eq 'ok') {
	$bombs=&mt('Messages cleared.');
	$showdel=0;
	} else {
	$bombs=&mt('Error clearing messages');
	}
	}
	my $del=&mt('Delete Messages for this Resource');
	my $clear=&mt('Clear all Messages in Subdirectory');
	my $goback=&mt('Back to Source File');
$r->print(<<ENDBOMBS);	$r->print(<<ENDBOMBS);
<h1>$disuri</h1>	<h1>$disuri</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
<input type="submit" name="delmsg" value="$del" />
<br />$bombs
ENDBOMBS	ENDBOMBS
	if ($showdel) {
	$r->print(<<ENDDEL);
	<input type="submit" name="delmsg" value="$del" />
	<input type="submit" name="clearmsg" value="$clear" />
	ENDDEL
	} else {
	$r->print('<a href="'.$disuri.'" />'.$goback.'</a>');
	}
	$r->print('<br />'.$bombs);
} else {	} else {
my $displayfile='Catalog Information for '.$disuri;	my $displayfile='Catalog Information for '.$disuri;
if ($disuri=~/\/default$/) {	if ($disuri=~/\/default$/) {
Line 912 ENDBOMBS	Line 1032 ENDBOMBS
}	}
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));	my $result=&Apache::lonnet::getfile($fn);
	if ($result == -1){
	$r->print('Creating new '.$disuri);
	} else {
	&Apache::lonpublisher::metaeval($result);
	}
$r->print(<<ENDEDIT);	$r->print(<<ENDEDIT);
<h1>$displayfile</h1>	<h1>$displayfile</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
Line 920 ENDEDIT	Line 1045 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($file_type);
my $output;	my $output;
foreach ('author','title','subject','keywords','abstract','notes',	my @fields;
	if ($file_type eq 'portfolio') {
	@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel',
	'highestgradelevel');
	} else {
	@fields = ('author','title','subject','keywords','abstract','notes',
'copyright','customdistributionfile','language',	'copyright','customdistributionfile','language',
'standards',	'standards',
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',	'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
'obsolete','obsoletereplacement') {	'obsolete','obsoletereplacement');
if (defined($ENV{'form.new_'.$_})) {	}
	foreach (@fields) {
	if (defined($env{'form.new_'.$_})) {
$Apache::lonpublisher::metadatafields{$_}=	$Apache::lonpublisher::metadatafields{$_}=
$ENV{'form.new_'.$_};	$env{'form.new_'.$_};
}	}
if (! $Apache::lonpublisher::metadatafields{'copyright'}) {	if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}=	$Apache::lonpublisher::metadatafields{'copyright'}=
'default';	'default';
}	}
$output.=('<p>'.$lt{$_}.': '.	if ($env{'form.metacourse'}) {
&prettyinput($_,	# handle restrictions here
	$env{'form.metacourse'} =~ m/(^.+)\.description$/;
	my $key_base = $1;
	if ($env{$key_base.'.metadata.'.$_.'.options'} =~ m/active/) {
	$output.=('<p>'.$lt{$_}.': '.
	&prettyinput($_,
	$Apache::lonpublisher::metadatafields{$_},
	'new_'.$_,'defaultmeta',undef,undef,undef,undef,$key_base).'</p>');
	}
	} else {
	$output.=('<p>'.$lt{$_}.': '.
	&prettyinput($_,
$Apache::lonpublisher::metadatafields{$_},	$Apache::lonpublisher::metadatafields{$_},
'new_'.$_,'defaultmeta').'</p>');	'new_'.$_,'defaultmeta').'</p>');
	}
}	}
if ($ENV{'form.store'}) {	if ($env{'form.store'}) {
my $mfh;	my $mfh;
if (! ($mfh=Apache::File->new('>'.$fn))) {	my $formname='store';
$r->print('<p><font color="red">'.	my $file_content;
&mt('Could not write metadata').', '.	foreach my $meta_field (keys %env) {
&mt('FAIL').'</font></p>');	if (&Apache::loncommon::get_env_multiple('form.keywords')) {
	$Apache::lonpublisher::metadatafields{'coursekeyword'} =
	join (', ', &Apache::loncommon::get_env_multiple('form.keywords'));
	}
	}
	foreach (sort keys %Apache::lonpublisher::metadatafields) {
	next if ($_ =~ /\./);
	my $unikey=$_;
	$unikey=~/^([A-Za-z]+)/;
	my $tag=$1;
	$tag=~tr/A-Z/a-z/;
	$file_content.= "\n\<$tag";
	foreach (split(/\,/,
	$Apache::lonpublisher::metadatakeys{$unikey})
	) {
	my $value=
	$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
	$value=~s/\"/\'\'/g;
	$file_content.=' '.$_.'="'.$value.'"' ;
	# print $mfh ' '.$_.'="'.$value.'"';
	}
	$file_content.= '>'.
	&HTML::Entities::encode
	($Apache::lonpublisher::metadatafields{$unikey},
	'<>&"').
	'</'.$tag.'>';
	}
	if ($fn =~ /\/portfolio\//) {
	$fn =~ /\/portfolio\/(.*)$/;
	my $new_fn = '/'.$1;
	$env{'form.'.$formname}=$file_content;
	$env{'form.'.$formname.'.filename'}=$new_fn;
	&Apache::lonnet::userfileupload('uploaddoc','',
	'portfolio'.$env{'form.currentpath'});
	if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
	$r->print('<p><font color="red">'.
	&mt('Could not write metadata').', '.
	&mt('FAIL').'</font></p>');
	} else {
	$r->print('<p><font color="blue">'.&mt('Wrote Metadata').
	' '.&Apache::lonlocal::locallocaltime(time).
	'</font></p>');
	}
} else {	} else {
foreach (sort keys %Apache::lonpublisher::metadatafields) {	if (! ($mfh=Apache::File->new('>'.$fn))) {
next if ($_ =~ /\./);	$r->print('<p><font color="red">'.
my $unikey=$_;	&mt('Could not write metadata').', '.
$unikey=~/^([A-Za-z]+)/;	&mt('FAIL').'</font></p>');
my $tag=$1;	} else {
$tag=~tr/A-Z/a-z/;	print $mfh $file_content;
print $mfh "\n\<$tag";	$r->print('<p><font color="blue">'.&mt('Wrote Metadata').
foreach (split(/\,/,	' '.&Apache::lonlocal::locallocaltime(time).
$Apache::lonpublisher::metadatakeys{$unikey})	'</font></p>');
) {
my $value=
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
$value=~s/\"/\'\'/g;
print $mfh ' '.$_.'="'.$value.'"';
}
print $mfh '>'.
&HTML::Entities::encode
($Apache::lonpublisher::metadatafields{$unikey},
'<>&"').
'</'.$tag.'>';
}	}
$r->print('<p><font color="blue">'.&mt('Wrote Metadata').
' '.&Apache::lonlocal::locallocaltime(time).
'</font></p>');
}	}
}	}
$r->print($output.'<br /><input type="submit" name="store" value="'.	$r->print($output.'<br /><input type="submit" name="store" value="'.
Line 982 ENDEDIT	Line 1154 ENDEDIT

1;	1;
__END__	__END__

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

Removed from v.1.89
changed lines
	Added in v.1.119