From: Nick J. <nje...@us...> - 2002-02-28 04:31:35
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv9306/lib/SandWeb Modified Files: Config.pm Log Message: * added delete_repo method Index: Config.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v retrieving revision 1.22 retrieving revision 1.23 diff -U2 -r1.22 -r1.23 --- Config.pm 18 Feb 2002 21:43:53 -0000 1.22 +++ Config.pm 28 Feb 2002 04:31:32 -0000 1.23 @@ -187,4 +187,11 @@ } +# delete existing repository +sub delete_repo { + my $self = shift; + my %args = @_; + my $name = $args{'name'}; + delete $self->{'repo'}->{$name}; +} # get/set repo_server |