expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2024-11-26 09:11:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r7330] hacked around to correct a persistent error message that was annoying me

Browse Source
This commit is contained in:
dave 2006-02-14 00:24:52 +01:00
parent 0b69d1ca02
commit 2b7de0b3b1
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
smkridge/204/tablize-qms.pl
View File

@ -85,9 +85,17 @@ while (<CSV>) {
chomp;
# Split single line into all the fields
($number, $grade, $area, $desc, $ref, $station, $completion) = &parse_csv($_);
if ($completion and $ref)
if (!$completion) { $completion = ""; }
$completion =~ s/\r//;
if (!$station) { $station = ""; }
if (!$ref) { $ref = ""; }
# hacked in by DL, as was acting weirdly due to uninitialized variables
if (($completion ne "") and ($ref ne ""))
{
print "\n?? Backlink for completed $number\n";
print "Ref is '$ref' and completion is '$completion'\n";
}
$qmyear = substr($number, 1, 4);
if($qmyear != $thisyear)
@ -97,7 +105,7 @@ while (<CSV>) {
$thisyear = $qmyear;
}
# Last field of CSV file can have weird form-feeds etc. Kill them
$completion =~ s/\r//;
# Construct XHTML line
if ($ref) {