can use the edit branch feature to set metadata properties

other bug fixes
This commit is contained in:
JT Smith 2005-08-05 16:19:55 +00:00
parent debd4e8c82
commit c287ab8a3e
6 changed files with 92 additions and 5 deletions

View file

@ -361,7 +361,7 @@ sub getAssetAdderLinks {
if ($@) {
WebGUI::ErrorHandler::error("Couldn't get UI level of ".$class." because ".$@);
} else {
next if ($uiLevel > $session{user}{uiLevel} || WebGUI::Grouping::isInGroup(3));
next if ($uiLevel > $session{user}{uiLevel} && !WebGUI::Grouping::isInGroup(3));
}
my $canAdd = eval{$class->canAdd()};
if ($@) {
@ -1087,6 +1087,11 @@ sub processPropertiesFromFormPost {
);
}
}
foreach my $form (keys %{$session{form}}) {
if ($form =~ /^metadata_(.*)$/) {
$self->updateMetaData($1,$session{form}{$form});
}
}
$data{title} = "Untitled" unless ($data{title});
$data{menuTitle} = $data{title} unless ($data{menuTitle});
unless ($data{url}) {