Subversion Repositories OpenARM Single-board Computer

Rev

Rev 332 | Rev 334 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 332 Rev 333
Line 1... Line 1...
1 
#!/usr/bin/perl -w
1 
#!/usr/bin/perl -w
2 
use strict;
2 
use strict;
3 
# $Id: inventory.pl 332 2008-12-29 20:40:58Z agaran $
3 
# $Id: inventory.pl 333 2008-12-29 21:17:29Z agaran $
4 
# Thu, 13 Nov 2008 21:06:23 +0100
4 
# Thu, 13 Nov 2008 21:06:23 +0100
5 
# Maciej 'agaran' Pijanka <agaran@pld-linux.org>
5 
# Maciej 'agaran' Pijanka <agaran@pld-linux.org>
6 
# for OpenARM SBC Project
6 
# for OpenARM SBC Project
7 
# license: gpl v3
7 
# license: gpl v3
8 

            8
            

          

          

            Line 561...
            Line 561...
          

          

            561
            
print $out $bomtable->rule('-','+');


            561
            
print $out $bomtable->rule('-','+');


          

          

            562
            

            562
            

          

          

            563
            
printf $out "\nTotal cost: %.3f\n\n\n", $cost;


            563
            
printf $out "\nTotal cost: %.3f\n\n\n", $cost;


          

          

            564
            

            564
            

          

          

            565
            

            565
            

          

          

            -
            
 

            566
            
$pn = 1;


          

          

            566
            
foreach my $fkey (sort keys %Files) {


            567
            
foreach my $fkey (sort keys %Files) {


          

          

            567
            
        my $rowblock = 0;


            568
            
        my $rowblock = 0;


          

          

            568
            
        $pn = 1;


            -
            
 

          

          

            569
            
        foreach my $id ( sort {my $p = $Inv[$a]{Manufacturer} cmp $Inv[$b]{Manufacturer}; if ($p == 0) {


            569
            
        foreach my $id ( sort {my $p = $Inv[$a]{Manufacturer} cmp $Inv[$b]{Manufacturer}; if ($p == 0) {


          

          

            570
            
                return $Inv[$a]{Description} cmp $Inv[$b]{Description}}; return $p; }  keys %{$Files{$fkey}}) {


            570
            
                return $Inv[$a]{Description} cmp $Inv[$b]{Description}}; return $p; }  keys %{$Files{$fkey}}) {


          

          

            571
            

            571
            

          

          

            572
            
                $parttable->add($pn++, $Inv[$id]{Description}, $Inv[$id]{Manufacturer_Partno}, $BomData{$id}{Footprint},


            572
            
                $parttable->add($pn++, $Inv[$id]{Description}, $Inv[$id]{Manufacturer_Partno}, $BomData{$id}{Footprint},


          

          

            573
            
                        strbreak(join (', ', sort @{$Files{$fkey}{$id}{RefDes}}),43), $fkey);


            573
            
                        strbreak(join (', ', sort @{$Files{$fkey}{$id}{RefDes}}),43), $fkey);