--- 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('
'); - $r->print('Select your course
'.$env{'user.domain'}); + $r->print('Select your course
'); $r->print(''); - $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'; +} + + ##################################################### ##################################################### ### ###