version 1.31, 2003/04/15 00:53:04
|
version 1.32, 2003/06/30 17:17:30
|
Line 434 ENDEDIT
|
Line 434 ENDEDIT
|
if ($ENV{'form.new_'.$_}) { |
if ($ENV{'form.new_'.$_}) { |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
} |
} |
$r->print( |
if (m/copyright/) { |
&Apache::lonpublisher::textfield($_,'new_'.$_, |
$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_, |
$Apache::lonpublisher::metadatafields{$_})); |
$Apache::lonpublisher::metadatafields{$_}, |
|
\&Apache::loncommon::copyrightdescription, |
|
(&Apache::loncommon::copyrightids))); |
|
} elsif (m/language/) { |
|
$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_, |
|
$Apache::lonpublisher::metadatafields{$_}, |
|
\&Apache::loncommon::languagedescription, |
|
(&Apache::loncommon::languageids))); |
|
} else { |
|
$r->print(&Apache::lonpublisher::textfield($_,'new_'.$_, |
|
$Apache::lonpublisher::metadatafields{$_})); |
|
} |
} |
} |
if ($ENV{'form.store'}) { |
if ($ENV{'form.store'}) { |
my $mfh; |
my $mfh; |