--- loncom/interface/lonmeta.pm 2005/08/25 20:46:32 1.107
+++ loncom/interface/lonmeta.pm 2005/08/27 23:25:18 1.108
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.107 2005/08/25 20:46:32 banghart Exp $
+# $Id: lonmeta.pm,v 1.108 2005/08/27 23:25:18 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1021,20 +1021,32 @@ ENDEDIT
$Apache::lonpublisher::metadatafields{$_},
'new_'.$_,'defaultmeta').'
');
if ($env{'form.metacourse'}) {
-
- $r->print('This is the instructor metadata area
');
- my @keywords = sort(split /, /,$env{$env{'form.metacourse'}.'.metadata.keywords'});
- $r->print($env{'form.metacourse'}.'
');
- $r->print('');
return 'ok';
@@ -1044,9 +1056,14 @@ ENDEDIT
my $mfh;
my $formname='store';
my $file_content;
- if (&Apache::loncommon::get_env_multiple('form.keywords')) {
- $Apache::lonpublisher::metadatafields{'coursekeyword'} =
+ foreach my $meta_field (keys %env) {
+ if ($meta_field=~m/^form.instmeta_(.+)_(\d+)$/) {
+ $r->print('Found a field
');
+ }
+ if (&Apache::loncommon::get_env_multiple('form.keywords')) {
+ $Apache::lonpublisher::metadatafields{'coursekeyword'} =
join (', ', &Apache::loncommon::get_env_multiple('form.keywords'));
+ }
}
foreach (sort keys %Apache::lonpublisher::metadatafields) {
next if ($_ =~ /\./);