--- loncom/interface/lonmeta.pm 2005/08/02 17:01:20 1.101
+++ 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.101 2005/08/02 17:01:20 banghart Exp $
+# $Id: lonmeta.pm,v 1.102 2005/08/02 21:35:10 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -292,17 +292,14 @@ sub select_course {
my ($r)=@_;
$r->print('
Instructor Selected Meta-Data
');
$r->print('');
-
foreach my $key (keys %env) {
if ($key =~ /\.metadata\./) {
my $course_key = $key;
$course_key =~ s/\.metadata\..*//;
- $r->print('');
}
@@ -571,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
@@ -908,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';
+}
+
+
#####################################################
#####################################################
### ###