chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Normalise commodity name case (from uploads)
[ypp-sc-tools.db-test.git]
/
yarrg
/
web
/
routetrade
diff --git
a/yarrg/web/routetrade
b/yarrg/web/routetrade
index b51a3a06eb4810c7dc920a69a072dbc6d84352b1..c62ca60b7f89a7956008cacc7c8998ae944a72c7 100644
(file)
--- a/
yarrg/web/routetrade
+++ b/
yarrg/web/routetrade
@@
-586,7
+586,7
@@
my $try_solve= sub {
my $input= pipethrough_prep();
print $input $cplex or die $!;
my $output= pipethrough_run_along($input, undef, 'glpsol',
my $input= pipethrough_prep();
print $input $cplex or die $!;
my $output= pipethrough_run_along($input, undef, 'glpsol',
- qw(glpsol --tmlim 5 --memlim
5
), @opts,
+ qw(glpsol --tmlim 5 --memlim
20
), @opts,
qw( --cpxlp /dev/stdin -o /dev/stdout));
if ($qa->{'debug'}) {
print "<h3>@opts</h3>\n<pre>\n";
qw( --cpxlp /dev/stdin -o /dev/stdout));
if ($qa->{'debug'}) {
print "<h3>@opts</h3>\n<pre>\n";
@@
-896,7
+896,7
@@
END
$linkqf{'query'}= 'commod';
$linkqf{'commodstring'}= $t->{'commodname'};
$linkqf{'commodid'}= $t->{'commodid'};
$linkqf{'query'}= 'commod';
$linkqf{'commodstring'}= $t->{'commodname'};
$linkqf{'commodid'}= $t->{'commodid'};
- my $linkqfpr=
$quri->(%linkqf
);
+ my $linkqfpr=
encode_entities( $quri->(%linkqf)
);
my $commodnamepr= encode_entities($t->{'commodname'});
$plan_html .= tr_datarow_s($m,$dline) . <<END;
<$td>$collectdeliver
my $commodnamepr= encode_entities($t->{'commodname'});
$plan_html .= tr_datarow_s($m,$dline) . <<END;
<$td>$collectdeliver
@@
-918,7
+918,7
@@
END
<$td align=right>$t->{Total} total
END
foreach my $stallix (1..$#stalls) {
<$td align=right>$t->{Total} total
END
foreach my $stallix (1..$#stalls) {
- tr_datarow_s($m,$dline);
+
$plan_html .=
tr_datarow_s($m,$dline);
$pstall->($stallix);
}
$pstall->($stallix);
}
@@
-1010,12
+1010,12
@@
END
<%perl>
my $sth_i= $dbh->prepare(<<END);
SELECT archipelago, islandid, islandname, timestamp
<%perl>
my $sth_i= $dbh->prepare(<<END);
SELECT archipelago, islandid, islandname, timestamp
- FROM uploads
NATURAL JOIN islands
+ FROM uploads
JOIN islands USING (islandid)
WHERE islandid = ?
END
my $sth_a= $dbh->prepare(<<END);
SELECT archipelago, islandid, islandname, timestamp
WHERE islandid = ?
END
my $sth_a= $dbh->prepare(<<END);
SELECT archipelago, islandid, islandname, timestamp
- FROM uploads
NATURAL JOIN islands
+ FROM uploads
JOIN islands USING (islandid)
WHERE archipelago = ?
ORDER BY islandname
END
WHERE archipelago = ?
ORDER BY islandname
END