--- loncom/interface/lonmeta.pm 2005/08/02 17:01:20 1.101
+++ loncom/interface/lonmeta.pm 2005/08/04 23:47:37 1.103
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.101 2005/08/02 17:01:20 banghart Exp $
+# $Id: lonmeta.pm,v 1.103 2005/08/04 23:47:37 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -292,24 +292,30 @@ sub select_course {
my ($r)=@_;
$r->print('
Instructor Selected Meta-Data
');
$r->print('');
-
- foreach my $key (keys %env) {
-
+ my $meta_not_found = 1;
+ foreach my $key (keys %env) {
if ($key =~ /\.metadata\./) {
+ if ($meta_not_found) {
+ undef($meta_not_found);
+ $r->print('Instructor Selected Meta-Data
');
+ $r->print('');
+ unless ($meta_not_found) {
+ $r->print('
');
+ $r->print('');
+ $r->print('');
+ }
return 'ok';
}
# Pretty printing of metadata field
@@ -571,8 +577,12 @@ sub handler {
} elsif ($uri=~/\/portfolio\//) {
$r->print(&Apache::loncommon::bodytag
('Edit Portfolio File Information','','','',$resdomain));
- &present_editable_metadata($r,$uri,'portfolio');
- &select_course($r);
+ if ($env{'form.metacourse'}) {
+ &present_instructor_metadata($r,$uri,'portfolio');
+ } else {
+ &present_editable_metadata($r,$uri,'portfolio');
+ &select_course($r);
+ }
} elsif ($uri=~/^\/\~/) {
# Construction space
@@ -908,6 +918,16 @@ sub print_dynamic_metadata {
return;
}
+sub present_instructor_metadata {
+ my ($r,$uri, $file_type) = @_;
+ $r->print('This is the instructor metadata area
');
+ my $keywords = $env{$env{'form.metacourse'}.'.metadata.keywords'};
+ $r->print($env{'form.metacourse'}.'
');
+ $r->print('the keywords are: '.$keywords);
+ return 'ok';
+}
+
+
#####################################################
#####################################################
### ###