|
version 1.152, 2003/12/26 19:12:51
|
version 1.154, 2003/12/27 14:42:57
|
|
Line 960 sub publish {
|
Line 960 sub publish {
|
| $metadatafields{'author'}=~s/\s+/ /g; |
$metadatafields{'author'}=~s/\s+/ /g; |
| $metadatafields{'author'}=~s/\s+$//; |
$metadatafields{'author'}=~s/\s+$//; |
| $metadatafields{'owner'}=$cuname.'@'.$cudom; |
$metadatafields{'owner'}=$cuname.'@'.$cudom; |
| $metadatafields{'modifyinguser'}=$ENV{'user.name'}.'@'. |
|
| $ENV{'user.domain'}; |
|
| $metadatafields{'authorspace'}=$cuname.'@'.$cudom; |
|
| |
|
| # ------------------------------------------------ Check out directory hierachy |
# ------------------------------------------------ Check out directory hierachy |
| |
|
|
Line 1178 END
|
Line 1175 END
|
| $metadatafields{'creationdate'}=time; |
$metadatafields{'creationdate'}=time; |
| } |
} |
| $scrout.=&hiddenfield('creationdate', |
$scrout.=&hiddenfield('creationdate', |
| &Apache::loncommon::unsqltime($metadatafields{'creationdate'})); |
&Apache::lonmysql::unsqltime($metadatafields{'creationdate'})); |
| |
|
| $scrout.=&hiddenfield('lastrevisiondate',time); |
$scrout.=&hiddenfield('lastrevisiondate',time); |
| |
|
|
Line 1345 sub phasetwo {
|
Line 1342 sub phasetwo {
|
| $metadatafields{'obsoletereplacement'}= |
$metadatafields{'obsoletereplacement'}= |
| $ENV{'form.obsoletereplacement'}; |
$ENV{'form.obsoletereplacement'}; |
| $metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
| |
$metadatafields{'modifyinguser'}=$ENV{'user.name'}.'@'. |
| |
$ENV{'user.domain'}; |
| |
$metadatafields{'authorspace'}=$cuname.'@'.$cudom; |
| |
|
| my $allkeywords=$ENV{'form.addkey'}; |
my $allkeywords=$ENV{'form.addkey'}; |
| if (exists($ENV{'form.keywords'})) { |
if (exists($ENV{'form.keywords'})) { |
![[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