[AppWrap-cvs] AppWrap/Apache/AppWrap Audit.pm,1.8,1.9
Status: Beta
Brought to you by:
planetman
From: <pla...@us...> - 2003-01-21 08:27:22
|
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); |