39 |
|
'file' => 'none', |
40 |
|
'file_starttag' => \&file_start |
41 |
|
}; |
42 |
< |
$filename=urlhandler::urlhandler($url); |
42 |
> |
$filename=urlhandler::urlhandler($url); |
43 |
|
$switch=Switcher->new($BootHash, $filename); |
44 |
|
$switch->parse(); |
45 |
|
} |
46 |
|
|
47 |
< |
sub Bootlocaltop($hashref) { |
47 |
> |
sub Bootlocaltop { |
48 |
|
my $hashref=shift; |
49 |
|
use Cwd; |
50 |
|
use Utilities::AddDir; |
102 |
|
push @dirstack, $ENV{LOCALTOP}."/".$$hashref{'dir'}; |
103 |
|
$currentdir=$ENV{LOCALTOP}."/".$$hashref{'dir'}; |
104 |
|
if ( $switch->context('project') ) { |
105 |
< |
print INSTALLFILE "<$name name=$$hashref{dir}>\n"; |
105 |
> |
print INSTALLFILE "<$name dir=$$hashref{dir}>\n"; |
106 |
|
} |
107 |
|
} |
108 |
|
sub config_endtag { |