--- cup.perl	2013/11/16 21:15:36	1.1
+++ cup.perl	2013/11/17 20:18:17	1.2
@@ -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.2 2013/11/17 20:18:17 philip Exp $
 use XML::Simple;
 use strict;
 
@@ -18,13 +18,13 @@ print CUP "name,code,country,lat,lon,ele
 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}"};
  }