Mercurial > hg > reproctool
annotate reproctool.cgi @ 15:ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
| author | df |
|---|---|
| date | Sun, 25 Jan 2009 14:40:37 +0000 |
| parents | e30154411e63 |
| children | 257e748cd08e |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/perl -T |
| 2 | |
| 3 use warnings; | |
| 4 use strict; | |
| 5 | |
| 6 use CGI; | |
| 7 use DBI; | |
|
15
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
8 use XML::DOM; |
| 0 | 9 |
| 10 # Settings | |
| 11 my $img_http_path = '/itemimgs'; | |
| 12 | |
| 13 my $cgi = new CGI; | |
| 14 print $cgi->header(-type => 'text/html', | |
| 15 -pragma => 'no-cache', | |
| 16 -expires => '-365d'); | |
| 17 | |
|
15
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
18 # Generate the first page, where eve-central mineral prices are prefilled. |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
19 # TODO: depending on the traffic, cache these eve-central prices. |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
20 my $str_items; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
21 if (! ($str_items = $cgi->param('items')) ) |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
22 { |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
23 my $min; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
24 my $eveCentralURL = 'http://eve-central.com/api/evemon'; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
25 my $xmlParser = XML::DOM::Parser->new(); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
26 my $xmlDoc = $xmlParser->parsefile($eveCentralURL); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
27 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
28 # What evenutally will be printed. |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
29 my $inputPage = <<END; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
30 <html> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
31 <body> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
32 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
33 <form action="/cgi-bin/reproctool/reproctool.cgi" method="post"> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
34 <textarea rows="5" cols="80" name="items"></textarea> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
35 <table border="0" cellspacing="4"> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
36 <tr> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
37 END |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
38 # Lists the name of the minerals. |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
39 foreach $min ($xmlDoc->getElementsByTagName('mineral')) |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
40 { |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
41 $inputPage .= sprintf( " <td>%s</td>\n", |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
42 $min->getElementsByTagName('name')->item(0)->getFirstChild->getNodeValue ); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
43 } |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
44 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
45 $inputPage .= <<END; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
46 </tr> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
47 <tr> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
48 END |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
49 foreach $min ($xmlDoc->getElementsByTagName('mineral')) |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
50 { |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
51 $inputPage .= sprintf( " <td><input type=\"text\" name=\"%s\" size=\"5\" value=\"%.2f\" /></td>\n", |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
52 $min->getElementsByTagName('name')->item(0)->getFirstChild->getNodeValue, |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
53 $min->getElementsByTagName('price')->item(0)->getFirstChild->getNodeValue ); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
54 } |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
55 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
56 $inputPage .= <<END; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
57 </tr> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
58 </table> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
59 <input type="submit" /> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
60 </form> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
61 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
62 </body> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
63 </html> |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
64 END |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
65 |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
66 print $inputPage; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
67 exit 0; |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
68 } |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
69 |
| 0 | 70 # Inputs |
| 71 my $cols = $cgi->param('cols') || 4; | |
| 72 | |
|
15
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
73 # Load mineral prices (names are generated above, but i feel |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
74 # it's safe to assume they wont change that often). |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
75 my $trit = $cgi->param('Tritanium') || die('No trit price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
76 my $pyer = $cgi->param('Pyerite') || die('No pyer price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
77 my $mexa = $cgi->param('Mexallon') || die('No mexa price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
78 my $isog = $cgi->param('Isogen') || die('No isog price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
79 my $nocx = $cgi->param('Nocxium') || die('No nocx price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
80 my $zydr = $cgi->param('Zydrine') || die('No zydr price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
81 my $mega = $cgi->param('Megacyte') || die('No mega price'); |
|
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
82 my $morp = $cgi->param('Morphite') || die('No morp price'); |
| 0 | 83 |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
84 our @dbparams; |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
85 require './dbparams.cgi'; |
|
1
c39512d94605
Adding dbparams config
Dominic Cleal <dominic@computerkb.co.uk>
parents:
0
diff
changeset
|
86 my $db = DBI->connect(@dbparams) |
| 0 | 87 or die("Database connection failure: $DBI::errstr"); |
| 88 | |
| 89 # Strip out line endings | |
| 90 $str_items =~ s/[\n\r]+//g; | |
| 91 | |
| 92 # If the items string contains the contract info too, strip it out | |
| 93 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/); | |
| 94 $str_items = $1 if ($str_items =~ /(.+)Are you sure you want to continue?/); | |
| 95 | |
| 96 # SQL lookup for reprocessing amounts | |
| 97 my $sql_reprocess = <<END; | |
| 98 SELECT | |
| 99 types.typeID, | |
| 100 types.typeName, | |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
101 attrs.valueInt, -- metaLevel |
| 0 | 102 types.basePrice, |
| 103 graphics.icon, | |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
104 SUM(CASE WHEN m1.requiredTypeID = 34 THEN m1.quantity ELSE 0 END), -- [Tritanium] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
105 SUM(CASE WHEN m1.requiredTypeID = 35 THEN m1.quantity ELSE 0 END), -- [Pyerite] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
106 SUM(CASE WHEN m1.requiredTypeID = 36 THEN m1.quantity ELSE 0 END), -- [Mexallon] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
107 SUM(CASE WHEN m1.requiredTypeID = 37 THEN m1.quantity ELSE 0 END), -- [Isogen] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
108 SUM(CASE WHEN m1.requiredTypeID = 38 THEN m1.quantity ELSE 0 END), -- [Nocxium] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
109 SUM(CASE WHEN m1.requiredTypeID = 39 THEN m1.quantity ELSE 0 END), -- [Zydrine] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
110 SUM(CASE WHEN m1.requiredTypeID = 40 THEN m1.quantity ELSE 0 END), -- [Megacyte] |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
111 SUM(CASE WHEN m1.requiredTypeID = 11399 THEN m1.quantity ELSE 0 END) -- [Morphite] |
| 0 | 112 FROM invTypes types |
| 113 INNER JOIN dgmTypeAttributes attrs ON types.typeID = attrs.typeID AND attrs.attributeID = 633 | |
| 114 INNER JOIN typeActivityMaterials m1 ON types.typeID = m1.typeID | |
| 115 INNER JOIN eveGraphics graphics ON types.graphicID = graphics.graphicID | |
| 116 WHERE types.typeName = ? | |
| 117 GROUP BY | |
| 118 types.typeID, | |
| 119 types.typeName, | |
| 120 attrs.valueInt, | |
| 121 types.basePrice | |
| 122 END | |
| 123 my $pre_reprocess = $db->prepare($sql_reprocess); | |
| 124 | |
| 125 my @output = (); | |
| 126 for my $sitem (split(/\s*,\s*/, $str_items)) | |
| 127 { | |
| 128 my ($tid, $tname, $meta, $basePrice, $icon, | |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
129 $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp); |
| 0 | 130 |
| 131 $pre_reprocess->execute($sitem) or die("Can't lookup $sitem: $DBI::errstr"); | |
| 132 $pre_reprocess->bind_columns(undef, \$tid, \$tname, \$meta, \$basePrice, | |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
133 \$icon, \$ttrit, \$tpyer, \$tmexa, \$tisog, |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
134 \$tnocx, \$tzydr, \$tmega, \$tmorp); |
| 0 | 135 |
| 136 my $item = {}; | |
| 137 if ($pre_reprocess->fetch()) | |
| 138 { | |
| 139 my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) + | |
| 140 ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) + | |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
141 ($mega * $tmega) + ($morp * $tmorp); |
| 0 | 142 |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
143 $meta = 0 unless defined $meta; |
| 0 | 144 $item = { id => $tid, name => $tname, meta => $meta, icon => $icon, |
| 145 price => $basePrice, reprocess => $isk }; | |
| 146 } | |
| 147 push @output, $item; | |
| 148 } | |
| 149 | |
| 150 my $col = 0; | |
| 151 print<<END; | |
| 152 <html> | |
| 153 <head> | |
| 154 <style type="text/css"> | |
| 155 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9 | |
| 156 { | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
157 color: #FF0000; |
| 0 | 158 } |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
159 .item |
|
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
160 { |
|
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
161 text-align: center; |
|
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
162 } |
| 0 | 163 </style> |
| 164 </head> | |
|
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
165 |
| 0 | 166 <body> |
| 167 <table> | |
| 168 END | |
| 169 | |
| 170 for my $item (@output) | |
| 171 { | |
| 172 if ($col == $cols) | |
| 173 { | |
| 174 print "</tr><tr>\n"; | |
| 175 $col = 0; | |
| 176 } | |
| 177 | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
178 my ($style, $img, $text, $link, $colour); |
| 0 | 179 |
| 180 if (defined $item->{id}) | |
| 181 { | |
| 182 $style = "meta$item->{meta}"; | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
183 $img = "typeicon:$item->{id}"; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
184 $link = "showinfo:$item->{id}"; |
| 0 | 185 if ($item->{meta} == 4) |
| 186 { | |
| 187 $text = $item->{name}; | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
188 $colour = "#FF0000"; |
| 0 | 189 } |
| 190 else | |
| 191 { | |
| 192 $text = $item->{reprocess}; | |
| 193 } | |
| 194 } | |
| 195 else | |
| 196 { | |
| 197 $text = 'Unknown item'; | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
198 $img = "typeicon:07_15"; |
| 0 | 199 } |
| 200 | |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
201 print "<td width='64' class='item'>"; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
202 print "<a href='$link'>" if defined $link; |
|
7
e30154411e63
Even a more cheapy solution, but like this we re at least not changing db data to fit it to the IGB
df
parents:
6
diff
changeset
|
203 print "<img src='$img' width='64' height='64' border='1' alt=\"$item->{name}\" />"; |
|
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
204 print "</a>" if defined $link; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
205 print "<br />"; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
206 print "<font color='$colour'>" if defined $colour; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
207 print $text; |
|
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
208 print "</font>" if defined $colour; |
| 0 | 209 print "</td>\n"; |
| 210 | |
| 211 $col++; | |
| 212 } | |
| 213 | |
| 214 print<<END; | |
| 215 </tr> | |
| 216 </table> | |
| 217 </body> | |
| 218 </html> | |
| 219 END | |
| 220 |