--- cup.perl	2013/11/16 21:15:36	1.1
+++ cup.perl	2013/12/26 19:59:00	1.3
@@ -1,5 +1,5 @@
 #! /usr/bin/perl -w
-# $Id: cup.perl,v 1.1 2013/11/16 21:15:36 philip Exp $
+# $Id: cup.perl,v 1.3 2013/12/26 19:59:00 philip Exp $
 use XML::Simple;
 use strict;
 
@@ -15,16 +15,35 @@ open CUP, "> OmLand.cup" or die "Couldn'
 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",,
 
+# 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;
 
 foreach my $stripnum ( keys %{$strips->{strip}} ){
- print CUP $strips->{strip}->{$stripnum}->{name} . ",";
- print CUP $stripnum . ",NZ,";
+ print CUP qq["$strips->{strip}->{$stripnum}->{name}",];
+ print CUP qq["$stripnum",NZ,];
  $strips->{strip}->{$stripnum}->{lat} =~ s/://;
  print CUP $strips->{strip}->{$stripnum}->{lat} . ",";
  $strips->{strip}->{$stripnum}->{lng} =~ s/://;
  print CUP $strips->{strip}->{$stripnum}->{lng} . ",";
- print CUP $strips->{strip}->{$stripnum}->{elev} . "f,1,,,,";
+ print CUP $strips->{strip}->{$stripnum}->{elev} . "f,3,,,,";
  if ( defined $strips->{strip}->{$stripnum}->{location} ) {
   print CUP qq{"$strips->{strip}->{$stripnum}->{location}"};
  }