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