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}; |
148 |
|
use clientfile; |
149 |
|
$ENV{SCRAM_ProjReqsDoc}= |
150 |
|
$currentdir."/".$$hashref{'name'}; |
151 |
+ |
print ENVIRONMENT 'SCRAM_ProjReqsDoc='.$ENV{SCRAM_ProjReqsDoc}."\n"; |
152 |
|
# &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'}, |
153 |
|
# $scramdir."/".$$hashref{'name'}) ; |
154 |
|
if ( $switch->context("project") ) { |