Changeset 1314


Ignore:
Timestamp:
Mar 16, 2012, 4:08:13 PM (10 years ago)
Author:
kake
Message:

Fixed some line lengths.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides/Template.pm

    r1312 r1314  
    125125    my $template_path = $config->template_path;
    126126    my $custom_template_path = $config->custom_template_path || "";
    127     my $tt = Template->new( { INCLUDE_PATH => "$custom_template_path:$template_path" } );
     127    my $tt = Template->new(
     128               { INCLUDE_PATH => "$custom_template_path:$template_path" } );
    128129
    129130    my $script_name  = $config->script_name;
     
    135136    my $formatting_rules_node = $config->formatting_rules_node;
    136137    $formatting_rules_link = $config->formatting_rules_link;
    137     my %cookie_data = OpenGuides::CGI->get_prefs_from_cookie(config=>$config,
    138                                                              cookies => $args{cookies},
    139                                                             );
     138    my %cookie_data = OpenGuides::CGI->get_prefs_from_cookie(
     139                          config  => $config,
     140                          cookies => $args{cookies},
     141    );
    140142    if ( $cookie_data{omit_help_links} ) {
    141143        $omit_help_links = 1;
     
    367369    my $formatted_website_text = "";
    368370    if ( $website && $website ne "http://" && is_web_uri( $website ) ) {
    369         my $trunc_website = substr( $website, 0, $config->website_link_max_chars );
     371        my $trunc_website = substr( $website, 0,
     372                                    $config->website_link_max_chars );
    370373        unless ($website eq $trunc_website ) {
    371374            $trunc_website .= '...';
    372375        }
    373         $formatted_website_text = '<a href="' . $website . '">' . $trunc_website . '</a>';
     376        $formatted_website_text = '<a href="' . $website . '">'
     377                                  . $trunc_website . '</a>';
    374378    }
    375379
     
    432436                        coord_field_2       => "osie_y",
    433437                        dist_field          => "osie_dist",
    434                         coord_field_1_name  =>"Irish National Grid X coordinate",
    435                         coord_field_2_name  =>"Irish National Grid Y coordinate",
     438                        coord_field_1_name
     439                                       => "Irish National Grid X coordinate",
     440                        coord_field_2_name
     441                                       =>"Irish National Grid Y coordinate",
    436442                        coord_field_1_value => $metadata{osie_x}[0],
    437443                        coord_field_2_value => $metadata{osie_y}[0],
     
    452458        }
    453459    } else {
    454         foreach my $var ( qw( phone fax address postcode map_link website summary) ) {
     460        foreach my $var ( qw( phone fax address postcode map_link website
     461                              summary) ) {
    455462            $vars{$var} = $q->param($var);
    456463        }
     
    472479
    473480            # If we were sent x and y, work out lat/long; and vice versa.
    474             if ( defined $os_x && length $os_x && defined $os_y && length $os_y ) {
     481            if ( defined $os_x && length $os_x
     482                   && defined $os_y && length $os_y ) {
    475483                ( $lat, $long ) = Geo::Coordinates::OSGB::grid_to_ll(
    476484                                      $os_x, $os_y );
    477485                $lat  = sprintf( "%.6f", $lat );
    478486                $long = sprintf( "%.6f", $long );
    479             } elsif ( defined $lat && length $lat && defined $long && length $long ) {
     487            } elsif ( defined $lat && length $lat
     488                        && defined $long && length $long ) {
    480489                ( $os_x, $os_y ) = Geo::Coordinates::OSGB::ll_to_grid(
    481490                                       $lat, $long );
     
    484493            }
    485494           
    486             if ( defined $os_x && length $os_x && defined $os_y && length $os_y ) {
     495            if ( defined $os_x && length $os_x
     496                   && defined $os_y && length $os_y ) {
    487497                %vars = (
    488498                            %vars,
     
    518528
    519529            # If we were sent x and y, work out lat/long; and vice versa.
    520             if ( defined $osie_x && length $osie_x && defined $osie_y && length $osie_y ) {
     530            if ( defined $osie_x && length $osie_x
     531                   && defined $osie_y && length $osie_y ) {
    521532                ( $lat, $long ) = Geo::Coordinates::ITM::grid_to_ll(
    522533                                      $osie_x, $osie_y );
    523534                $lat  = sprintf( "%.6f", $lat );
    524535                $long = sprintf( "%.6f", $long );
    525             } elsif ( defined $lat && length $lat && defined $long && length $long ) {
     536            } elsif ( defined $lat && length $lat && defined $long
     537                        && length $long ) {
    526538                ( $osie_x, $osie_y ) = Geo::Coordinates::ITM::ll_to_grid(
    527539                                           $lat, $long );
     
    529541                $osie_y = sprintf( "%d", $osie_y );
    530542            }
    531             if ( defined $osie_x && length $osie_x && defined $osie_y && length $osie_y ) {
     543            if ( defined $osie_x && length $osie_x
     544                   && defined $osie_y && length $osie_y ) {
    532545                %vars = (
    533546                            %vars,
     
    544557                            coord_field_2       => "osie_y",
    545558                            dist_field          => "osie_dist",
    546                             coord_field_1_name  => "Irish National Grid X coordinate",
    547                             coord_field_2_name  => "Irish National Grid Y coordinate",
     559                            coord_field_1_name
     560                                         => "Irish National Grid X coordinate",
     561                            coord_field_2_name
     562                                         => "Irish National Grid Y coordinate",
    548563                            coord_field_1_value => $osie_x,
    549564                            coord_field_2_value => $osie_y,
     
    555570            my $long   = $q->param("longitude");
    556571           
    557             if ( defined $lat && length $lat && defined $long && length $long ) {
     572            if ( defined $lat && length $lat
     573                   && defined $long && length $long ) {
    558574                # Trim whitespace.
    559575                $lat =~ s/\s+//g;
Note: See TracChangeset for help on using the changeset viewer.