|
version 1.78, 2002/04/17 16:21:46
|
version 1.79, 2002/04/17 18:32:35
|
|
Line 714 sub phasetwo {
|
Line 714 sub phasetwo {
|
| $metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
| |
|
| my $allkeywords=$ENV{'form.addkey'}; |
my $allkeywords=$ENV{'form.addkey'}; |
| if (exists($ENV{'form.keywords'})) { |
if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) { |
| my @Keywords = @{$ENV{'form.keywords'}}; |
my @Keywords = @{$ENV{'form.keywords'}}; |
| foreach (@Keywords) { |
foreach (@Keywords) { |
| $allkeywords.=','.$_; |
$allkeywords.=','.$_; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher