[interchange-cvs] interchange - racke modified scripts/localize.PL
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Tue Apr 1 17:25:01 2003
User: racke
Date: 2003-04-01 22:24:30 GMT
Modified: scripts localize.PL
Log:
avoid empty entries
Revision Changes Path
2.5 +4 -3 interchange/scripts/localize.PL
rev 2.5, prev_rev 2.4
Index: localize.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/localize.PL,v
retrieving revision 2.4
retrieving revision 2.5
diff -u -r2.4 -r2.5
--- localize.PL 1 Apr 2003 22:07:07 -0000 2.4
+++ localize.PL 1 Apr 2003 22:24:30 -0000 2.5
@@ -3,9 +3,10 @@
#
# Interchange localizer
#
-# $Id: localize.PL,v 2.4 2003/04/01 22:07:07 racke Exp $
+# $Id: localize.PL,v 2.5 2003/04/01 22:24:30 racke Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
+# Copyright (C) 2003 ICDEVGROUP <interchange@icdevgroup.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -231,7 +232,7 @@
}
while (<ICMENU>) {
@cols = split (/\t/);
- write_structure (undef, $cols[$namecol]);
+ write_structure (undef, $cols[$namecol]) if $cols[$namecol];
write_structure (undef, $cols[$dsccol]) if $cols[$dsccol];
}
close (ICMENU);
@@ -374,7 +375,7 @@
=head1 VERSION
-# $Id: localize.PL,v 2.4 2003/04/01 22:07:07 racke Exp $
+# $Id: localize.PL,v 2.5 2003/04/01 22:24:30 racke Exp $
=head1 SYNOPSIS