From 071a33b664171cfb1da52f8492f23849ebc30086 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 17 Jan 2006 16:58:36 +0000 Subject: [PATCH] removing unused scripts --- stats.print.pl | 169 ------------------------------------------------ stats.screen.pl | 167 ----------------------------------------------- 2 files changed, 336 deletions(-) delete mode 100755 stats.print.pl delete mode 100755 stats.screen.pl diff --git a/stats.print.pl b/stats.print.pl deleted file mode 100755 index 30ab529004..0000000000 --- a/stats.print.pl +++ /dev/null @@ -1,169 +0,0 @@ -#!/usr/bin/perl - -use strict; -use CGI; -use C4::Output; -use HTML::Template; -use C4::Auth; -use C4::Interface::CGI::Output; -use C4::Context; -use Date::Manip; -use C4::Stats; -use Text::CSV_XS; -&Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005 - -my $csv = Text::CSV_XS->new( - { - 'quote_char' => '"', - 'escape_char' => '"', - 'sep_char' => ',', - 'binary' => 1 - } -); - -my $input=new CGI; -my $time=$input->param('time'); - -my @loop1; -my @loop2; -my $date; -my $date2; -if ($time eq 'yesterday'){ - $date=ParseDate('yesterday'); - $date2=ParseDate('today'); -} -if ($time eq 'today'){ - $date=ParseDate('today'); - $date2=ParseDate('tomorrow'); -} -if ($time eq 'daybefore'){ - $date=ParseDate('2 days ago'); - $date2=ParseDate('yesterday'); -} -if ($time eq 'month') { - $date = ParseDate('1 month ago'); - $date2 = ParseDate('today'); - -} -if ($time=~ /\//){ - $date=ParseDate($time); - $date2=ParseDateDelta('+ 1 day'); - $date2=DateCalc($date,$date2); -} - -if ($time eq ''){ - $date=ParseDate('today'); - $date2=ParseDate('tomorrow'); -} - - -my $date=UnixDate($date,'%Y-%m-%d'); -my $date2=UnixDate($date2,'%Y-%m-%d'); - -#warn "MASON: DATE: $date, $date2"; - -#get a list of every payment -my @payments=TotalPaid($date,$date2); - -my $count=@payments; -# print "MASON: number of payments=$count\n"; - -my $i=0; -my $totalcharges=0; -my $totalcredits=0; -my $totalpaid=0; -my $totalwritten=0; - -# lets get a a list of all individual item charges paid for by that payment -while ($i<$count ){ - - my $count; - my @charges; - - if ($payments[$i]{'type'} ne 'writeoff'){ # lets ignore writeoff payments!. - @charges=getcharges($payments[$i]{'borrowernumber'}, $payments[$i]{'timestamp'}, $payments[$i]{'proccode'}); - $totalcharges++; - $count=@charges; - - # getting each of the charges and putting them into a array to be printed out - #this loops per charge per person - for (my $i2=0;$i2<$count;$i2++){ - - my $hour=substr($payments[$i]{'timestamp'},8,2); - my $min=substr($payments[$i]{'timestamp'},10,2); - my $sec=substr($payments[$i]{'timestamp'},12,2); - my $time="$hour:$min:$sec"; - my $time2="$payments[$i]{'date'}"; - my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'}); - - my @rows1 = ($branch, # lets build up a row - $payments[$i]->{'datetime'}, - $payments[$i]->{'surname'}, - $payments[$i]->{'firstname'}, - $charges[$i2]->{'description'}, - $charges[$i2]->{'accounttype'}, - sprintf("%.2f", $charges[$i2]->{'amount'}), # rounding amounts to 2dp - $payments[$i]->{'type'}, - $payments[$i]->{'value'}); - - push (@loop1, \@rows1); - } - } else { - ++$totalwritten; - } - $i++; #increment the while loop - $totalpaid = $totalpaid + $payments[$i]->{'value'}; -} - -#get credits and append to the bottom of payments -my @credits=getcredits($date,$date2); - -my $count=@credits; -my $i=0; - -while ($i<$count ){ - - my @rows2 = ($credits[$i]->{'branchcode'}, - $credits[$i]->{'date'}, - $credits[$i]->{'surname'}, - $credits[$i]->{'firstname'}, - $credits[$i]->{'description'}, - $credits[$i]->{'accounttype'}, - $credits[$i]->{'amount'}); - - push (@loop2, \@rows2); - $i++; - $totalcredits = $totalcredits + $credits[$i]->{'amount'}; -} - -#takes off first char minus sign "-100.00" -$totalcredits = substr($totalcredits, 1); - -print $input->header( - -type => 'application/vnd.ms-excel', - -attachment => "moo.csv", -); -print "Branch, Datetime, Surame, Firstnames, Description, Type, Invoice amount, Payment type, Payment Amount\n"; - - -for my $row ( @loop1 ) { - - $csv->combine(@$row); - my $string = $csv->string; - print $string, "\n"; -} - -print ",,,,,,,\n"; - -for my $row ( @loop2 ) { - - $csv->combine(@$row); - my $string = $csv->string; - print $string, "\n"; -} - -print ",,,,,,,\n"; -print ",,,,,,,\n"; -print ",,Total Amount Paid, $totalpaid\n"; -print ",,Total Number Written, $totalwritten\n"; -print ",,Total Amount Credits, $totalcredits\n"; diff --git a/stats.screen.pl b/stats.screen.pl deleted file mode 100755 index a5143c1252..0000000000 --- a/stats.screen.pl +++ /dev/null @@ -1,167 +0,0 @@ -#!/usr/bin/perl - -use strict; -use CGI; -use C4::Output; -use HTML::Template; -use C4::Auth; -use C4::Interface::CGI::Output; -use C4::Context; -use Date::Manip; -use C4::Stats; -use Data::Dumper; - -&Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005 - -my $input=new CGI; -my $time=$input->param('time'); -my $time2=$input->param('time2'); - - -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "stats_screen.tmpl", - query => $input, - type => "intranet", - authnotrequired => 1, - flagsrequired => {borrowers => 1}, - debug => 1, - }); - -my $date; -my $date2; -if ($time eq 'yesterday'){ - $date=ParseDate('yesterday'); - $date2=ParseDate('today'); -} -if ($time eq 'today'){ - $date=ParseDate('today'); - $date2=ParseDate('tomorrow'); -} -if ($time eq 'daybefore'){ - $date=ParseDate('2 days ago'); - $date2=ParseDate('yesterday'); -} -if ($time eq 'month') { - $date = ParseDate('1 month ago'); - $date2 = ParseDate('today'); - -} -if ($time=~ /\//){ - $date=ParseDate($time); - $date2=ParseDateDelta('+ 1 day'); - $date2=DateCalc($date,$date2); -} -# if time is blank -if ($time eq ''){ - $date=ParseDate('today'); - $date2=ParseDate('tomorrow'); -} - -# if script is called with a start and finsh date range... -if ($time ne '' && $time2 ne ''){ - $date=ParseDate($time); - $date2=ParseDate($time2); -} - - -my $date=UnixDate($date,'%Y-%m-%d'); -my $date2=UnixDate($date2,'%Y-%m-%d'); -warn "MASON: TIME: $time, $time2"; -warn "MASON: DATE: $date, $date2"; - -#get a list of every payment -my @payments=TotalPaid($date,$date2); - - -my $count=@payments; -# print "MASON: number of payments=$count\n"; - -my $i=0; -my $totalcharges=0; -my $totalcredits=0; -my $totalpaid=0; -my $totalwritten=0; -my @loop1; -my @loop2; - - -# lets get a a list of all individual item charges paid for by that payment -while ($i<$count ){ - - my $count; - my @charges; - - - if ($payments[$i]{'type'} ne 'writeoff'){ - -# warn Dumper $payments[$i]; - - @charges=getcharges($payments[$i]{'borrowernumber'}, $payments[$i]{'timestamp'}, $payments[$i]{'proccode'}); - $totalcharges++; - $count=@charges; - - # getting each of the charges and putting them into a array to be printed out - #this loops per charge per person - for (my $i2=0;$i2<$count;$i2++){ - my $hour=substr($payments[$i]{'timestamp'},8,2); - my $min=substr($payments[$i]{'timestamp'},10,2); - my $sec=substr($payments[$i]{'timestamp'},12,2); - my $time="$hour:$min:$sec"; - my $time2="$payments[$i]{'date'}"; - my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'}); - - # lets build up a row - my %rows1 = (branch => $branch, - datetime => $payments[$i]->{'datetime'}, - surname => $payments[$i]->{'surname'}, - firstname => $payments[$i]->{'firstname'}, - description => $charges[$i2]->{'description'}, - accounttype => $charges[$i2]->{'accounttype'}, - amount => sprintf("%.2f", $charges[$i2]->{'amount'}), # rounding amounts to 2dp - type => $payments[$i]->{'type'}, - value => sprintf("%.2f", $charges[$i2]->{'type'})); # rounding amounts to 2dp - - push (@loop1, \%rows1); - } - } else { - ++$totalwritten; - } - $i++; #increment the while loop - $totalpaid = $totalpaid + $payments[$i]->{'value'}; -} - -#get credits and append to the bottom of payments -my @credits=getcredits($date,$date2); - -my $count=@credits; -my $i=0; - -while ($i<$count ){ - - my %rows2 = (creditbranch => $credits[$i]->{'branchcode'}, - creditdate => $credits[$i]->{'date'}, - creditsurname => $credits[$i]->{'surname'}, - creditfirstname => $credits[$i]->{'firstname'}, - creditdescription => $credits[$i]->{'description'}, - creditaccounttype => $credits[$i]->{'accounttype'}, - creditamount => sprintf("%.2f", $credits[$i]->{'amount'}) - ); - - push (@loop2, \%rows2); - $i++; #increment the while loop - $totalcredits = $totalcredits + $credits[$i]->{'amount'}; - ; - -} - -#takes off first char minus sign "-100.00" -$totalcredits = substr($totalcredits, 1); - -$template->param( loop1 => \@loop1, - loop2 => \@loop2, - totalpaid => $totalpaid, - totalcredits => $totalcredits, - totalwritten => $totalwritten ); - -output_html_with_http_headers $input, $cookie, $template->output; - -- 2.39.5