exoplanets.pl   exoplanets.pl 
skipping to change at line 74 skipping to change at line 74
} elsif (scalar(@cfname)==3) { } elsif (scalar(@cfname)==3) {
$csname = $cfname[0]." ".$cfname[1]; $csname = $cfname[0]." ".$cfname[1];
$pname = $cfname[2]; $pname = $cfname[2];
} else { } else {
$csname = $cfname[0]; $csname = $cfname[0];
$pname = $cfname[1]; $pname = $cfname[1];
} }
($aname,$pmass,$pradius,$pperiod,$psemiax,$pecc,$pincl,$angdist,$psl ,$discovered,$updated,$pomega,$pt,$dtype,$mol,$starname,$sRA,$sDec,$sVmag,$ sImag,$sHmag,$sJmag,$sKmag,$sdist,$smetal,$smass,$sradius,$sstype,$sage,$se fftemp) = split(",", $currdata); ($aname,$pmass,$pradius,$pperiod,$psemiax,$pecc,$pincl,$angdist,$psl ,$discovered,$updated,$pomega,$pt,$dtype,$mol,$starname,$sRA,$sDec,$sVmag,$ sImag,$sHmag,$sJmag,$sKmag,$sdist,$smetal,$smass,$sradius,$sstype,$sage,$se fftemp) = split(",", $currdata);
($hour,$min,$sec) = split(":",$sRA); ($hour,$mint,$sect) = split(":",$sRA);
($deg,$min,$sec) = split(":",$sDec);
# fixed bug in raw data # fixed bug in raw data
$sec =~ s/-//gi; $sec =~ s/-//gi;
$outRA = $hour."h".$min."m".$sec."s"; # fixed bug for Kepler-68
if ($starname =~ m/kepler-68/gi) {
$hour = 19;
}
# fixed bug for omi CrB
if ($starname =~ m/omi\s+CrB/gi) {
$hour = 15; $mint = 20; $sect = 8.4;
$deg = 29; $min = 36; $sec = 57.9;
}
$sec =~ s/-//gi;
$sect =~ s/-//gi;
($deg,$min,$sec) = split(":",$sDec); $outRA = $hour."h".$mint."m".$sect."s";
$outDE = $deg."d".$min."m".$sec."s"; $outDE = $deg."d".$min."m".$sec."s";
$sname = $starname; $sname = $starname;
$sname =~ s/^alpha/α/gi; $sname =~ s/^alpha/α/gi;
$sname =~ s/^alf/α/gi; $sname =~ s/^alf/α/gi;
$sname =~ s/^beta/β/gi; $sname =~ s/^beta/β/gi;
$sname =~ s/^gamma/γ/gi; $sname =~ s/^gamma/γ/gi;
$sname =~ s/^delta/δ/gi; $sname =~ s/^delta/δ/gi;
$sname =~ s/^epsilon/ε/gi; $sname =~ s/^epsilon/ε/gi;
skipping to change at line 112 skipping to change at line 124
$sname =~ s/^pi/π/gi; $sname =~ s/^pi/π/gi;
$sname =~ s/^rho/ρ/gi; $sname =~ s/^rho/ρ/gi;
$sname =~ s/^sigma/σ/gi; $sname =~ s/^sigma/σ/gi;
$sname =~ s/^tau/τ/gi; $sname =~ s/^tau/τ/gi;
$sname =~ s/^upsilon/υ/gi; $sname =~ s/^upsilon/υ/gi;
$sname =~ s/^ups/υ/gi; $sname =~ s/^ups/υ/gi;
$sname =~ s/^phi/φ/gi; $sname =~ s/^phi/φ/gi;
$sname =~ s/^chi/χ/gi; $sname =~ s/^chi/χ/gi;
$sname =~ s/^psi/ψ/gi; $sname =~ s/^psi/ψ/gi;
$sname =~ s/^omega/ω/gi; $sname =~ s/^omega/ω/gi;
$sname =~ s/^ome/ω/gi;
if (($sRA ne '00:00:00.0') && ($sDec ne '+00:00:00.0')) { if (($sRA ne '00:00:00.0') && ($sDec ne '+00:00:00.0')) {
# check star # check star
$sth = $dbh->prepare(q{SELECT sid FROM stars WHERE ra_coord= ? AND dec_coord=?}); $sth = $dbh->prepare(q{SELECT sid FROM stars WHERE ra_coord= ? AND dec_coord=?});
$sth->execute($outRA, $outDE); $sth->execute($outRA, $outDE);
@starDATA = $sth->fetchrow_array(); @starDATA = $sth->fetchrow_array();
# get star ID # get star ID
if (scalar(@starDATA)!=0) { if (scalar(@starDATA)!=0) {
$starID = @starDATA[0]; $starID = @starDATA[0];
} else { } else {
 End of changes. 4 change blocks. 
3 lines changed or deleted 16 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/