|
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> |