|
version 1.211, 2006/08/04 22:16:42
|
version 1.211.2.1, 2006/09/27 21:05:50
|
|
Line 846 sub store_metadata {
|
Line 846 sub store_metadata {
|
| $status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef, |
$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef, |
| $metadata{'url'}); |
$metadata{'url'}); |
| } else { |
} else { |
| $status = &LONCAPA::lonmetadata::update_metadata($dbh,undef, |
$status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef, |
| \%metadata); |
\%metadata); |
| } |
} |
| if (defined($status) && $status ne '') { |
if (defined($status) && $status ne '') { |
|
Line 856 sub store_metadata {
|
Line 856 sub store_metadata {
|
| &Apache::lonnet::logthis($status); |
&Apache::lonnet::logthis($status); |
| return ($error,undef); |
return ($error,undef); |
| } |
} |
| return (undef,$status); |
return (undef,'success'); |
| } |
} |
| |
|
| |
|
|
Line 1470 sub phasetwo {
|
Line 1470 sub phasetwo {
|
| $metadatafields{'modifyinguser'}=$env{'user.name'}.':'. |
$metadatafields{'modifyinguser'}=$env{'user.name'}.':'. |
| $env{'user.domain'}; |
$env{'user.domain'}; |
| $metadatafields{'authorspace'}=$cuname.':'.$cudom; |
$metadatafields{'authorspace'}=$cuname.':'.$cudom; |
| |
$metadatafields{'domain'}=$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