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