[Openinteract-commits] CVS: OpenInteract/OpenInteract PackageRepository.pm,1.4,1.5

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv26350/OpenInteract

Modified Files:
	PackageRepository.pm 
Log Message:
cosmetic


Index: PackageRepository.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/PackageRepository.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** PackageRepository.pm	2001/07/11 12:26:27	1.4
--- PackageRepository.pm	2001/10/11 15:39:26	1.5
***************
*** 44,48 ****
      $C->{field} = {};
      foreach my $field ( @{ $C->{field_list} } ) {
!         $C->{field}->{ $field } = $count;
          $count++;
      }
--- 44,48 ----
      $C->{field} = {};
      foreach my $field ( @{ $C->{field_list} } ) {
!         $C->{field}{ $field } = $count;
          $count++;
      }
***************
*** 70,73 ****
--- 70,82 ----
  
  
+ # Backup the repository
+ 
+ sub backup {
+     my ( $self, $p ) = @_;
+     my $extension = $p->{extension} || 'backup';
+     $extension = ".$extension" unless ( $extension =~ /^\./ );
+ }
+ 
+ 
  # Ensure that the base_dir, name and version properties are defined
  # for every package in the repository. Also remove each package's
***************
*** 78,92 ****
      foreach my $pkg_key ( keys %{ $self } ) {
          next if ( $pkg_key eq META_KEY );
!         unless ( -d $self->{ $pkg_key }->{base_dir} ) {
              warn( "Cannot save package repository: the OpenInteract base installation ",
                    "directory for package ($pkg_key) is not specified or does not exist!" );
              return undef;
          }
!         unless ( $self->{ $pkg_key }->{name} and $self->{ $pkg_key }->{version} ) {
              warn( "Cannot save package repository: both the package 'name' and 'version' ",
                    "must be specified for package ($pkg_key) before saving.\n" );
              return undef;
          }
!         delete $self->{ $pkg_key }->{repository};
      }
      return 1;
--- 87,101 ----
      foreach my $pkg_key ( keys %{ $self } ) {
          next if ( $pkg_key eq META_KEY );
!         unless ( -d $self->{ $pkg_key }{base_dir} ) {
              warn( "Cannot save package repository: the OpenInteract base installation ",
                    "directory for package ($pkg_key) is not specified or does not exist!" );
              return undef;
          }
!         unless ( $self->{ $pkg_key }{name} and $self->{ $pkg_key }{version} ) {
              warn( "Cannot save package repository: both the package 'name' and 'version' ",
                    "must be specified for package ($pkg_key) before saving.\n" );
              return undef;
          }
!         delete $self->{ $pkg_key }{repository};
      }
      return 1;
***************
*** 120,124 ****
          next if ( $pkg_key eq META_KEY );
          DEBUG && _w( 1, "Setting repository in package key $pkg_key" );
!         $self->{ $pkg_key }->{repository} = $self;
      }
  }
--- 129,133 ----
          next if ( $pkg_key eq META_KEY );
          DEBUG && _w( 1, "Setting repository in package key $pkg_key" );
!         $self->{ $pkg_key }{repository} = $self;
      }
  }
***************
*** 190,194 ****
      foreach my $pkg_key ( keys %{ $self } ) {
          next unless ( ref $self->{ $pkg_key } eq 'HASH' );
!         if ( $self->{ $pkg_key }->{name} eq $name ) {
              push @match, $self->{ $pkg_key };
              DEBUG && _w( 1, "Found package $pkg_key; try to match up with package $name" );
--- 199,203 ----
      foreach my $pkg_key ( keys %{ $self } ) {
          next unless ( ref $self->{ $pkg_key } eq 'HASH' );
!         if ( $self->{ $pkg_key }{name} eq $name ) {
              push @match, $self->{ $pkg_key };
              DEBUG && _w( 1, "Found package $pkg_key; try to match up with package $name" );