--- loncom/interface/lonmeta.pm 2005/07/15 12:57:53 1.100
+++ loncom/interface/lonmeta.pm 2005/08/02 21:35:10 1.102
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.100 2005/07/15 12:57:53 banghart Exp $
+# $Id: lonmeta.pm,v 1.102 2005/08/02 21:35:10 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -292,15 +292,15 @@ sub select_course {
my ($r)=@_;
$r->print('
Instructor Selected Meta-Data
');
$r->print('');
-
foreach my $key (keys %env) {
+
if ($key =~ /\.metadata\./) {
- $r->print('');
}
}
@@ -568,8 +568,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
@@ -905,6 +909,13 @@ sub print_dynamic_metadata {
return;
}
+sub present_instructor_metadata {
+ my ($r,$uri, $file_type) = @_;
+ print $r->print('This is the instructor metadata area');
+ return 'ok';
+}
+
+
#####################################################
#####################################################
### ###