[AppWrap-cvs] AppWrap/Apache/AppWrap Audit.pm,1.8,1.9

[<pla...@us...>]

Update of /cvsroot/appwrap/AppWrap/Apache/AppWrap
In directory sc8-pr-cvs1:/tmp/cvs-serv27502

Modified Files:
	Audit.pm 
Log Message:
detected and flagged minor bug for later repair

Index: Audit.pm
===================================================================
RCS file: /cvsroot/appwrap/AppWrap/Apache/AppWrap/Audit.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Audit.pm	14 Jan 2003 08:35:22 -0000	1.8
--- Audit.pm	21 Jan 2003 08:27:18 -0000	1.9
***************
*** 78,83 ****
    my @final;
  
!   # store current record, after applying func_focus subs, in %record. There 
!   # should be code to flag any columns that changed.
    my %converts;
    my $ref;
--- 78,84 ----
    my @final;
  
!   # store current record, after applying func_focus subs, 
!   # in %record. There should be code to flag any columns 
!   # that changed.
    my %converts;
    my $ref;
***************
*** 119,123 ****
    # this list is the rows of historical data, in descending date order
    foreach my $date (sort { $b <=> $a } keys %record) {
!     # func_focus subs are expecting data to be in an arg called $row->{$column};
      my $row = $record{$date};
      foreach my $column (@$col_order) {
--- 120,125 ----
    # this list is the rows of historical data, in descending date order
    foreach my $date (sort { $b <=> $a } keys %record) {
!     # func_focus subs are expecting data to be in an arg 
! 	# called $row->{$column};
      my $row = $record{$date};
      foreach my $column (@$col_order) {
***************
*** 219,239 ****
    push @rows, $text . $HNL;
  
!   ######## left side links (vbar phase) #########
!   my $menu_func = $my_tables->{$table}{func_audit};
!   $menu_func ||= $my_defaults->{func_audit};
!   $menu_func ||= $my_defaults->{func_default};
!   # call functions if defined.  Functions return array of 
!   # to data wrapped in <td> tags
!   if ($menu_func) {
!     my @subs = split(/\s*;\s*/, $menu_func );
!     foreach (@subs) {
!       my $ref = eval $_;
!       if ($ref && scalar(@$ref)) {
! 	      push @{ $opts->{menuitems} }, join("", @$ref);
! 	  }
!     }
!   }
! 
! 	$opts->{Rows} = \@rows;
  
  	# comply with HEAD reques
--- 221,239 ----
    push @rows, $text . $HNL;
  
! 	######## left side links (vbar phase) #########
! 	my $menu_func = $my_tables->{$table}{func_audit};
! 	$menu_func ||= $my_defaults->{func_audit};
! 	$menu_func ||= $my_defaults->{func_default};
! 	# call functions if defined.  Functions return array of 
! 	# to data wrapped in <td> tags
! 	if ($menu_func) {
! 	my @subs = split(/\s*;\s*/, $menu_func );
! 	foreach (@subs) {
! 		my $ref = eval $_;
! 		if ($ref && scalar(@$ref)) {
! 				push @{ $opts->{menuitems} }, join("", @$ref);
! 			}
! 		}
! 	}
  
  	# comply with HEAD reques
***************
*** 242,245 ****
--- 242,246 ----
  		return OK;
  	}
+ 	$opts->{Rows} = \@rows;
  
  	Apache::AppWrap::Subs::Webify($opts);