| 86 |
|
my $self=shift; |
| 87 |
|
my $area=shift; |
| 88 |
|
|
| 89 |
< |
# -- initialise |
| 89 |
> |
# -- initialise |
| 90 |
> |
print "Initialising setup procedure......","\n"; |
| 91 |
|
$self->_allprojectinitsearcher(); |
| 92 |
|
|
| 93 |
|
# -- create a new toolbox object |
| 242 |
|
$self->scramprojectdb()->addarea($tagname,$version,$area); |
| 243 |
|
} |
| 244 |
|
|
| 245 |
+ |
|
| 246 |
+ |
sub removeareafromDB |
| 247 |
+ |
{ |
| 248 |
+ |
############################################################### |
| 249 |
+ |
# removearefromDB() # |
| 250 |
+ |
############################################################### |
| 251 |
+ |
# modified : Thu Jun 14 10:46:22 2001 / SFA # |
| 252 |
+ |
# params : projectname, projectversion # |
| 253 |
+ |
# : # |
| 254 |
+ |
# : # |
| 255 |
+ |
# : # |
| 256 |
+ |
# function : Remove project <projectname> from DB file. # |
| 257 |
+ |
# : # |
| 258 |
+ |
# : # |
| 259 |
+ |
############################################################### |
| 260 |
+ |
my $self=shift; |
| 261 |
+ |
my $projname=shift; |
| 262 |
+ |
my $version=shift; |
| 263 |
+ |
|
| 264 |
+ |
# -- Remove from the DB: |
| 265 |
+ |
$self->scramprojectdb()->removearea($projname,$version); |
| 266 |
+ |
} |
| 267 |
+ |
|
| 268 |
+ |
|
| 269 |
|
sub spawnversion |
| 270 |
|
{ |
| 271 |
+ |
############################################################### |
| 272 |
+ |
# spawnversion # |
| 273 |
+ |
############################################################### |
| 274 |
+ |
# modified : Fri Aug 10 15:42:08 2001 / SFA # |
| 275 |
+ |
# params : # |
| 276 |
+ |
# : # |
| 277 |
+ |
# : # |
| 278 |
+ |
# : # |
| 279 |
+ |
# function : Check for version of scram to run, and run it. # |
| 280 |
+ |
# : # |
| 281 |
+ |
# : # |
| 282 |
+ |
############################################################### |
| 283 |
+ |
|
| 284 |
|
my $self=shift; |
| 285 |
|
my $version=shift; |
| 286 |
|
my $rv=0; |
