[Koha-cvs] CVS: koha/C4 Accounts.pm,1.6,1.7

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv26307

Modified Files:
        Accounts.pm 
Log Message:
Removed trailing whitespace that was breaking the POD.


Index: Accounts.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Accounts.pm 5 Oct 2002 09:47:52 -0000       1.6
--- Accounts.pm 9 Oct 2002 15:25:03 -0000       1.7
***************
*** 1,4 ****
--- 1,5 ----
  package C4::Accounts; #assumes C4/Accounts
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 29,36 ****
  use C4::Interface::AccountsCDK;
  use vars qw($VERSION @ISA @EXPORT);
!   
  # set the version for version checking
  $VERSION = 0.01;
!     
  =head1 NAME
  
--- 30,37 ----
  use C4::Interface::AccountsCDK;
  use vars qw($VERSION @ISA @EXPORT);
! 
  # set the version for version checking
  $VERSION = 0.01;
! 
  =head1 NAME
  
***************
*** 52,56 ****
  
  =cut
!     
  @ISA = qw(Exporter);
  @EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno);
--- 53,57 ----
  
  =cut
! 
  @ISA = qw(Exporter);
  @EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno);
***************
*** 95,99 ****
    #  pause();
    return($total);
! }    
  
  # XXX - POD. Need to figure out C4/Interface/AccountsCDK.pm first,
--- 96,100 ----
    #  pause();
    return($total);
! }
  
  # XXX - POD. Need to figure out C4/Interface/AccountsCDK.pm first,
***************
*** 112,118 ****
    $sth->finish();
    #get borrower information
!   $sth=$dbh->prepare("Select * from accountlines where 
!   borrowernumber=$bornumber and amountoutstanding<>0 order by date");   
!   $sth->execute;     
    #display account information
    &clearscreen();
--- 113,119 ----
    $sth->finish();
    #get borrower information
!   $sth=$dbh->prepare("Select * from accountlines where
!   borrowernumber=$bornumber and amountoutstanding<>0 order by date");
!   $sth->execute;
    #display account information
    &clearscreen();
***************
*** 139,143 ****
    #get amount paid and update database
    my ($data,$reason)=
!     &accountsdialog($env,"Payment Entry",$borrower,address@hidden,$total); 
    if ($data>0) {
      &recordpayment($env,$bornumber,$dbh,$data);
--- 140,144 ----
    #get amount paid and update database
    my ($data,$reason)=
!     &accountsdialog($env,"Payment Entry",$borrower,address@hidden,$total);
    if ($data>0) {
      &recordpayment($env,$bornumber,$dbh,$data);
***************
*** 163,167 ****
    my $nextaccntno = getnextacctno($env,$bornumber,$dbh);
    # get lines with outstanding amounts to offset
!   my $query = "select * from accountlines 
    where (borrowernumber = '$bornumber') and (amountoutstanding<>0)
    order by date";
--- 164,168 ----
    my $nextaccntno = getnextacctno($env,$bornumber,$dbh);
    # get lines with outstanding amounts to offset
!   my $query = "select * from accountlines
    where (borrowernumber = '$bornumber') and (amountoutstanding<>0)
    order by date";
***************
*** 183,187 ****
       $usth->execute;
       $usth->finish;
!      $updquery = "insert into accountoffsets 
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
--- 184,188 ----
       $usth->execute;
       $usth->finish;
!      $updquery = "insert into accountoffsets
       (borrowernumber, accountno, offsetaccount,  offsetamount)
       values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
***************
*** 197,202 ****
    #($bornumber,$nextaccntno,datetime('now'::abstime),0-$data,'Payment,thanks',
    #'Pay',0-$amountleft)";
!   $updquery = "insert into accountlines 
!   (borrowernumber, 
accountno,date,amount,description,accounttype,amountoutstanding)  
    values ($bornumber,$nextaccntno,now(),0-$data,'Payment,thanks',
    'Pay',0-$amountleft)";
--- 198,203 ----
    #($bornumber,$nextaccntno,datetime('now'::abstime),0-$data,'Payment,thanks',
    #'Pay',0-$amountleft)";
!   $updquery = "insert into accountlines
!   (borrowernumber, 
accountno,date,amount,description,accounttype,amountoutstanding)
    values ($bornumber,$nextaccntno,now(),0-$data,'Payment,thanks',
    'Pay',0-$amountleft)";
***************
*** 241,245 ****
    return($nextaccntno);
  }
!                       
  END { }       # module clean-up code here (global destructor)
  
--- 242,246 ----
    return($nextaccntno);
  }
! 
  END { }       # module clean-up code here (global destructor)