Lines 176-181
sub _format_item_description {
Link Here
|
176 |
return $bibrec; |
176 |
return $bibrec; |
177 |
} |
177 |
} |
178 |
|
178 |
|
|
|
179 |
=head2 marc_record |
180 |
|
181 |
Missing POD for marc_record. |
182 |
|
183 |
=cut |
184 |
|
179 |
sub marc_record { |
185 |
sub marc_record { |
180 |
my $self = shift; |
186 |
my $self = shift; |
181 |
my $b = $self->{item_description}; |
187 |
my $b = $self->{item_description}; |
Lines 270-275
sub marc_record {
Link Here
|
270 |
return $bib; |
276 |
return $bib; |
271 |
} |
277 |
} |
272 |
|
278 |
|
|
|
279 |
=head2 corpcon |
280 |
|
281 |
Missing POD for corpcon. |
282 |
|
283 |
=cut |
284 |
|
273 |
sub corpcon { |
285 |
sub corpcon { |
274 |
my ( $self, $level ) = @_; |
286 |
my ( $self, $level ) = @_; |
275 |
my $test_these = { |
287 |
my $test_these = { |
Lines 303-308
sub corpcon {
Link Here
|
303 |
return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec ); |
315 |
return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec ); |
304 |
} |
316 |
} |
305 |
|
317 |
|
|
|
318 |
=head2 new_field |
319 |
|
320 |
Missing POD for new_field. |
321 |
|
322 |
=cut |
323 |
|
306 |
sub new_field { |
324 |
sub new_field { |
307 |
my ( $b, $tag_ind, @sfd_elem ) = @_; |
325 |
my ( $b, $tag_ind, @sfd_elem ) = @_; |
308 |
my @sfd; |
326 |
my @sfd; |
Lines 322-342
sub new_field {
Link Here
|
322 |
|
340 |
|
323 |
# Accessor methods to line data |
341 |
# Accessor methods to line data |
324 |
|
342 |
|
|
|
343 |
=head2 item_number_id |
344 |
|
345 |
Missing POD for item_number_id. |
346 |
|
347 |
=cut |
348 |
|
325 |
sub item_number_id { |
349 |
sub item_number_id { |
326 |
my $self = shift; |
350 |
my $self = shift; |
327 |
return $self->{item_number_id}; |
351 |
return $self->{item_number_id}; |
328 |
} |
352 |
} |
329 |
|
353 |
|
|
|
354 |
=head2 line_item_number |
355 |
|
356 |
Missing POD for line_item_number. |
357 |
|
358 |
=cut |
359 |
|
330 |
sub line_item_number { |
360 |
sub line_item_number { |
331 |
my $self = shift; |
361 |
my $self = shift; |
332 |
return $self->{line_item_number}; |
362 |
return $self->{line_item_number}; |
333 |
} |
363 |
} |
334 |
|
364 |
|
|
|
365 |
=head2 additional_product_ids |
366 |
|
367 |
Missing POD for additional_product_ids. |
368 |
|
369 |
=cut |
370 |
|
335 |
sub additional_product_ids { |
371 |
sub additional_product_ids { |
336 |
my $self = shift; |
372 |
my $self = shift; |
337 |
return $self->{additional_product_ids}; |
373 |
return $self->{additional_product_ids}; |
338 |
} |
374 |
} |
339 |
|
375 |
|
|
|
376 |
=head2 action_notification |
377 |
|
378 |
Missing POD for action_notification. |
379 |
|
380 |
=cut |
381 |
|
340 |
sub action_notification { |
382 |
sub action_notification { |
341 |
my $self = shift; |
383 |
my $self = shift; |
342 |
my $a = $self->{action_notification}; |
384 |
my $a = $self->{action_notification}; |
Lines 346-416
sub action_notification {
Link Here
|
346 |
return $a; |
388 |
return $a; |
347 |
} |
389 |
} |
348 |
|
390 |
|
|
|
391 |
=head2 item_description |
392 |
|
393 |
Missing POD for item_description. |
394 |
|
395 |
=cut |
396 |
|
349 |
sub item_description { |
397 |
sub item_description { |
350 |
my $self = shift; |
398 |
my $self = shift; |
351 |
return $self->{item_description}; |
399 |
return $self->{item_description}; |
352 |
} |
400 |
} |
353 |
|
401 |
|
|
|
402 |
=head2 monetary_amount |
403 |
|
404 |
Missing POD for monetary_amount. |
405 |
|
406 |
=cut |
407 |
|
354 |
sub monetary_amount { |
408 |
sub monetary_amount { |
355 |
my $self = shift; |
409 |
my $self = shift; |
356 |
return $self->{monetary_amount}; |
410 |
return $self->{monetary_amount}; |
357 |
} |
411 |
} |
358 |
|
412 |
|
|
|
413 |
=head2 quantity |
414 |
|
415 |
Missing POD for quantity. |
416 |
|
417 |
=cut |
418 |
|
359 |
sub quantity { |
419 |
sub quantity { |
360 |
my $self = shift; |
420 |
my $self = shift; |
361 |
return $self->{quantity}; |
421 |
return $self->{quantity}; |
362 |
} |
422 |
} |
363 |
|
423 |
|
|
|
424 |
=head2 quantity_invoiced |
425 |
|
426 |
Missing POD for quantity_invoiced. |
427 |
|
428 |
=cut |
429 |
|
364 |
sub quantity_invoiced { |
430 |
sub quantity_invoiced { |
365 |
my $self = shift; |
431 |
my $self = shift; |
366 |
return $self->{quantity_invoiced}; |
432 |
return $self->{quantity_invoiced}; |
367 |
} |
433 |
} |
368 |
|
434 |
|
|
|
435 |
=head2 price |
436 |
|
437 |
Missing POD for price. |
438 |
|
439 |
=cut |
440 |
|
369 |
sub price { |
441 |
sub price { |
370 |
my $self = shift; |
442 |
my $self = shift; |
371 |
return $self->{price}; |
443 |
return $self->{price}; |
372 |
} |
444 |
} |
373 |
|
445 |
|
|
|
446 |
=head2 reference |
447 |
|
448 |
Missing POD for reference. |
449 |
|
450 |
=cut |
451 |
|
374 |
sub reference { |
452 |
sub reference { |
375 |
my $self = shift; |
453 |
my $self = shift; |
376 |
return $self->{reference}; |
454 |
return $self->{reference}; |
377 |
} |
455 |
} |
378 |
|
456 |
|
|
|
457 |
=head2 orderline_reference_number |
458 |
|
459 |
Missing POD for orderline_reference_number. |
460 |
|
461 |
=cut |
462 |
|
379 |
sub orderline_reference_number { |
463 |
sub orderline_reference_number { |
380 |
my $self = shift; |
464 |
my $self = shift; |
381 |
return $self->{orderline_reference_number}; |
465 |
return $self->{orderline_reference_number}; |
382 |
} |
466 |
} |
383 |
|
467 |
|
|
|
468 |
=head2 ordernumber |
469 |
|
470 |
Missing POD for ordernumber. |
471 |
|
472 |
=cut |
473 |
|
384 |
sub ordernumber { |
474 |
sub ordernumber { |
385 |
my $self = shift; |
475 |
my $self = shift; |
386 |
return $self->{ordernumber}; |
476 |
return $self->{ordernumber}; |
387 |
} |
477 |
} |
388 |
|
478 |
|
|
|
479 |
=head2 free_text |
480 |
|
481 |
Missing POD for free_text. |
482 |
|
483 |
=cut |
484 |
|
389 |
sub free_text { |
485 |
sub free_text { |
390 |
my $self = shift; |
486 |
my $self = shift; |
391 |
return $self->{free_text}; |
487 |
return $self->{free_text}; |
392 |
} |
488 |
} |
393 |
|
489 |
|
|
|
490 |
=head2 coded_free_text |
491 |
|
492 |
Missing POD for coded_free_text. |
493 |
|
494 |
=cut |
495 |
|
394 |
sub coded_free_text { |
496 |
sub coded_free_text { |
395 |
my $self = shift; |
497 |
my $self = shift; |
396 |
return $self->{coded_free_text}->{code}; |
498 |
return $self->{coded_free_text}->{code}; |
397 |
} |
499 |
} |
398 |
|
500 |
|
|
|
501 |
=head2 internal_notes |
502 |
|
503 |
Missing POD for internal_notes. |
504 |
|
505 |
=cut |
506 |
|
399 |
sub internal_notes { |
507 |
sub internal_notes { |
400 |
my $self = shift; |
508 |
my $self = shift; |
401 |
return $self->{internal_notes}; |
509 |
return $self->{internal_notes}; |
402 |
} |
510 |
} |
403 |
|
511 |
|
|
|
512 |
=head2 coded_internal_note |
513 |
|
514 |
Missing POD for coded_internal_note. |
515 |
|
516 |
=cut |
517 |
|
404 |
sub coded_internal_note { |
518 |
sub coded_internal_note { |
405 |
my $self = shift; |
519 |
my $self = shift; |
406 |
return $self->{coded_internal_note}->{code}; |
520 |
return $self->{coded_internal_note}->{code}; |
407 |
} |
521 |
} |
408 |
|
522 |
|
|
|
523 |
=head2 orderline_free_text |
524 |
|
525 |
Missing POD for orderline_free_text. |
526 |
|
527 |
=cut |
528 |
|
409 |
sub orderline_free_text { |
529 |
sub orderline_free_text { |
410 |
my $self = shift; |
530 |
my $self = shift; |
411 |
return $self->{orderline_free_text}; |
531 |
return $self->{orderline_free_text}; |
412 |
} |
532 |
} |
413 |
|
533 |
|
|
|
534 |
=head2 coded_orderline_text |
535 |
|
536 |
Missing POD for coded_orderline_text. |
537 |
|
538 |
=cut |
539 |
|
414 |
sub coded_orderline_text { |
540 |
sub coded_orderline_text { |
415 |
my $self = shift; |
541 |
my $self = shift; |
416 |
my $code = $self->{coded_orderline_text}->{code}; |
542 |
my $code = $self->{coded_orderline_text}->{code}; |
Lines 427-437
sub coded_orderline_text {
Link Here
|
427 |
return $txt; |
553 |
return $txt; |
428 |
} |
554 |
} |
429 |
|
555 |
|
|
|
556 |
=head2 substitute_free_text |
557 |
|
558 |
Missing POD for substitute_free_text. |
559 |
|
560 |
=cut |
561 |
|
430 |
sub substitute_free_text { |
562 |
sub substitute_free_text { |
431 |
my $self = shift; |
563 |
my $self = shift; |
432 |
return $self->{substitute_free_text}; |
564 |
return $self->{substitute_free_text}; |
433 |
} |
565 |
} |
434 |
|
566 |
|
|
|
567 |
=head2 coded_substitute_text |
568 |
|
569 |
Missing POD for coded_substitute_text. |
570 |
|
571 |
=cut |
572 |
|
435 |
sub coded_substitute_text { |
573 |
sub coded_substitute_text { |
436 |
my $self = shift; |
574 |
my $self = shift; |
437 |
return $self->{coded_substitute_text}->{code}; |
575 |
return $self->{coded_substitute_text}->{code}; |
Lines 440-445
sub coded_substitute_text {
Link Here
|
440 |
# This will take a standard code as returned |
578 |
# This will take a standard code as returned |
441 |
# by (orderline|substitue)-free_text (FTX seg LIN) |
579 |
# by (orderline|substitue)-free_text (FTX seg LIN) |
442 |
# and expand it using EditEUR code list 8B |
580 |
# and expand it using EditEUR code list 8B |
|
|
581 |
|
582 |
=head2 translate_8B |
583 |
|
584 |
Missing POD for translate_8B. |
585 |
|
586 |
=cut |
587 |
|
443 |
sub translate_8B { |
588 |
sub translate_8B { |
444 |
my ($code) = @_; |
589 |
my ($code) = @_; |
445 |
|
590 |
|
Lines 487-492
sub translate_8B {
Link Here
|
487 |
} |
632 |
} |
488 |
} |
633 |
} |
489 |
|
634 |
|
|
|
635 |
=head2 translate_12B |
636 |
|
637 |
Missing POD for translate_12B. |
638 |
|
639 |
=cut |
640 |
|
490 |
sub translate_12B { |
641 |
sub translate_12B { |
491 |
my ($code) = @_; |
642 |
my ($code) = @_; |
492 |
|
643 |
|
Lines 542-547
sub translate_12B {
Link Here
|
542 |
|
693 |
|
543 |
# item_desription_fields accessors |
694 |
# item_desription_fields accessors |
544 |
|
695 |
|
|
|
696 |
=head2 title |
697 |
|
698 |
Missing POD for title. |
699 |
|
700 |
=cut |
701 |
|
545 |
sub title { |
702 |
sub title { |
546 |
my $self = shift; |
703 |
my $self = shift; |
547 |
my $titlefield = q{050}; |
704 |
my $titlefield = q{050}; |
Lines 551-556
sub title {
Link Here
|
551 |
return; |
708 |
return; |
552 |
} |
709 |
} |
553 |
|
710 |
|
|
|
711 |
=head2 author |
712 |
|
713 |
Missing POD for author. |
714 |
|
715 |
=cut |
716 |
|
554 |
sub author { |
717 |
sub author { |
555 |
my $self = shift; |
718 |
my $self = shift; |
556 |
my $field = q{010}; |
719 |
my $field = q{010}; |
Lines 566-571
sub author {
Link Here
|
566 |
return; |
729 |
return; |
567 |
} |
730 |
} |
568 |
|
731 |
|
|
|
732 |
=head2 series |
733 |
|
734 |
Missing POD for series. |
735 |
|
736 |
=cut |
737 |
|
569 |
sub series { |
738 |
sub series { |
570 |
my $self = shift; |
739 |
my $self = shift; |
571 |
my $field = q{190}; |
740 |
my $field = q{190}; |
Lines 575-580
sub series {
Link Here
|
575 |
return; |
744 |
return; |
576 |
} |
745 |
} |
577 |
|
746 |
|
|
|
747 |
=head2 publisher |
748 |
|
749 |
Missing POD for publisher. |
750 |
|
751 |
=cut |
752 |
|
578 |
sub publisher { |
753 |
sub publisher { |
579 |
my $self = shift; |
754 |
my $self = shift; |
580 |
my $field = q{120}; |
755 |
my $field = q{120}; |
Lines 584-589
sub publisher {
Link Here
|
584 |
return; |
759 |
return; |
585 |
} |
760 |
} |
586 |
|
761 |
|
|
|
762 |
=head2 publication_date |
763 |
|
764 |
Missing POD for publication_date. |
765 |
|
766 |
=cut |
767 |
|
587 |
sub publication_date { |
768 |
sub publication_date { |
588 |
my $self = shift; |
769 |
my $self = shift; |
589 |
my $field = q{170}; |
770 |
my $field = q{170}; |
Lines 593-598
sub publication_date {
Link Here
|
593 |
return; |
774 |
return; |
594 |
} |
775 |
} |
595 |
|
776 |
|
|
|
777 |
=head2 dewey_class |
778 |
|
779 |
Missing POD for dewey_class. |
780 |
|
781 |
=cut |
782 |
|
596 |
sub dewey_class { |
783 |
sub dewey_class { |
597 |
my $self = shift; |
784 |
my $self = shift; |
598 |
my $field = q{230}; |
785 |
my $field = q{230}; |
Lines 602-607
sub dewey_class {
Link Here
|
602 |
return; |
789 |
return; |
603 |
} |
790 |
} |
604 |
|
791 |
|
|
|
792 |
=head2 lc_class |
793 |
|
794 |
Missing POD for lc_class. |
795 |
|
796 |
=cut |
797 |
|
605 |
sub lc_class { |
798 |
sub lc_class { |
606 |
my $self = shift; |
799 |
my $self = shift; |
607 |
my $field = q{240}; |
800 |
my $field = q{240}; |
Lines 611-616
sub lc_class {
Link Here
|
611 |
return; |
804 |
return; |
612 |
} |
805 |
} |
613 |
|
806 |
|
|
|
807 |
=head2 girfield |
808 |
|
809 |
Missing POD for girfield. |
810 |
|
811 |
=cut |
812 |
|
614 |
sub girfield { |
813 |
sub girfield { |
615 |
my ( $self, $field, $occ ) = @_; |
814 |
my ( $self, $field, $occ ) = @_; |
616 |
if ( $self->number_of_girs ) { |
815 |
if ( $self->number_of_girs ) { |
Lines 626-631
sub girfield {
Link Here
|
626 |
} |
825 |
} |
627 |
} |
826 |
} |
628 |
|
827 |
|
|
|
828 |
=head2 number_of_girs |
829 |
|
830 |
Missing POD for number_of_girs. |
831 |
|
832 |
=cut |
833 |
|
629 |
sub number_of_girs { |
834 |
sub number_of_girs { |
630 |
my $self = shift; |
835 |
my $self = shift; |
631 |
if ( $self->{GIR} ) { |
836 |
if ( $self->{GIR} ) { |
Lines 638-643
sub number_of_girs {
Link Here
|
638 |
} |
843 |
} |
639 |
} |
844 |
} |
640 |
|
845 |
|
|
|
846 |
=head2 extract_gir |
847 |
|
848 |
Missing POD for extract_gir. |
849 |
|
850 |
=cut |
851 |
|
641 |
sub extract_gir { |
852 |
sub extract_gir { |
642 |
my $s = shift; |
853 |
my $s = shift; |
643 |
my %qmap = ( |
854 |
my %qmap = ( |
Lines 684-689
sub extract_gir {
Link Here
|
684 |
} |
895 |
} |
685 |
|
896 |
|
686 |
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn |
897 |
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn |
|
|
898 |
|
899 |
=head2 moa_amt |
900 |
|
901 |
Missing POD for moa_amt. |
902 |
|
903 |
=cut |
904 |
|
687 |
sub moa_amt { |
905 |
sub moa_amt { |
688 |
my ( $self, $qualifier ) = @_; |
906 |
my ( $self, $qualifier ) = @_; |
689 |
foreach my $s ( @{ $self->{segs} } ) { |
907 |
foreach my $s ( @{ $self->{segs} } ) { |
Lines 694-699
sub moa_amt {
Link Here
|
694 |
return; |
912 |
return; |
695 |
} |
913 |
} |
696 |
|
914 |
|
|
|
915 |
=head2 moa_multiple_amt |
916 |
|
917 |
Missing POD for moa_multiple_amt. |
918 |
|
919 |
=cut |
920 |
|
697 |
sub moa_multiple_amt { |
921 |
sub moa_multiple_amt { |
698 |
my ( $self, $qualifier ) = @_; |
922 |
my ( $self, $qualifier ) = @_; |
699 |
|
923 |
|
Lines 712-750
sub moa_multiple_amt {
Link Here
|
712 |
return; |
936 |
return; |
713 |
} |
937 |
} |
714 |
|
938 |
|
|
|
939 |
=head2 amt_discount |
940 |
|
941 |
Missing POD for amt_discount. |
942 |
|
943 |
=cut |
944 |
|
715 |
sub amt_discount { |
945 |
sub amt_discount { |
716 |
my $self = shift; |
946 |
my $self = shift; |
717 |
return $self->moa_amt('52'); |
947 |
return $self->moa_amt('52'); |
718 |
} |
948 |
} |
719 |
|
949 |
|
|
|
950 |
=head2 amt_prepayment |
951 |
|
952 |
Missing POD for amt_prepayment. |
953 |
|
954 |
=cut |
955 |
|
720 |
sub amt_prepayment { |
956 |
sub amt_prepayment { |
721 |
my $self = shift; |
957 |
my $self = shift; |
722 |
return $self->moa_amt('113'); |
958 |
return $self->moa_amt('113'); |
723 |
} |
959 |
} |
724 |
|
960 |
|
725 |
# total including allowances & tax |
961 |
# total including allowances & tax |
|
|
962 |
|
963 |
=head2 amt_total |
964 |
|
965 |
Missing POD for amt_total. |
966 |
|
967 |
=cut |
968 |
|
726 |
sub amt_total { |
969 |
sub amt_total { |
727 |
my $self = shift; |
970 |
my $self = shift; |
728 |
return $self->moa_amt('128'); |
971 |
return $self->moa_amt('128'); |
729 |
} |
972 |
} |
730 |
|
973 |
|
731 |
# Used to give price in currency other than that given in price |
974 |
# Used to give price in currency other than that given in price |
|
|
975 |
|
976 |
=head2 amt_unitprice |
977 |
|
978 |
Missing POD for amt_unitprice. |
979 |
|
980 |
=cut |
981 |
|
732 |
sub amt_unitprice { |
982 |
sub amt_unitprice { |
733 |
my $self = shift; |
983 |
my $self = shift; |
734 |
return $self->moa_amt('146'); |
984 |
return $self->moa_amt('146'); |
735 |
} |
985 |
} |
736 |
|
986 |
|
737 |
# item amount after allowances excluding tax |
987 |
# item amount after allowances excluding tax |
|
|
988 |
|
989 |
=head2 amt_lineitem |
990 |
|
991 |
Missing POD for amt_lineitem. |
992 |
|
993 |
=cut |
994 |
|
738 |
sub amt_lineitem { |
995 |
sub amt_lineitem { |
739 |
my $self = shift; |
996 |
my $self = shift; |
740 |
return $self->moa_amt('203'); |
997 |
return $self->moa_amt('203'); |
741 |
} |
998 |
} |
742 |
|
999 |
|
|
|
1000 |
=head2 amt_taxoncharge |
1001 |
|
1002 |
Missing POD for amt_taxoncharge. |
1003 |
|
1004 |
=cut |
1005 |
|
743 |
sub amt_taxoncharge { |
1006 |
sub amt_taxoncharge { |
744 |
my $self = shift; |
1007 |
my $self = shift; |
745 |
return $self->moa_multiple_amt('124'); |
1008 |
return $self->moa_multiple_amt('124'); |
746 |
} |
1009 |
} |
747 |
|
1010 |
|
|
|
1011 |
=head2 pri_price |
1012 |
|
1013 |
Missing POD for pri_price. |
1014 |
|
1015 |
=cut |
1016 |
|
748 |
sub pri_price { |
1017 |
sub pri_price { |
749 |
my ( $self, $price_qualifier ) = @_; |
1018 |
my ( $self, $price_qualifier ) = @_; |
750 |
|
1019 |
|
Lines 774-779
sub pri_price {
Link Here
|
774 |
} |
1043 |
} |
775 |
|
1044 |
|
776 |
# unit price that will be chaged excl tax |
1045 |
# unit price that will be chaged excl tax |
|
|
1046 |
|
1047 |
=head2 price_net |
1048 |
|
1049 |
Missing POD for price_net. |
1050 |
|
1051 |
=cut |
1052 |
|
777 |
sub price_net { |
1053 |
sub price_net { |
778 |
my $self = shift; |
1054 |
my $self = shift; |
779 |
my $p = $self->pri_price('AAA'); |
1055 |
my $p = $self->pri_price('AAA'); |
Lines 784-789
sub price_net {
Link Here
|
784 |
} |
1060 |
} |
785 |
|
1061 |
|
786 |
# unit price excluding all allowances, charges and taxes |
1062 |
# unit price excluding all allowances, charges and taxes |
|
|
1063 |
|
1064 |
=head2 price_gross |
1065 |
|
1066 |
Missing POD for price_gross. |
1067 |
|
1068 |
=cut |
1069 |
|
787 |
sub price_gross { |
1070 |
sub price_gross { |
788 |
my $self = shift; |
1071 |
my $self = shift; |
789 |
my $p = $self->pri_price('AAB'); |
1072 |
my $p = $self->pri_price('AAB'); |
Lines 794-799
sub price_gross {
Link Here
|
794 |
} |
1077 |
} |
795 |
|
1078 |
|
796 |
# information price incl tax excluding allowances, charges |
1079 |
# information price incl tax excluding allowances, charges |
|
|
1080 |
|
1081 |
=head2 price_info |
1082 |
|
1083 |
Missing POD for price_info. |
1084 |
|
1085 |
=cut |
1086 |
|
797 |
sub price_info { |
1087 |
sub price_info { |
798 |
my $self = shift; |
1088 |
my $self = shift; |
799 |
my $p = $self->pri_price('AAE'); |
1089 |
my $p = $self->pri_price('AAE'); |
Lines 804-809
sub price_info {
Link Here
|
804 |
} |
1094 |
} |
805 |
|
1095 |
|
806 |
# information price incl tax,allowances, charges |
1096 |
# information price incl tax,allowances, charges |
|
|
1097 |
|
1098 |
=head2 price_info_inclusive |
1099 |
|
1100 |
Missing POD for price_info_inclusive. |
1101 |
|
1102 |
=cut |
1103 |
|
807 |
sub price_info_inclusive { |
1104 |
sub price_info_inclusive { |
808 |
my $self = shift; |
1105 |
my $self = shift; |
809 |
my $p = $self->pri_price('AAF'); |
1106 |
my $p = $self->pri_price('AAF'); |
Lines 813-823
sub price_info_inclusive {
Link Here
|
813 |
return; |
1110 |
return; |
814 |
} |
1111 |
} |
815 |
|
1112 |
|
|
|
1113 |
=head2 tax |
1114 |
|
1115 |
Missing POD for tax. |
1116 |
|
1117 |
=cut |
1118 |
|
816 |
sub tax { |
1119 |
sub tax { |
817 |
my $self = shift; |
1120 |
my $self = shift; |
818 |
return $self->moa_amt('124'); |
1121 |
return $self->moa_amt('124'); |
819 |
} |
1122 |
} |
820 |
|
1123 |
|
|
|
1124 |
=head2 tax_rate |
1125 |
|
1126 |
Missing POD for tax_rate. |
1127 |
|
1128 |
=cut |
1129 |
|
821 |
sub tax_rate { |
1130 |
sub tax_rate { |
822 |
my $self = shift; |
1131 |
my $self = shift; |
823 |
my $tr = {}; |
1132 |
my $tr = {}; |
Lines 843-848
sub tax_rate {
Link Here
|
843 |
return; |
1152 |
return; |
844 |
} |
1153 |
} |
845 |
|
1154 |
|
|
|
1155 |
=head2 availability_date |
1156 |
|
1157 |
Missing POD for availability_date. |
1158 |
|
1159 |
=cut |
1160 |
|
846 |
sub availability_date { |
1161 |
sub availability_date { |
847 |
my $self = shift; |
1162 |
my $self = shift; |
848 |
if ( exists $self->{availability_date} ) { |
1163 |
if ( exists $self->{availability_date} ) { |