misc/fines2.pl

   1 #!/usr/bin/perl
   2
   3 #script to keep total of number of issues;
   4
   5 use C4::Database;
   6 use C4::Search;
   7 use C4::Circulation::Circ2;
   8 use C4::Circulation::Fines;
   9 use Date::Manip;
  10
  11 open (FILE,'>/tmp/fines') || die;
  12 my ($count,$data)=Getoverdues();
  13 #print $count;
  14 my $count2=0;
  15 #$count=1000;
  16 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
  17 $mon++;
  18 $year=$year+1900;
  19 my $date=Date_DaysSince1BC($mon,$mday,$year);
  20 #my $date=Date_DaysSince1BC(1,24,2002);
  21 my $bornum;
  22 #print $date;
  23 my $total=0;
  24 my $max=5;
  25 #my $bornum2=$data->[0]->{'borrowernumber'};
  26
  27 my $i2=1;
  28 for (my $i=0;$i<$count;$i++){
  29   my @dates=split('-',$data->[$i]->{'date_due'});
  30   my $date2=Date_DaysSince1BC($dates[1],$dates[2],$dates[0]);
  31   my $due="$dates[2]/$dates[1]/$dates[0]";
  32   my $borrower=BorType($data->[$i]->{'borrowernumber'});
  33   if ($date2 <= $date){
  34     $count2++;
  35     my $difference=$date-$date2;
  36     my ($amount,$type,$printout)=CalcFine($data->[$i]->{'itemnumber'},$borrower->{'categorycode'},$difference);
  37     if ($amount > $max){
  38       $amount=$max;
  39     }
  40     if ($amount > 0){
  41       UpdateFine($data->[$i]->{'itemnumber'},$data->[$i]->{'borrowernumber'},$amount,$type,$due);
  42 #      if ($amount ==5){
  43 #             marklost();
  44 #      }
  45        if ($borrower->{'categorycode'} eq 'C'){
  46          my $dbh=C4Connect;
  47          my $query="Select * from borrowers where borrowernumber='$borrower->{'guarantor'}'";
  48          my $sth=$dbh->prepare($query);
  49          $sth->execute;
  50          my $tdata=$sth->fetchrow_hashref;
  51          $sth->finish;
  52          $dbh->disconnect;
  53          $borrower->{'phone'}=$tdata->{'phone'};
  54        }
  55        print "$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n";
  56     } else {
  57 #      print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 fine\n";
  58     }
  59     if ($difference >= 28){
  60       my $borrower=BorType($data->[$i]->{'borrowernumber'});
  61       if ($borrower->{'cardnumber'} ne ''){
  62         my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
  63         my $dbh=C4Connect;
  64         my $env;
  65         my $accountno=C4::Circulation::Circ2::getnextacctno($env,$data->[$i]->{'borrowernumber'},$dbh);
  66         my $item=itemnodata($env,$dbh,$data->[$i]->{'itemnumber'});
  67         if ($item->{'itemlost'} ne '1' && $item->{'itemlost'} ne '2' ){
  68           $item->{'title'}=~ s/\'/\\'/g;
  69           my $query="Insert into accountlines
  70           (borrowernumber,itemnumber,accountno,date,amount,
  71           description,accounttype,amountoutstanding) values
  72           ($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'},
  73           '$accountno',now(),'$cost','Lost item $item->{'title'} $item->{'barcode'}','L','$cost')";
  74           my $sth=$dbh->prepare($query);
  75           $sth->execute;
  76           $sth->finish;
  77           $query="update items set itemlost=2 where itemnumber='$data->[$i]->{'itemnumber'}'";
  78           $sth=$dbh->prepare($query);
  79           $sth->execute;
  80           $sth->finish;
  81         } else {
  82
  83         }
  84         $dbh->disconnect;
  85       }
  86     }
  87
  88   }
  89 }
  90 close FILE;