--- loncom/interface/lonmeta.pm 2006/09/11 22:48:47 1.174 +++ loncom/interface/lonmeta.pm 2006/09/13 20:12:20 1.175 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.174 2006/09/11 22:48:47 banghart Exp $ +# $Id: lonmeta.pm,v 1.175 2006/09/13 20:12:20 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -744,7 +744,6 @@ sub handler { $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information', undef, {'domain' => $resdomain,})); - &present_editable_metadata($r,$uri,'groups'); } elsif ($uri=~m|^/~|) { # Construction space @@ -1278,7 +1277,6 @@ ENDEDIT $Apache::lonpublisher::metadatafields{'keywords'} = join (',', &Apache::loncommon::get_env_multiple('form.new_keywords')); } - foreach my $field (sort keys %Apache::lonpublisher::metadatafields) { next if ($field =~ /\./); my $unikey=$field; @@ -1293,7 +1291,6 @@ ENDEDIT $Apache::lonpublisher::metadatafields{$unikey.'.'.$key}; $value=~s/\"/\'\'/g; $file_content.=' '.$key.'="'.$value.'"' ; - # print $mfh ' '.$key.'="'.$value.'"'; } $file_content.= '>'. &HTML::Entities::encode @@ -1310,10 +1307,6 @@ ENDEDIT } $r->print(&store_portfolio_metadata($formname,$file_content,$path, $new_fn)); - if (! $env{'form.associate'}) { - $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); - return; - } } else { if (! ($mfh=Apache::File->new('>'.$fn))) { $r->print('

'. @@ -1325,13 +1318,8 @@ ENDEDIT ' '.&Apache::lonlocal::locallocaltime(time). '

'); } - if (! $env{'form.associate'}) { - $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); - return; - } } } - $r->print($output.'
'); @@ -1341,10 +1329,11 @@ ENDEDIT $r->print(''); } $r->print(''); - $r->print(' -

'. - ''. - ''. + $r->print('


'); + if ($group) { + $r->print(''); + } + $r->print(''. ''); } }