version 1.167, 2004/05/21 19:27:02
|
version 1.171, 2004/06/11 02:27:27
|
Line 1102 sub publish {
|
Line 1102 sub publish {
|
} |
} |
|
|
|
|
foreach (split(/\W+/,$metadatafields{'keywords'})) { |
foreach my $addkey (split(/[\"\'\,\;]/,$metadatafields{'keywords'})) { |
$keywords{$_}=1; |
$addkey=~s/\s+/ /g; |
|
$addkey=~s/^\s//; |
|
$addkey=~s/\s$//; |
|
if ($addkey=~/\w/) { |
|
$keywords{$addkey}=1; |
|
} |
} |
} |
# --------------------------------------------------- Now we also have keywords |
# --------------------------------------------------- Now we also have keywords |
# ============================================================================= |
# ============================================================================= |
Line 1254 END
|
Line 1259 END
|
$intr_scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$intr_scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$metadatafields{'customdistributionfile'}). |
$metadatafields{'customdistributionfile'}). |
$copyright_help; |
$copyright_help; |
|
$intr_scrout.=&selectbox('Source Distribution','sourceavail', |
|
$defaultoption, |
|
\&Apache::loncommon::source_copyrightdescription, |
|
(&Apache::loncommon::source_copyrightids)); |
|
$intr_scrout.=&textfield('Source Custom Distribution File','sourcerights', |
|
$metadatafields{'sourcerights'}); |
my $uctitle=&mt('Obsolete'); |
my $uctitle=&mt('Obsolete'); |
$intr_scrout.= |
$intr_scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
Line 1357 sub phasetwo {
|
Line 1368 sub phasetwo {
|
$metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'}; |
$metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'}; |
$metadatafields{'customdistributionfile'}= |
$metadatafields{'customdistributionfile'}= |
$ENV{'form.customdistributionfile'}; |
$ENV{'form.customdistributionfile'}; |
|
$metadatafields{'sourceavail'}=$ENV{'form.sourceavail'}; |
$metadatafields{'obsolete'}=$ENV{'form.obsolete'}; |
$metadatafields{'obsolete'}=$ENV{'form.obsolete'}; |
$metadatafields{'obsoletereplacement'}= |
$metadatafields{'obsoletereplacement'}= |
$ENV{'form.obsoletereplacement'}; |
$ENV{'form.obsoletereplacement'}; |
Line 1373 sub phasetwo {
|
Line 1385 sub phasetwo {
|
$allkeywords .= ','.$ENV{'form.keywords'}; |
$allkeywords .= ','.$ENV{'form.keywords'}; |
} |
} |
} |
} |
$allkeywords=~s/\W+/\,/; |
$allkeywords=~s/[\"\']//g; |
$allkeywords=~s/^\,//; |
$allkeywords=~s/\s*[\;\,]\s*/\,/g; |
|
$allkeywords=~s/\s+/ /g; |
|
$allkeywords=~s/^[ \,]//; |
|
$allkeywords=~s/[ \,]$//; |
$metadatafields{'keywords'}=$allkeywords; |
$metadatafields{'keywords'}=$allkeywords; |
|
|
# check if custom distribution file is specified |
# check if custom distribution file is specified |