51 |
|
|
52 |
|
$switch->checkparam($hashref, $name, "name"); |
53 |
|
$switch->checkparam($hashref, $name, "version"); |
54 |
< |
$ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'}; |
54 |
> |
if ( ! defined $ENV{devareaname} ) { |
55 |
> |
$ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'}; |
56 |
> |
} |
57 |
> |
else { |
58 |
> |
$ENV{LOCALTOP}=&cwd."/".$ENV{devareaname}; |
59 |
> |
} |
60 |
|
$scramdir=$ENV{LOCALTOP}."/.SCRAM"; |
61 |
|
&AddDir::adddir($scramdir); |
62 |
|
chdir $ENV{LOCALTOP}; |
103 |
|
|
104 |
|
$hashref=$switch->SetupValueHash( \@vars ); |
105 |
|
$switch->checkparam($hashref, $name, "dir"); |
106 |
+ |
$$hashref{'dir'}=~s/`//g; |
107 |
|
print ENVIRONMENT 'projconfigdir='.$$hashref{'dir'}."\n"; |
108 |
|
$ENV{SCRAM_BootStrapFiles}=$ENV{SCRAM_BootStrapFiles}.":". |
109 |
|
$ENV{LOCALTOP}."/".$$hashref{'dir'}; |
149 |
|
use clientfile; |
150 |
|
$ENV{SCRAM_ProjReqsDoc}= |
151 |
|
$currentdir."/".$$hashref{'name'}; |
152 |
+ |
print ENVIRONMENT 'SCRAM_ProjReqsDoc='.$ENV{SCRAM_ProjReqsDoc}."\n"; |
153 |
|
# &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'}, |
154 |
|
# $scramdir."/".$$hashref{'name'}) ; |
155 |
|
if ( $switch->context("project") ) { |