|
version 1.149, 2003/12/22 22:09:06
|
version 1.150, 2003/12/26 16:27:20
|
|
Line 1144 END
|
Line 1144 END
|
| |
|
| $source=~/\.(\w+)$/; |
$source=~/\.(\w+)$/; |
| |
|
| |
|
| |
$scrout.= |
| |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
| |
uc(&mt('Lowest Grade Level:')). |
| |
"</b></font></p><br />". |
| |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
| |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
| |
uc(&mt('Highest Grade Level:')). |
| |
"</b></font></p><br />". |
| |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
| |
&textfield('Standards','standards',$metadatafields{'standards'}); |
| |
|
| |
|
| |
|
| |
|
| $scrout.=&hiddenfield('mime',$1); |
$scrout.=&hiddenfield('mime',$1); |
| |
|
| my $defaultlanguage=$metadatafields{'language'}; |
my $defaultlanguage=$metadatafields{'language'}; |
![[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