X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FProject.pm;h=7b58a1009d5bc8461d1b84a17bfcb27ba239d79f;hb=75f06ef1cd56d531eb9ae086618bce3ff6aaa510;hp=8db0f865eb03fd7e799b9449ce0207e8c0f8ad68;hpb=1140ca8d56832ae529db0f353112ac192cdf9432;p=clearscm.git

diff --git a/lib/Clearcase/UCM/Project.pm b/lib/Clearcase/UCM/Project.pm
index 8db0f86..7b58a10 100644
--- a/lib/Clearcase/UCM/Project.pm
+++ b/lib/Clearcase/UCM/Project.pm
@@ -102,7 +102,7 @@ Returns:
     
   return $class; 
 } # new
-  
+
 sub name () {
   my ($self) = @_;
     
@@ -178,7 +178,7 @@ Returns:
 
   return $self->{pvob};
 } # pvob
-  
+
 sub create (;$) {
   my ($self, $opts) = @_;
 
@@ -270,8 +270,55 @@ Ouput from cleartool
 =cut
 
   return $Clearcase::CC->execute 
-    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->name);
-} # rmProject
+    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
+} # remove
+
+sub change($) {
+  my ($self, $opts) = @_;
+
+=pod
+
+=head2 change
+
+Changes UCM Project
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item opts
+
+Options
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item $status
+
+Status from cleartool
+
+=item @output
+
+Ouput from cleartool
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+  $opts ||= '';
+
+  return $Clearcase::CC->execute 
+    ("chproject $opts " . $self->{name} . "\@" . $self->{pvob}->name);
+} # change
 
 sub exists() {
   my ($self) = @_;