cvs commit: p5ee/App-WorkQueue/lib/App/WorkQueue Repository.pm

cvsuser     06/02/07 06:34:10

  Modified:    App-WorkQueue/lib/App/WorkQueue Repository.pm
  Log:
  fixed print methods
  
  Revision  Changes    Path
  1.3       +13 -8     p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Repository.pm	7 Feb 2006 13:59:32 -0000	1.2
  +++ Repository.pm	7 Feb 2006 14:34:09 -0000	1.3
  @@ -368,12 +368,14 @@
   
   sub print {
       &App::sub_entry if ($App::trace);
  -    my ($self, $fh) = @_;
  +    my ($self, $fh, $no_db) = @_;
       $fh = \*STDOUT if (!$fh);
       print $fh "ENTRIES IN MEM:\n";
       $self->_print_entries_in_mem($fh);
  -    print $fh "ENTRIES IN DB:\n";
  -    $self->_print_entries_in_db($fh);
  +    if (!$no_db) {
  +        print $fh "ENTRIES IN DB:\n";
  +        $self->_print_entries_in_db($fh);
  +    }
       print $fh "CONSTRAINTS:\n";
       $self->print_constraints($fh);
       print $fh "STATUS COUNTS:\n";
  @@ -388,7 +390,7 @@
       my ($self, $fh, $format, $columns) = @_;
       $fh = \*STDOUT if (!$fh);
       $self->_print_entries_in_mem($fh, $format, $columns);
  -    $self->_print_entries_in_db($fh, $format, $columns);
  +    #$self->_print_entries_in_db($fh, $format, $columns);
       &App::sub_exit() if ($App::trace);
   }
   
  @@ -402,7 +404,12 @@
       $self->_sort_spec_to_options(\%options);
       my $rows = $db->get_rows($self->{table}, {}, $columns, \%options);
       foreach my $row (@$rows) {
  -        print $fh "   [", join("|",@$row), "]\n";
  +        if ($format) {
  +            printf $fh $format, @$row;
  +        }
  +        else {
  +            print $fh "   [", join("|",@$row), "]\n";
  +        }
       }
       &App::sub_exit() if ($App::trace);
   }
  @@ -421,5 +428,3 @@
   
   1;
   
  -__END__
  -