checkbox in asset manager for clearPackageFlag

This commit is contained in:
Paul Driver 2010-06-01 12:25:49 -07:00
parent c5bddbd95c
commit 3a9c3e5d9a
3 changed files with 12 additions and 1 deletions

View file

@ -357,7 +357,10 @@ sub www_importPackage {
my $error = "";
if ($storage->getFileExtension($storage->getFiles->[0]) eq "wgpkg") {
$error = $self->importPackage($storage, {inheritPermissions => $inheritPermissions});
$error = $self->importPackage($storage, {
inheritPermissions => $inheritPermissions,
clearPackageFlag => $self->session->form->process('clearPackageFlag'),
});
}
if (!blessed $error) {
my $i18n = WebGUI::International->new($self->session, "Asset");

View file

@ -475,6 +475,8 @@ EOHTML
. WebGUI::Form::hidden($session, {name=>"func", value=>"importPackage"})
. '<div><input type="file" name="packageFile" size="30" style="font-size: 10px;" /></div>'
. '<div style="font-size: 10px">'
. WebGUI::Form::checkbox($session, { label => $i18n->get('clear package flag'), checked => 0, name => 'clearPackageFlag', value => 1 })
. '<br />'
. WebGUI::Form::checkbox($session, { label => $i18n->get('inherit parent permissions'), checked => 1, name => 'inheritPermissions', value => 1 })
. ' &nbsp; ' . WebGUI::Form::submit($session, { value=>$i18n->get("import"), 'extras' => ' ' })
. '</div>'

View file

@ -1271,6 +1271,12 @@ Couldn't open %-s because %-s <br />
context => q{Error message in Asset.pm},
},
'clear package flag' => {
message => q{Clear package flag},
lastUpdate => 1275419384,
context => q{Package import option in admin console},
},
'need a userId parameter' => {
message => q{need a userId parameter},
lastUpdated => 0,