[Bps-public-commit] r10064 - SVKUI/trunk/lib/SVKUI/Model

clsung at bestpractical.com clsung at bestpractical.com
Mon Dec 24 09:01:50 EST 2007


Author: clsung
Date: Mon Dec 24 09:01:49 2007
New Revision: 10064

Modified:
   SVKUI/trunk/lib/SVKUI/Model/Project.pm

Log:
- fix local repos path

Modified: SVKUI/trunk/lib/SVKUI/Model/Project.pm
==============================================================================
--- SVKUI/trunk/lib/SVKUI/Model/Project.pm	(original)
+++ SVKUI/trunk/lib/SVKUI/Model/Project.pm	Mon Dec 24 09:01:49 2007
@@ -150,6 +150,7 @@
 	$self->_set(column => 'trunkpath', value => $prop{'svk:project:'.$matched_project.':path-trunk'});
 	$self->_set(column => 'branchespath', value => $prop{'svk:project:'.$matched_project.':path-branches'});
 	$self->_set(column => 'tagspath', value => $prop{'svk:project:'.$matched_project.':path-tags'});
+	$self->_set(column => 'localrepos', value => '/local/'.$matched_project);
 	$path = '//mirror'.$path;
 	warn $path . " is changed";
     }
@@ -228,6 +229,7 @@
     my $self = shift;
     my $localrepos = $self->repospath;
     $localrepos =~ s#^//mirror/#//local/#;
+    $localrepos = $self->localrepos if $self->localrepos;
     warn 'svk copy '.$self->repospath. ' to ' . $localrepos;
     if (SVKUI->_svkcmd('copy', '-p',"-m 'local branch'", $self->repospath, $localrepos)) {
 	warn 'svk copy '.$self->repospath. ' to ' . $localrepos.' fail!';



More information about the Bps-public-commit mailing list