← Back to branch summary

~ubuntu-branches/debian/sid/stellarium/sid

« back to all changes in this revision

Viewing changes to plugins/Exoplanets/util/exoplanets.pl

  • Committer: Package Import Robot
  • Author(s): Tomasz Buchert
  • Date: 2013-08-04 15:06:55 UTC
  • mfrom: (1.2.12)
  • Revision ID: package-import@ubuntu.com-20130804150655-iji0vb5navh3lk13
Tags: 0.12.2-1
* Imported Upstream version 0.12.2
* Added dependency to phonon (to enable video/sound)
* Fixed VCS links
* Removed unused lintian tag (embedded-library glee)
* Dropped obsolete patch
* Update copyright

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/Exoplanets/util/exoplanets.pl
71
71
        
72
72
        ($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,$sefftemp) = split(",", $currdata);
73
73
 
74
 
        ($hour,$min,$sec) = split(":",$sRA);
 
74
        ($hour,$mint,$sect) = split(":",$sRA);
 
75
        ($deg,$min,$sec) = split(":",$sDec);
75
76
        # fixed bug in raw data
76
77
        $sec =~ s/-//gi;
77
 
        $outRA = $hour."h".$min."m".$sec."s";
78
 
 
79
 
        ($deg,$min,$sec) = split(":",$sDec);
 
78
        # fixed bug for Kepler-68
 
79
        if ($starname =~ m/kepler-68/gi) {
 
80
                $hour = 19;
 
81
        }
 
82
        # fixed bug for omi CrB
 
83
        if ($starname =~ m/omi\s+CrB/gi) {
 
84
                $hour = 15; $mint = 20; $sect = 8.4;
 
85
                $deg = 29; $min = 36; $sec = 57.9;
 
86
        }
 
87
        
 
88
        $sec =~ s/-//gi;
 
89
        $sect =~ s/-//gi;
 
90
        
 
91
        $outRA = $hour."h".$mint."m".$sect."s";
80
92
        $outDE = $deg."d".$min."m".$sec."s";
81
93
        
82
94
        $sname = $starname;
109
121
        $sname =~ s/^chi/χ/gi;
110
122
        $sname =~ s/^psi/ψ/gi;
111
123
        $sname =~ s/^omega/ω/gi;
 
124
        $sname =~ s/^ome/ω/gi;
112
125
        
113
126
        if (($sRA ne '00:00:00.0') && ($sDec ne '+00:00:00.0')) {
114
127
                # check star