--- loncom/interface/lonmeta.pm 2006/09/11 22:48:47 1.174
+++ loncom/interface/lonmeta.pm 2006/09/13 22:08:07 1.176
@@ -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.176 2006/09/13 22:08:07 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -605,7 +605,7 @@ sub prettyinput {
if (($type eq 'keywords') || ($type eq 'subject')
|| ($type eq 'author')||($type eq 'notes')
|| ($type eq 'abstract')|| ($type eq 'title')|| ($type eq 'standards')
- || (exists($env{'course.'.$env{'request.course.id'}.'metadata.'.$type.'.added'}))) {
+ || (exists($env{'course.'.$env{'request.course.id'}.'.metadata.'.$type.'.added'}))) {
if ($values) {
if ($only_one) {
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options));
@@ -620,7 +620,7 @@ sub prettyinput {
$relatedvalue);
}
return ($output);
- }
+ }
if (($type eq 'lowestgradelevel') ||
($type eq 'highestgradelevel')) {
return &Apache::loncommon::select_level_form($value,$fieldname).
@@ -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
@@ -1196,6 +1195,7 @@ ENDEDIT
'notes','lowestgradelevel',
'highestgradelevel','standards');
$added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames();
+
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join (",",@fields);
}
} else {
@@ -1238,6 +1238,12 @@ ENDEDIT
$r->print("This resource is not associated with a course.
");
}
}
+ foreach my $field_name(keys (%$added_metadata_fields)) {
+ push (@fields,$field_name);
+ $Apache::lonpublisher::metadatafields{$field_name} =
+ $$added_metadata_fields{$field_name};
+ $lt{$field_name} = $$added_metadata_fields{$field_name};
+ }
foreach my $field_name (@fields) {
if (defined($env{'form.new_'.$field_name})) {
$Apache::lonpublisher::metadatafields{$field_name}=
@@ -1264,12 +1270,6 @@ ENDEDIT
}
}
- foreach my $field_name (keys(%$added_metadata_fields)) {
- my $course = $env{'request.course.id'};
- $output.=('
'.$$added_metadata_fields{$field_name}.': '. - &prettyinput($field_name,$env{'course.'.$env{'request.course.id'}.'metadata.'.$field_name.'.value'}, - 'new_'.$field_name,'addedmeta').'
') - } if ($env{'form.store'}) { my $mfh; my $formname='store'; @@ -1278,7 +1278,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 +1292,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 +1308,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 +1319,8 @@ ENDEDIT ' '.&Apache::lonlocal::locallocaltime(time). '
'); } - if (! $env{'form.associate'}) { - $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); - return; - } } } - $r->print($output.'