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.95 and 1.137

version 1.95, 2005/03/18 16:47:31	version 1.137, 2005/12/13 11:52:37
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 243 sub fieldnames {	Line 243 sub fieldnames {
'authorspace' => 'Author Space',	'authorspace' => 'Author Space',
'modifyinguser' => 'Last Modifying User',	'modifyinguser' => 'Last Modifying User',
'subject' => 'Subject',	'subject' => 'Subject',
	'standards' => 'Standards',
'keywords' => 'Keyword(s)',	'keywords' => 'Keyword(s)',
'notes' => 'Notes',	'notes' => 'Notes',
'abstract' => 'Abstract',	'abstract' => 'Abstract',
'lowestgradelevel' => 'Lowest Grade Level',	'lowestgradelevel' => 'Lowest Grade Level',
'highestgradelevel' => 'Highest Grade Level');	'highestgradelevel' => 'Highest Grade Level',
	'courserestricted' => 'Course Restricting Metadata');

if (! defined($file_type) \|\| $file_type ne 'portfolio') {	if (! defined($file_type) \|\| $file_type ne 'portfolio') {
%fields =	%fields =
(%fields,	(%fields,
'domain' => 'Domain',	'domain' => 'Domain',
'standards' => 'Standards',
'mime' => 'MIME Type',	'mime' => 'MIME Type',
'language' => 'Language',	'language' => 'Language',
'creationdate' => 'Creation Date',	'creationdate' => 'Creation Date',
Line 282 sub fieldnames {	Line 284 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',	'dependencies' => 'Resources used by this resource',
);	);
}	}
return &Apache::lonlocal::texthash(%fields);	return &Apache::lonlocal::texthash(%fields);
}	}

	sub select_course {
	my %courses;
	my $output;
	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;
	}
	}
	$output = '<h3>Associate resource with a course</h3><br />';
	$output .= '<form action="" method="post">';
	$output .= 'Select course <br />';
	$output .= '<select name="metacourse" >';
	my $meta_not_found = 1;
	foreach my $key (keys (%courses)) {
	if ($meta_not_found) {
	undef($meta_not_found);
	$output .= '<h3>Portfolio Meta-Data</h3><br />';
	$output .= '<form action="" method="post">';
	$output .= 'Select your course<br />';
	$output .= '<select name="metacourse" >';
	}
	$key =~ m/(^.+)\.description$/;
	$output .= '<option value="'.$1.'">';
	$output .= $courses{$key};
	$output .= '</option>';
	}
	unless ($meta_not_found) {
	$output .= '</select><br />';
	$output .= '<input type="submit" value="Associate" />';
	$output .= '</form>';
	}
	return ($output);
	}
# Pretty printing of metadata field	# Pretty printing of metadata field

sub prettyprint {	sub prettyprint {
Line 338 sub prettyprint {	Line 377 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 440 sub relatedfield {	Line 479 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;
}	}
	my $output;
	if (defined($course_key)) {
	my $stu_add;
	my $only_one;
	my %meta_options;
	my @cur_values_inst;
	my $cur_values_stu;
	my $values = $env{$course_key.'.metadata.'.$type.'.values'};
	if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/stuadd/) {
	$stu_add = 'true';
	}
	if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/onlyone/) {
	$only_one = 'true';
	}
	# need to take instructor values out of list where instructor and student
	# values may be mixed.
	if ($values) {
	foreach my $item (split(/,/,$values)) {
	$item =~ s/^\s+//;
	$meta_options{$item} = $item;
	}
	foreach my $item (split(/,/,$value)) {
	$item =~ s/^\s+//;
	if ($meta_options{$item}) {
	push(@cur_values_inst,$item);
	} else {
	$cur_values_stu .= $item.',';
	}
	}
	} else {
	$cur_values_stu = $value;
	}
	if ($type eq 'courserestricted') {
	return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
	}
	if (($type eq 'keywords') \|\| ($type eq 'subject')
	\|\| ($type eq 'author')\|\|($type eq 'notes')
	\|\| ($type eq 'abstract')\|\| ($type eq 'title')\|\| ($type eq 'standards')) {
	if ($values) {
	if ($only_one) {
	$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options));
	} else {
	$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
	}
	}
	if ($stu_add) {
	$output .= '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
	'value="'.$cur_values_stu.'" />'.
	&relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
	$relatedvalue);
	}
	return ($output);
	}
	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 504 sub prettyinput {	Line 603 sub prettyinput {
",'rights')\">".&mt('Select').'</a>'.	",'rights')\">".&mt('Select').'</a>'.
&relatedfield(0,$relatedsearchflag,$relatedsep);	&relatedfield(0,$relatedsearchflag,$relatedsep);
}	}
	if ($type eq 'courserestricted') {
	return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
	}

# Dates	# Dates
if (($type eq 'creationdate') \|\|	if (($type eq 'creationdate') \|\|
($type eq 'lastrevisiondate')) {	($type eq 'lastrevisiondate')) {
Line 545 sub handler {	Line 648 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,'portfolio');	&present_editable_metadata($r,$uri,'portfolio');

} elsif ($uri=~/^\/\~/) {	} elsif ($uri=~/^\/\~/) {
# Construction space	# Construction space
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
Line 578 sub report_bombs {	Line 682 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 632 sub present_uneditable_metadata {	Line 745 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 681 $versiondisplay	Line 794 $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 822 sub print_dynamic_metadata {	Line 935 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 874 sub print_dynamic_metadata {	Line 987 sub print_dynamic_metadata {
return;	return;
}	}



#####################################################	#####################################################
#####################################################	#####################################################
### ###	### ###
Line 887 sub present_editable_metadata {	Line 1002 sub present_editable_metadata {
# Header	# Header
my $disuri=$uri;	my $disuri=$uri;
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);
	my $metacourse;
$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 921 ENDBOMBS	Line 1059 ENDBOMBS
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
my $result=&Apache::lonnet::getfile($fn);	my $result=&Apache::lonnet::getfile($fn);
if ($result == -1){	if ($result == -1){
$r->print('Unable to get '.$fn);	$r->print('Creating new '.$disuri);
return ;
} else {	} else {
&Apache::lonpublisher::metaeval($result);	&Apache::lonpublisher::metaeval($result);
}	}
Line 938 ENDEDIT	Line 1075 ENDEDIT
my @fields;	my @fields;
if ($file_type eq 'portfolio') {	if ($file_type eq 'portfolio') {
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel',	@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel',
'highestgradelevel');	'highestgradelevel','standards','courserestricted');
} else {	} else {
@fields = ('author','title','subject','keywords','abstract','notes',	@fields = ('author','title','subject','keywords','abstract','notes',
'copyright','customdistributionfile','language',	'copyright','customdistributionfile','language',
Line 946 ENDEDIT	Line 1083 ENDEDIT
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',	'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
'obsolete','obsoletereplacement');	'obsolete','obsoletereplacement');
}	}
foreach (@fields) {	if ($env{'form.metacourse'} ) {
if (defined($ENV{'form.new_'.$_})) {	$Apache::lonpublisher::metadatafields{'courserestricted'} = $env{'form.metacourse'};
$Apache::lonpublisher::metadatafields{$_}=	$metacourse = $env{'form.metacourse'};
$ENV{'form.new_'.$_};	} else {
	if (! $Apache::lonpublisher::metadatafields{'courserestricted'}) {
	$Apache::lonpublisher::metadatafields{'courserestricted'}=
	'none';
	$metacourse = 'none';
	} else {
	$metacourse = $Apache::lonpublisher::metadatafields{'courserestricted'};
}	}
if (! $Apache::lonpublisher::metadatafields{'copyright'}) {	}
	if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}=	$Apache::lonpublisher::metadatafields{'copyright'}=
'default';	'default';
	}
	if ($metacourse ne 'none') {
	$r->print('Using: <strong> '.$env{$metacourse.".description"}.
	"</strong> metadata framework<br />");
	} else {
	$r->print("This resources is not associated with a metadata framework<br />");
	}
	foreach my $field_name(@fields) {

	if (defined($env{'form.new_'.$field_name})) {
	$Apache::lonpublisher::metadatafields{$field_name}=
	join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
	}
	if ($metacourse ne 'none') {
	# handle restrictions here
	if ($env{$metacourse.'.metadata.'.$field_name.'.options'} =~ m/active/){
	$output.=('<p>'.$lt{$field_name}.': '.
	&prettyinput($field_name,
	$Apache::lonpublisher::metadatafields{$field_name},
	'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');
	} elsif ($field_name eq 'courserestricted') {
	$output.=(
	&prettyinput($field_name,
	$Apache::lonpublisher::metadatafields{$field_name},
	'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse));
	}
	} else {
	if ($field_name ne 'courserestricted') {
	$output.=('<p>'.$lt{$field_name}.': '.
	&prettyinput($field_name,
	$Apache::lonpublisher::metadatafields{$field_name},
	'new_'.$field_name,'defaultmeta').'</p>');
	} else {
	$output.=&prettyinput($field_name,
	$Apache::lonpublisher::metadatafields{$field_name},
	'new_'.$field_name,'defaultmeta');
	}
}	}
$output.=('<p>'.$lt{$_}.': '.
&prettyinput($_,
$Apache::lonpublisher::metadatafields{$_},
'new_'.$_,'defaultmeta').'</p>');
}	}
if ($ENV{'form.store'}) {
	if ($env{'form.store'}) {
my $mfh;	my $mfh;
my $formname='store';	my $formname='store';
my $file_content;	my $file_content;
	foreach my $meta_field (keys %env) {
	if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {
	$Apache::lonpublisher::metadatafields{'keywords'} =
	join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
	}
	}
foreach (sort keys %Apache::lonpublisher::metadatafields) {	foreach (sort keys %Apache::lonpublisher::metadatafields) {
next if ($_ =~ /\./);	next if ($_ =~ /\./);
my $unikey=$_;	my $unikey=$_;
Line 975 ENDEDIT	Line 1159 ENDEDIT
$Apache::lonpublisher::metadatakeys{$unikey})	$Apache::lonpublisher::metadatakeys{$unikey})
) {	) {
my $value=	my $value=
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};	$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
$value=~s/\"/\'\'/g;	$value=~s/\"/\'\'/g;
$file_content.=' '.$_.'="'.$value.'"' ;	$file_content.=' '.$_.'="'.$value.'"' ;
# print $mfh ' '.$_.'="'.$value.'"';	# print $mfh ' '.$_.'="'.$value.'"';
Line 989 ENDEDIT	Line 1173 ENDEDIT
if ($fn =~ /\/portfolio\//) {	if ($fn =~ /\/portfolio\//) {
$fn =~ /\/portfolio\/(.*)$/;	$fn =~ /\/portfolio\/(.*)$/;
my $new_fn = '/'.$1;	my $new_fn = '/'.$1;
$ENV{'form.'.$formname}=$file_content;	$env{'form.'.$formname}=$file_content."\n";
$ENV{'form.'.$formname.'.filename'}=$new_fn;	$env{'form.'.$formname.'.filename'}=$new_fn;
&Apache::lonnet::userfileupload('uploaddoc','',	&Apache::lonnet::userfileupload('uploaddoc','',
'portfolio'.$ENV{'form.currentpath'});	'portfolio'.$env{'form.currentpath'});
my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {	if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
$r->print('<p><font color="red">'.	$r->print('<p><font color="red">'.
&mt('Could not write metadata').', '.	&mt('Could not write metadata').', '.
Line 1016 ENDEDIT	Line 1199 ENDEDIT
}	}
}	}
}	}
$r->print($output.'<br /><input type="submit" name="store" value="'.	$r->print($output.'<br /><input type="submit" name="store" value="'.
&mt('Store Catalog Information').'">');	&mt('Store Catalog Information').'">');

}	}
$r->print('</form>');	$r->print('</form>');
	if ($metacourse eq 'none') {
	$r->print(&select_course());
	}
return;	return;
}	}

1;	1;
__END__	__END__

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

Removed from v.1.95
changed lines
	Added in v.1.137