Diff for /cup.perl between versions 1.2 and 1.3

version 1.2, 2013/11/17 20:18:17 version 1.3, 2013/12/26 19:59:00
Line 15  open CUP, "> OmLand.cup" or die "Couldn' Line 15  open CUP, "> OmLand.cup" or die "Couldn'
 print CUP "name,code,country,lat,lon,elev,style,rwdir,rwlen,freq,desc,userdata,pics\n";  print CUP "name,code,country,lat,lon,elev,style,rwdir,rwlen,freq,desc,userdata,pics\n";
 #"Ahuriri",0002,NZ,4414.000S,16936.000E,756.0m,1,,,,"Mouth of Canyon Creek",,  #"Ahuriri",0002,NZ,4414.000S,16936.000E,756.0m,1,,,,"Mouth of Canyon Creek",,
   
   # Style is 
   # 1 Normal waypoint
   # 2 Airfield grass
   # 3 Outlanding
   # 4 Glider site
   # 5 Airfield sealed
   # 6 Mountain Pass
   # 7 Mountain Top
   # 8 Sender
   # 9 VOR
   # 10 NDB
   # 11 Cooling tower
   # 12 Dam
   # 13 Tunnel
   # 14 Bridge
   # 15 Power plant
   # 16 Castle
   # 17 Intersection
   
 my %strips;  my %strips;
   
 foreach my $stripnum ( keys %{$strips->{strip}} ){  foreach my $stripnum ( keys %{$strips->{strip}} ){

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>