[AppWrap-cvs] AppWrap/Apache AW_User.pm,1.7,1.8
Status: Beta
Brought to you by:
planetman
From: <pla...@us...> - 2002-12-05 04:03:00
|
Update of /cvsroot/appwrap/AppWrap/Apache In directory sc8-pr-cvs1:/tmp/cvs-serv10868 Modified Files: AW_User.pm Log Message: warnings, comments Index: AW_User.pm =================================================================== RCS file: /cvsroot/appwrap/AppWrap/Apache/AW_User.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** AW_User.pm 1 Dec 2002 01:17:04 -0000 1.7 --- AW_User.pm 5 Dec 2002 04:02:56 -0000 1.8 *************** *** 15,18 **** --- 15,19 ---- use strict; use warnings; + no warnings qw(redefine); use AppWrap qw(%config); use Apache::AppWrap::Subs qw($dbh $HNL); *************** *** 29,33 **** use Apache::File (); ! $Apache::AW_User::VERSION = "0.04"; # 30Nov02. &make_download_catalyst links display nicer with # non-breaking spaces. --- 30,34 ---- use Apache::File (); ! $Apache::AW_User::VERSION = "0.05"; # 30Nov02. &make_download_catalyst links display nicer with # non-breaking spaces. *************** *** 1437,1441 **** # load up the base data into a ref my $p_ref = get_dashboard_data($opts); ! $test = scalar(@$p_ref) if $p_ref; #$log->debug("\ndashboard_body: got $test rows."); --- 1438,1442 ---- # load up the base data into a ref my $p_ref = get_dashboard_data($opts); ! #$test = scalar(@$p_ref) if $p_ref; #$log->debug("\ndashboard_body: got $test rows."); *************** *** 1479,1483 **** # get the history hash and pass it to %opts. $opts->{history} ||= Apache::AppWrap::Subs::get_history($opts); ! # call paginator to set up the table my ($return, $total_rows) = Apache::AppWrap::Pager::paginator ($opts, $src); foreach (@$return) { --- 1480,1485 ---- # get the history hash and pass it to %opts. $opts->{history} ||= Apache::AppWrap::Subs::get_history($opts); ! # call paginator to set up the table. dashboard soesn't ! # use $total_rows. my ($return, $total_rows) = Apache::AppWrap::Pager::paginator ($opts, $src); foreach (@$return) { |