oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

- Made Weather Data asset more fault tollerant.

Browse source 
- Made CS related upgrades more fault tollerant.
 - Enhanced HTTP caching directives.
This commit is contained in:
JT Smith 2007-03-07 19:12:37 +00:00
parent 9031a17c35
commit 3a8bd77cde
6 changed files with 58 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/WebGUI/Asset/Wobject/WeatherData.pm
View file

@ -190,23 +190,26 @@ to be displayed within the page style
sub view {
my $self = shift;
my %var;
foreach my $location (split("\n", $self->get("locations"))) {
my $weather = Weather::Com::Simple->new({
'partner_id' => $self->get("partnerId"),
'license' => $self->get("licenseKey"),
'place' => $location,
'cache' => '/tmp',
});
foreach my $foundLocation (@{$weather->get_weather}) {
push(@{$var{'ourLocations.loop'}}, {
query => $location,
cityState => $foundLocation->{place} || $location,
sky => $foundLocation->{conditions} || 'N/A',
tempF => $foundLocation->{temperature_fahrenheit} || 'N/A',
tempC => $foundLocation->{temperature_celsius} || 'N/A',
iconUrl => $self->session->url->extras("wobject/WeatherData/".$self->_chooseWeatherConditionsIcon($foundLocation->{conditions}).'.jpg'),
iconAlt => $foundLocation->{conditions},
});
if ($self->get("partnerId") ne "" && $self->get("licenseKey") ne "") {
foreach my $location (split("\n", $self->get("locations"))) {
my $weather = Weather::Com::Simple->new({
'partner_id' => $self->get("partnerId"),
'license' => $self->get("licenseKey"),
'place' => $location,
'cache' => '/tmp',
});
next unless defined $weather;
foreach my $foundLocation (@{$weather->get_weather}) {
push(@{$var{'ourLocations.loop'}}, {
query => $location,
cityState => $foundLocation->{place} || $location,
sky => $foundLocation->{conditions} || 'N/A',
tempF => $foundLocation->{temperature_fahrenheit} || 'N/A',
tempC => $foundLocation->{temperature_celsius} || 'N/A',
iconUrl => $self->session->url->extras("wobject/WeatherData/".$self->_chooseWeatherConditionsIcon($foundLocation->{conditions}).'.jpg'),
iconAlt => $foundLocation->{conditions},
});
}
}
}
return $self->processTemplate(\%var, undef, $self->{_viewTemplate});