Changeset 680


Ignore:
Timestamp:
Oct 9, 2005, 9:59:59 PM (16 years ago)
Author:
Earle Martin
Message:

indenting was totally buggered in this file, correcting everything to consistent 4-space

File:
1 edited

Legend:

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

    r679 r680  
    127127            $formatting_rules_link = $script_url . $script_name . "?"
    128128                                   . uri_escape($args{wiki}->formatter->node_name_to_node_param($formatting_rules_node));
    129         }
     129    }
    130130    }
    131131
     
    138138    }
    139139
    140     my $tt_vars = { site_name             => $config->site_name,
    141                     cgi_url               => $script_name,
    142                     full_cgi_url          => $script_url . $script_name,
    143                     contact_email         => $config->contact_email,
    144                     stylesheet            => $config->stylesheet_url,
    145                     home_link             => $script_url . $script_name,
    146                     home_name             => $config->home_name,
    147                     navbar_on_home_page   => $config->navbar_on_home_page,
    148                     omit_help_links       => $omit_help_links,
    149                     formatting_rules_link => $formatting_rules_link,
    150                     formatting_rules_node => $formatting_rules_node,
    151                     openguides_version    => $OpenGuides::VERSION,
    152                     enable_page_deletion  => $enable_page_deletion,
    153                     language              => $config->default_language,
    154                     default_city          => $default_city,
     140    my $tt_vars = {
     141        site_name             => $config->site_name,
     142        cgi_url               => $script_name,
     143        full_cgi_url          => $script_url . $script_name,
     144        contact_email         => $config->contact_email,
     145        stylesheet            => $config->stylesheet_url,
     146        home_link             => $script_url . $script_name,
     147        home_name             => $config->home_name,
     148        navbar_on_home_page   => $config->navbar_on_home_page,
     149        omit_help_links       => $omit_help_links,
     150        formatting_rules_link => $formatting_rules_link,
     151        formatting_rules_node => $formatting_rules_node,
     152        openguides_version    => $OpenGuides::VERSION,
     153        enable_page_deletion  => $enable_page_deletion,
     154        language              => $config->default_language,
     155        default_city          => $default_city,
    155156    };
    156157
     
    171172    # vile hack
    172173    my %field_vars = OpenGuides::Template->extract_metadata_vars(
    173                                         wiki                 => $args{wiki},
    174                                         config               => $config,
    175                                         set_coord_field_vars => 1,
    176                                         metadata => {},
    177                                                            );
     174                         wiki                 => $args{wiki},
     175                         config               => $config,
     176                         set_coord_field_vars => 1,
     177                         metadata => {},
     178                     );
     179                     
    178180    $tt_vars = { %field_vars, %$tt_vars };
    179181
     
    194196
    195197  my %metadata_vars = OpenGuides::Template->extract_metadata_vars(
    196                                         wiki     => $wiki,
    197                                         config   => $config,
    198                                         metadata => $node_data{metadata} );
     198                          wiki     => $wiki,
     199                          config   => $config,
     200                          metadata => $node_data{metadata}
     201                      );
    199202
    200203  # -- or --
    201204
    202205  my %metadata_vars = OpenGuides::Template->extract_metadata_vars(
    203                                         wiki     => $wiki,
    204                                         config   => $config,
    205                                         cgi_obj  => $q );
     206                          wiki     => $wiki,
     207                          config   => $config,
     208                          cgi_obj  => $q
     209                      );
    206210
    207211  # -- then --
    208212
    209   print OpenGuides::Template->output( wiki     => $wiki,
    210                                       config   => $config,
    211                                       template => "node.tt",
    212                                       vars     => { foo => "bar",
    213                                                     %metadata_vars }
    214                                      );
     213  print OpenGuides::Template->output(
     214            wiki     => $wiki,
     215            config   => $config,
     216            template => "node.tt",
     217            vars     => { foo => "bar",
     218                          %metadata_vars }
     219        );
    215220
    216221Picks out things like categories, locales, phone number etc from
     
    247252        @loclist = @{ $metadata{locale}   || [] };
    248253    } else {
    249         my $categories_text = $q->param('categories');
    250         my $locales_text    = $q->param('locales');
    251         @catlist = sort map { s/^\s+//; s/\s+$//; $_; } # trim lead/trail space
     254        my $categories_text = $q->param('categories');
     255        my $locales_text    = $q->param('locales');
     256        @catlist = sort map { s/^\s+//; s/\s+$//; $_; } # trim lead/trail space
    252257                        split("\r\n", $categories_text);
    253         @loclist = sort map { s/^\s+//; s/\s+$//; $_; } # trim lead/trail space
     258        @loclist = sort map { s/^\s+//; s/\s+$//; $_; } # trim lead/trail space
    254259                        split("\r\n", $locales_text);
    255260    }
     
    271276        $formatted_website_text = $class->format_website_text(
    272277            formatter => $formatter,
    273             text      => $website );
     278            text      => $website
     279        );
    274280    }
    275281
    276282    my $hours_text = $args{metadata} ? $metadata{opening_hours_text}[0]
    277                                      : $q->param("hours_text");
     283                                    : $q->param("hours_text");
    278284    my %vars = (
    279285        categories             => \@categories,
    280         locales                => \@locales,
    281         category               => \@catlist,
     286        locales                => \@locales,
     287        category               => \@catlist,
    282288        locale                 => \@loclist,
    283         formatted_website_text => $formatted_website_text,
    284         hours_text             => $hours_text
     289        formatted_website_text => $formatted_website_text,
     290        hours_text             => $hours_text
    285291    );
    286292
     
    294300        if ( $geo_handler == 1 ) {
    295301            %vars = (
    296                       %vars,
    297                       coord_field_1       => "os_x",
    298                       coord_field_2       => "os_y",
    299                       dist_field          => "os_dist",
    300                       coord_field_1_name  => "OS X coordinate",
    301                       coord_field_2_name  => "OS Y coordinate",
    302                       coord_field_1_value => $metadata{os_x}[0],
    303                       coord_field_2_value => $metadata{os_y}[0],
     302                        %vars,
     303                        coord_field_1       => "os_x",
     304                        coord_field_2       => "os_y",
     305                        dist_field          => "os_dist",
     306                        coord_field_1_name  => "OS X coordinate",
     307                        coord_field_2_name  => "OS Y coordinate",
     308                        coord_field_1_value => $metadata{os_x}[0],
     309                        coord_field_2_value => $metadata{os_y}[0],
    304310                    );
    305         } elsif ( $geo_handler == 2 ) {
     311        } elsif ( $geo_handler == 2 ) {
    306312            %vars = (
    307                       %vars,
    308                       coord_field_1       => "osie_x",
    309                       coord_field_2       => "osie_y",
    310                       dist_field          => "osie_dist",
    311                       coord_field_1_name  =>"Irish National Grid X coordinate",
    312                       coord_field_2_name  =>"Irish National Grid Y coordinate",
    313                       coord_field_1_value => $metadata{osie_x}[0],
    314                       coord_field_2_value => $metadata{osie_y}[0],
     313                        %vars,
     314                        coord_field_1       => "osie_x",
     315                        coord_field_2       => "osie_y",
     316                        dist_field          => "osie_dist",
     317                        coord_field_1_name  =>"Irish National Grid X coordinate",
     318                        coord_field_2_name  =>"Irish National Grid Y coordinate",
     319                        coord_field_1_value => $metadata{osie_x}[0],
     320                        coord_field_2_value => $metadata{osie_y}[0],
    315321                    );
    316         } else {
     322        } else {
    317323            %vars = (
    318                       %vars,
    319                       coord_field_1       => "latitude",
    320                       coord_field_2       => "longitude",
    321                       dist_field          => "latlong_dist",
    322                       coord_field_1_name  => "Latitude (decimal)",
    323                       coord_field_2_name  => "Longitude (decimal)",
    324                       coord_field_1_value => $metadata{latitude}[0],
    325                       coord_field_2_value => $metadata{longitude}[0],
     324                        %vars,
     325                        coord_field_1       => "latitude",
     326                        coord_field_2       => "longitude",
     327                        dist_field          => "latlong_dist",
     328                        coord_field_1_name  => "Latitude (decimal)",
     329                        coord_field_2_name  => "Longitude (decimal)",
     330                        coord_field_1_value => $metadata{latitude}[0],
     331                        coord_field_2_value => $metadata{longitude}[0],
    326332                    );
    327         }
     333        }
    328334    } else {
    329335        foreach my $var ( qw( phone fax address postcode map_link website) ) {
     
    333339        my $geo_handler = $config->geo_handler;
    334340        if ( $geo_handler == 1 ) {
    335             require Geography::NationalGrid::GB;
    336             my $os_x   = $q->param("os_x");
    337             my $os_y   = $q->param("os_y");
    338             my $lat    = $q->param("latitude");
    339             my $long   = $q->param("longitude");
     341            require Geography::NationalGrid::GB;
     342            my $os_x   = $q->param("os_x");
     343            my $os_y   = $q->param("os_y");
     344            my $lat    = $q->param("latitude");
     345            my $long   = $q->param("longitude");
    340346
    341347            # Trim whitespace - trailing whitespace buggers up the
     
    345351            $os_y =~ s/\s+//g;
    346352
    347             # If we were sent x and y, work out lat/long; and vice versa.
    348             if ( $os_x && $os_y ) {
    349                 my $point = Geography::NationalGrid::GB->new( Easting =>$os_x,
    350                                                               Northing=>$os_y);
     353            # If we were sent x and y, work out lat/long; and vice versa.
     354            if ( $os_x && $os_y ) {
     355                my $point = Geography::NationalGrid::GB->new( Easting =>$os_x,
     356                                     Northing=>$os_y);
    351357                $lat  = sprintf("%.6f", $point->latitude);
    352358                $long = sprintf("%.6f", $point->longitude);
    353             } elsif ( $lat && $long ) {
    354                 my $point = Geography::NationalGrid::GB->new(Latitude =>$lat,
    355                                                              Longitude=>$long);
     359            } elsif ( $lat && $long ) {
     360                my $point = Geography::NationalGrid::GB->new(Latitude  => $lat,
     361                                                             Longitude => $long);
    356362                $os_x = $point->easting;
    357363                $os_y = $point->northing;
    358             }
     364            }
     365           
    359366            if ( $os_x && $os_y ) {
    360                 %vars = (
    361                           %vars,
    362                           latitude  => $lat,
    363                           longitude => $long,
    364                           os_x      => $os_x,
    365                           os_y      => $os_y,
    366                         );
    367             }
     367                %vars = (
     368                            %vars,
     369                            latitude  => $lat,
     370                            longitude => $long,
     371                            os_x      => $os_x,
     372                            os_y      => $os_y,
     373                        );
     374            }
    368375            if ( $args{set_coord_field_vars} ) {
    369376                %vars = (
    370                           %vars,
    371                           coord_field_1       => "os_x",
    372                           coord_field_2       => "os_y",
    373                           dist_field          => "os_dist",
    374                           coord_field_1_name  => "OS X coordinate",
    375                           coord_field_2_name  => "OS Y coordinate",
    376                           coord_field_1_value => $os_x,
    377                           coord_field_2_value => $os_y,
     377                            %vars,
     378                            coord_field_1       => "os_x",
     379                            coord_field_2       => "os_y",
     380                            dist_field          => "os_dist",
     381                            coord_field_1_name  => "OS X coordinate",
     382                            coord_field_2_name  => "OS Y coordinate",
     383                            coord_field_1_value => $os_x,
     384                            coord_field_2_value => $os_y,
    378385                        );
    379             }
    380         } elsif ( $geo_handler == 2 ) {
    381             require Geography::NationalGrid::IE;
    382             my $osie_x = $q->param("osie_x");
    383             my $osie_y = $q->param("osie_y");
    384             my $lat    = $q->param("latitude");
    385             my $long   = $q->param("longitude");
     386            }
     387        } elsif ( $geo_handler == 2 ) {
     388            require Geography::NationalGrid::IE;
     389            my $osie_x = $q->param("osie_x");
     390            my $osie_y = $q->param("osie_y");
     391            my $lat    = $q->param("latitude");
     392            my $long   = $q->param("longitude");
    386393
    387394            # Trim whitespace.
     
    389396            $osie_y =~ s/\s+//g;
    390397
    391             # If we were sent x and y, work out lat/long; and vice versa.
    392             if ( $osie_x && $osie_y ) {
    393                 my $point = Geography::NationalGrid::IE->new(Easting=>$osie_x,
    394                                                             Northing=>$osie_y);
     398            # If we were sent x and y, work out lat/long; and vice versa.
     399            if ( $osie_x && $osie_y ) {
     400                my $point = Geography::NationalGrid::IE->new(Easting=>$osie_x,
     401                                   Northing=>$osie_y);
    395402                $lat = sprintf("%.6f", $point->latitude);
    396                 $long = sprintf("%.6f", $point->longitude);
    397             } elsif ( $lat && $long ) {
    398                 my $point = Geography::NationalGrid::GB->new(Latitude =>$lat,
    399                                                              Longitude=>$long);
     403                $long = sprintf("%.6f", $point->longitude);
     404            } elsif ( $lat && $long ) {
     405                my $point = Geography::NationalGrid::GB->new(Latitude  => $lat,
     406                                                             Longitude => $long);
    400407                $osie_x = $point->easting;
    401408                $osie_y = $point->northing;
    402             }
    403             if ( $osie_x && $osie_y ) {
    404                 %vars = (
    405                           %vars,
    406                           latitude  => $lat,
    407                           longitude => $long,
    408                           osie_x    => $osie_x,
    409                           osie_y    => $osie_y,
    410                         );
    411             }
     409            }
     410            if ( $osie_x && $osie_y ) {
     411                %vars = (
     412                            %vars,
     413                            latitude  => $lat,
     414                            longitude => $long,
     415                            osie_x    => $osie_x,
     416                            osie_y    => $osie_y,
     417                        );
     418            }
    412419            if ( $args{set_coord_field_vars} ) {
    413420                %vars = (
    414                           %vars,
    415                           coord_field_1       => "osie_x",
    416                           coord_field_2       => "osie_y",
    417                           dist_field          => "osie_dist",
    418                      coord_field_1_name  => "Irish National Grid X coordinate",
    419                      coord_field_2_name  => "Irish National Grid Y coordinate",
    420                           coord_field_1_value => $osie_x,
    421                           coord_field_2_value => $osie_y,
     421                            %vars,
     422                            coord_field_1       => "osie_x",
     423                            coord_field_2       => "osie_y",
     424                            dist_field          => "osie_dist",
     425                            coord_field_1_name  => "Irish National Grid X coordinate",
     426                            coord_field_2_name  => "Irish National Grid Y coordinate",
     427                            coord_field_1_value => $osie_x,
     428                            coord_field_2_value => $osie_y,
    422429                        );
    423             }
    424         } elsif ( $geo_handler == 3 ) {
    425             require Geo::Coordinates::UTM;
    426             my $lat    = $q->param("latitude");
    427             my $long   = $q->param("longitude");
     430            }
     431        } elsif ( $geo_handler == 3 ) {
     432            require Geo::Coordinates::UTM;
     433            my $lat    = $q->param("latitude");
     434            my $long   = $q->param("longitude");
     435           
    428436            if ( $lat && $long ) {
    429437                # Trim whitespace.
     
    435443                $easting  =~ s/\..*//; # chop off decimal places
    436444                $northing =~ s/\..*//; # - metre accuracy enough
    437                 %vars = ( %vars,
    438                           latitude  => $lat,
    439                           longitude => $long,
    440                           easting   => $easting,
    441                           northing  => $northing,
    442                         );
    443             }
    444             if ( $args{set_coord_field_vars} ) {
    445445                %vars = (
    446                           %vars,
    447                           coord_field_1       => "latitude",
    448                           coord_field_2       => "longitude",
    449                           dist_field          => "latlong_dist",
    450                           coord_field_1_name  => "Latitude (decimal)",
    451                           coord_field_2_name  => "Longitude (decimal)",
    452                           coord_field_1_value => $lat,
    453                           coord_field_2_value => $long,
     446                            %vars,
     447                            latitude  => $lat,
     448                            longitude => $long,
     449                            easting   => $easting,
     450                            northing  => $northing,
    454451                        );
    455             }
    456         }
     452             }
     453             if ( $args{set_coord_field_vars} ) {
     454                %vars = (
     455                            %vars,
     456                            coord_field_1       => "latitude",
     457                            coord_field_2       => "longitude",
     458                            dist_field          => "latlong_dist",
     459                            coord_field_1_name  => "Latitude (decimal)",
     460                            coord_field_2_name  => "Longitude (decimal)",
     461                            coord_field_1_value => $lat,
     462                            coord_field_2_value => $long,
     463                        );
     464             }
     465        }
    457466    }
    458467
Note: See TracChangeset for help on using the changeset viewer.