--- loncom/interface/lonmeta.pm 2004/08/24 21:40:00 1.86 +++ loncom/interface/lonmeta.pm 2004/12/03 21:37:29 1.87 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.86 2004/08/24 21:40:00 albertel Exp $ +# $Id: lonmeta.pm,v 1.87 2004/12/03 21:37:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -916,6 +916,7 @@ ENDEDIT &Apache::loncommon::browser_and_searcher_javascript(). ''); my %lt=&fieldnames(); + my $output; foreach ('author','title','subject','keywords','abstract','notes', 'copyright','customdistributionfile','language', 'standards', @@ -929,17 +930,17 @@ ENDEDIT $Apache::lonpublisher::metadatafields{'copyright'}= 'default'; } - $r->print('

'.$lt{$_}.': '. - &prettyinput - ($_,$Apache::lonpublisher::metadatafields{$_}, - 'new_'.$_,'defaultmeta').'

'); + $output.=('

'.$lt{$_}.': '. + &prettyinput($_, + $Apache::lonpublisher::metadatafields{$_}, + 'new_'.$_,'defaultmeta').'

'); } if ($ENV{'form.store'}) { my $mfh; if (! ($mfh=Apache::File->new('>'.$fn))) { - $r->print('

'. + $r->print('

'. &mt('Could not write metadata').', '. - &mt('FAIL').''); + &mt('FAIL').'

'); } else { foreach (sort keys %Apache::lonpublisher::metadatafields) { next if ($_ =~ /\./); @@ -962,10 +963,12 @@ ENDEDIT '<>&"'). ''; } - $r->print('

'.&mt('Wrote Metadata')); + $r->print('

'.&mt('Wrote Metadata'). + ' '.&Apache::lonlocal::locallocaltime(time). + '

'); } } - $r->print('
'); } $r->print('');