241 |
|
$self->scramprojectdb()->addarea($tagname,$version,$area); |
242 |
|
} |
243 |
|
|
244 |
+ |
|
245 |
+ |
sub removeareafromDB |
246 |
+ |
{ |
247 |
+ |
############################################################### |
248 |
+ |
# removearefromDB() # |
249 |
+ |
############################################################### |
250 |
+ |
# modified : Thu Jun 14 10:46:22 2001 / SFA # |
251 |
+ |
# params : projectname, projectversion # |
252 |
+ |
# : # |
253 |
+ |
# : # |
254 |
+ |
# : # |
255 |
+ |
# function : Remove project <projectname> from DB file. # |
256 |
+ |
# : # |
257 |
+ |
# : # |
258 |
+ |
############################################################### |
259 |
+ |
my $self=shift; |
260 |
+ |
my $projname=shift; |
261 |
+ |
my $version=shift; |
262 |
+ |
|
263 |
+ |
# -- Remove from the DB: |
264 |
+ |
$self->scramprojectdb()->removearea($projname,$version); |
265 |
+ |
} |
266 |
+ |
|
267 |
+ |
|
268 |
|
sub spawnversion |
269 |
|
{ |
270 |
|
my $self=shift; |