From 2c26fbc23aac8445026d15b1a151bb9da0d4064d Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 5 Sep 2009 20:14:36 +0100 Subject: [PATCH] Remove some debugging --- yarrg/web/routetrade | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade index e5e59aa..397e385 100644 --- a/yarrg/web/routetrade +++ b/yarrg/web/routetrade @@ -435,15 +435,15 @@ foreach my $ci (0..($#islandids-1)) { next unless grep { $f->{'dst_id'} == $_ } @islandids[$ci+1..@islandids-1]; push @rel_flows, $f; -print " RELEVANT $ci $f->{Ix} "; +#print " RELEVANT $ci $f->{Ix} "; } -print " RELEVANT $ci COUNT ".scalar(@rel_flows)." "; +#print " RELEVANT $ci COUNT ".scalar(@rel_flows)." "; next unless @rel_flows; foreach my $mv (qw(mass volume)) { my $max_vn= "max_$mv"; my $max= $mv eq 'mass' ? $max_mass : $max_volume; next unless defined $max; -print " DEFINED MAX $mv $max "; +#print " DEFINED MAX $mv $max "; $cplex .= " ". sprintf("%-10s","${mv}_$ci:")." ". join(" + ", map { ($_->{"unit$mv"}*1e-3).' f'.$_->{Ix} } @rel_flows). -- 2.30.2