|
version 1.170, 2004/05/21 20:21:32
|
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'}; |
![[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