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

[clsung at bestpractical.com]

Author: clsung
Date: Mon Dec 24 09:52:24 2007
New Revision: 10065

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

Log:
- thix fix previous commit

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:52:24 2007
@@ -150,7 +150,6 @@
 	$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";
     }
@@ -229,7 +228,7 @@
     my $self = shift;
     my $localrepos = $self->repospath;
     $localrepos =~ s#^//mirror/#//local/#;
-    $localrepos = $self->localrepos if $self->localrepos;
+    $localrepos = '//local/'.$self->name if $self->trunkpath;
     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!';