| 
      
            Lines 96-103
          while ( my $data = $sth->fetchrow_hashref ) {
      
      
        Link Here
      
     | 
  
        
          | 96 | 
              my $recv = $data->{'quantityreceived'}; | 
          96 | 
              my $recv = $data->{'quantityreceived'}; | 
        
        
          | 97 | 
              if ( $recv > 0 ) { | 
          97 | 
              if ( $recv > 0 ) { | 
        
        
          | 98 | 
                  my $rowtotal = $recv * $data->{'unitprice'}; | 
          98 | 
                  my $rowtotal = $recv * $data->{'unitprice'}; | 
        
          
            
              | 99 | 
                      $data->{'rowtotal'}  = sprintf( "%.2f", $rowtotal ); | 
              99 | 
                      $data->{'rowtotal'}  = $rowtotal; | 
            
            
              | 100 | 
                      $data->{'unitprice'} = sprintf( "%.2f", $data->{'unitprice'} ); | 
               | 
               | 
            
        
          | 101 | 
                  $subtotal += $rowtotal;  | 
          100 | 
                  $subtotal += $rowtotal;  | 
        
        
          | 102 | 
                  push @spent, $data;  | 
          101 | 
                  push @spent, $data;  | 
        
        
          | 103 | 
              }  | 
          102 | 
              }  | 
        
  
    | 
      
            Lines 115-121
          $sth->execute($bookfund);
      
      
        Link Here
      
     | 
  
        
          | 115 | 
          my @shipmentcosts;  | 
          114 | 
          my @shipmentcosts;  | 
        
        
          | 116 | 
          while (my $data = $sth->fetchrow_hashref) { | 
          115 | 
          while (my $data = $sth->fetchrow_hashref) { | 
        
        
          | 117 | 
              push @shipmentcosts, { | 
          116 | 
              push @shipmentcosts, { | 
        
          
            
              | 118 | 
                      shipmentcost => sprintf("%.2f", $data->{shipmentcost}), | 
              117 | 
                      shipmentcost => $data->{shipmentcost}, | 
            
        
          | 119 | 
                  invoicenumber => $data->{invoicenumber} | 
          118 | 
                  invoicenumber => $data->{invoicenumber} | 
        
        
          | 120 | 
              };  | 
          119 | 
              };  | 
        
        
          | 121 | 
              $total += $data->{shipmentcost}; | 
          120 | 
              $total += $data->{shipmentcost}; | 
        
  
    | 
      
            Lines 127-134
          while ( my $adj = $adjustments->next ){
      
      
        Link Here
      
     | 
  
        
          | 127 | 
              $total += $adj->adjustment;  | 
          126 | 
              $total += $adj->adjustment;  | 
        
        
          | 128 | 
          }  | 
          127 | 
          }  | 
        
        
          | 129 | 
           | 
          128 | 
           | 
        
            
              | 130 | 
              $total = sprintf( "%.2f", $total );  | 
               | 
               | 
            
            
              | 131 | 
               | 
            
        
          | 132 | 
          $template->param(  | 
          129 | 
          $template->param(  | 
        
        
          | 133 | 
              fund => $bookfund,  | 
          130 | 
              fund => $bookfund,  | 
        
        
          | 134 | 
              spent => \@spent,  | 
          131 | 
              spent => \@spent,  |