oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

all tests run individually

Browse source
This commit is contained in:
Doug Bell 2010-11-17 19:31:44 -06:00
parent 1866c593ea
commit 6931fd471e
25 changed files with 157 additions and 159 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Upgrade/File/wgpkg.pm
View file

@ -39,6 +39,7 @@ sub run {
(undef, undef, my $shortname) = File::Spec->splitpath($self->file);
$shortname =~ s/\.[^.]*$//;
$versionTag->set({name => "Upgrade to @{[$self->version]} - $shortname"});
$versionTag->setWorking;
my $package = $self->import_package($session, $self->file);
if (! $self->quiet) {
@ -56,6 +57,8 @@ sub import_package {
my $class = shift;
my ($session, $file) = @_;
my $versionTag = WebGUI::VersionTag->getWorking( $session, "nocreate" );
# Make a storage location for the package
my $storage = WebGUI::Storage->createTemp( $session );
$storage->addFileFromFilesystem( $file );
@ -67,6 +70,7 @@ sub import_package {
overwriteLatest => 1,
clearPackageFlag => 1,
setDefaultTemplate => 1,
tagId => ( $versionTag ? $versionTag->getId : undef ),
} );
}
catch {