- Timestamp:
- 2014-12-11T18:45:10+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/perllib/Greenstone/Package.pm
r29583 r29595 8 8 use File::Copy 'cp'; 9 9 use POSIX 'uname'; 10 use Storable 'dclone'; 10 11 use Greenstone::Helpers; 11 12 use base 'Exporter'; … … 127 128 sub add_package { 128 129 my $self = shift; 130 131 # Add the (relatively) static files 129 132 $self->add ("managers/$self->{config}->{MANAGER}", $self->{output}); 133 134 if (exists $self->{config}->{SUB_PACKAGES}) { 135 my $packages = []; 136 for my $subpackage (sort @{$self->{config}->{SUB_PACKAGES}}) { 137 my $config = {}; 138 for my $key (keys %{$self->{config}}) { 139 if ($key =~ /^${subpackage}_(.*)$/) { 140 # print "setting '$1' to '$key' = '$self->{config}->{$key}'\n"; 141 $config->{$1} = $self->{config}->{$key}; 142 } 143 } 144 # hashdump $self->{config}; 145 push @{$packages}, $config; 146 } 147 $self->add_package_impl ($packages); 148 } else { 149 $self->add_package_impl; 150 } 130 151 } 131 152
Note:
See TracChangeset
for help on using the changeset viewer.