| 
 | |||||||||||||||||||
| '.
            ' '. uc(substr($section->{'pretotal'},0,1)). ''. uc(substr($section->{'pretotal'},1)). ''. ' '. ' | 
| ';
          if ($section->{'description'}) {
            $OUT .=
              ' '. uc(substr($section->{'description'},0,1)). ''. uc(substr($section->{'description'},1)). ''. ' '; }else{ $OUT .= ' CHARGES'. ' '; } $OUT .= ' | 
| Ref'. ' | Description'. ( $unitprices ? ' | Unit Price'. ' | Quantity' : '' ). ' | Amount'; } $OUT .= ' | |
|---|---|---|---|---|---|
| '. ( $line->{'ref'} ne $lastref ? $line->{'ref'} : '' ). ''. ' | '. $line->{'description'}. ''. ( $unitprices ? ' | '. $line->{'unit_amount'}. ''. ' | '. $line->{'quantity'}. '' : '' ). ' | '. $line->{'amount'}. ''; } $OUT .= ' | |
| ' : '>';
              $OUT .= ' 
 | |||||
| ); if ($section->{total_generator}) { $OUT .= &{$section->{total_generator}}($section); } else { $OUT .= qq( | ' : '>' ). $section->{'description'}. ' Total'. qq( | ). $section->{'subtotal'}. ''; } $OUT .= ' | |||
| ';
          $OUT .=
            ' '. $section->{'posttotal'}. ''. ' '; $OUT .= ' | |||||
| ). qq( | ' : '>' ). $line->{'total_item'}. ''. qq( | ). $line->{'total_amount'}. ''; } $OUT .= ' | |||
><%= $footer %>