version 1.169, 2004/05/21 20:17:56
|
version 1.171, 2004/06/11 02:27:27
|
Line 1259 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 1362 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 1379 sub phasetwo {
|
Line 1386 sub phasetwo {
|
} |
} |
} |
} |
$allkeywords=~s/[\"\']//g; |
$allkeywords=~s/[\"\']//g; |
$allkeywords=~s/\s*[\;\,]\s*/\,/; |
$allkeywords=~s/\s*[\;\,]\s*/\,/g; |
$allkeywords=~s/\s+/ /g; |
$allkeywords=~s/\s+/ /g; |
$allkeywords=~s/^[ \,]//; |
$allkeywords=~s/^[ \,]//; |
$allkeywords=~s/[ \,]$//; |
$allkeywords=~s/[ \,]$//; |