|
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} ) { |