expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-12-12 17:09:25 +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
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; chomp;
# Split single line into all the fields # Split single line into all the fields
($number, $grade, $area, $desc, $ref, $station, $completion) = &parse_csv($_); ($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 "\n?? Backlink for completed $number\n";
print "Ref is '$ref' and completion is '$completion'\n";
} }
$qmyear = substr($number, 1, 4); $qmyear = substr($number, 1, 4);
if($qmyear != $thisyear) if($qmyear != $thisyear)
@@ -97,7 +105,7 @@ while (<CSV>) {
$thisyear = $qmyear; $thisyear = $qmyear;
} }
# Last field of CSV file can have weird form-feeds etc. Kill them # Last field of CSV file can have weird form-feeds etc. Kill them
$completion =~ s/\r//;
# Construct XHTML line # Construct XHTML line
if ($ref) { if ($ref) {