View | Details | Raw Unified | Return to bug 14383
Collapse All | Expand All

(-)a/acqui/addorder.pl (-1 / +1 lines)
Lines 235-241 my $user = $input->remote_user; Link Here
235
if ( $orderinfo->{quantity} ne '0' ) {
235
if ( $orderinfo->{quantity} ne '0' ) {
236
    #TODO:check to see if biblio exists
236
    #TODO:check to see if biblio exists
237
    unless ( $$orderinfo{biblionumber} ) {
237
    unless ( $$orderinfo{biblionumber} ) {
238
        #if it doesnt create it
238
        #if it doesn't create it
239
        my $record = TransformKohaToMarc(
239
        my $record = TransformKohaToMarc(
240
            {
240
            {
241
                "biblio.title"                => "$$orderinfo{title}",
241
                "biblio.title"                => "$$orderinfo{title}",
(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
Lines 85-91 if ($op eq ""){ Link Here
85
#display batches
85
#display batches
86
    import_batches_list($template);
86
    import_batches_list($template);
87
#
87
#
88
# 2nd step = display the content of the choosen file
88
# 2nd step = display the content of the chosen file
89
#
89
#
90
} elsif ($op eq "batch_details"){
90
} elsif ($op eq "batch_details"){
91
#display lines inside the selected batch
91
#display lines inside the selected batch
(-)a/acqui/basketgroup.pl (-1 / +1 lines)
Lines 355-361 if ( $op eq "add" ) { Link Here
355
# FIXME
355
# FIXME
356
        }
356
        }
357
    }else{
357
    }else{
358
    # we create a new basketgroup (whith a closed basket)
358
    # we create a new basketgroup (with a closed basket)
359
        $basketgroup = {
359
        $basketgroup = {
360
            name              => $basketgroupname,
360
            name              => $basketgroupname,
361
            booksellerid      => $booksellerid,
361
            booksellerid      => $booksellerid,
(-)a/acqui/orderreceive.pl (-1 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
3
4
#script to recieve orders
4
#script to receive orders
5
#written by chris@katipo.co.nz 24/2/2000
5
#written by chris@katipo.co.nz 24/2/2000
6
6
7
# Copyright 2000-2002 Katipo Communications
7
# Copyright 2000-2002 Katipo Communications
(-)a/acqui/parcel.pl (-1 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
#script to recieve orders
3
#script to receive orders
4
4
5
5
6
# Copyright 2000-2002 Katipo Communications
6
# Copyright 2000-2002 Katipo Communications
(-)a/acqui/pdfformat/layout2pages.pm (-1 / +1 lines)
Lines 43-49 BEGIN { Link Here
43
43
44
44
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
46
#The constants exported tranform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
46
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
47
use constant mm => 25.4 / 72;
47
use constant mm => 25.4 / 72;
48
use constant in => 1 / 72;
48
use constant in => 1 / 72;
49
use constant pt => 1;
49
use constant pt => 1;
(-)a/acqui/pdfformat/layout2pagesde.pm (-1 / +1 lines)
Lines 43-49 BEGIN { Link Here
43
43
44
44
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
46
#The constants exported tranform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
46
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
47
use constant mm => 25.4 / 72;
47
use constant mm => 25.4 / 72;
48
use constant in => 1 / 72;
48
use constant in => 1 / 72;
49
use constant pt => 1;
49
use constant pt => 1;
(-)a/acqui/pdfformat/layout3pages.pm (-1 / +1 lines)
Lines 44-50 BEGIN { Link Here
44
44
45
45
46
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
46
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
47
#The constants exported tranform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
47
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
48
use constant mm => 25.4 / 72;
48
use constant mm => 25.4 / 72;
49
use constant in => 1 / 72;
49
use constant in => 1 / 72;
50
use constant pt => 1;
50
use constant pt => 1;
(-)a/acqui/pdfformat/layout3pagesfr.pm (-2 / +1 lines)
Lines 43-49 BEGIN { Link Here
43
43
44
44
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
45
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
46
#The constants exported tranform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
46
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
47
use constant mm => 25.4 / 72;
47
use constant mm => 25.4 / 72;
48
use constant in => 1 / 72;
48
use constant in => 1 / 72;
49
use constant pt => 1;
49
use constant pt => 1;
50
- 

Return to bug 14383