Changeset 676


Ignore:
Timestamp:
Oct 5, 2005, 3:56:36 AM (16 years ago)
Author:
Earle Martin
Message:

Replace some errant tabstops with four spaces each; this should normalise the indenting in this file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r675 r676  
    187187    my %metadata_vars = OpenGuides::Template->extract_metadata_vars(
    188188                            wiki     => $wiki,
    189                             config   => $config,
     189                config   => $config,
    190190                            metadata => $node_data{metadata} );
    191191
    192192    %tt_vars = (
    193193                 %tt_vars,
    194                 %metadata_vars,
    195                 content       => $content,
    196                 last_modified => $modified,
    197                 version       => $node_data{version},
     194        %metadata_vars,
     195        content       => $content,
     196        last_modified => $modified,
     197        version       => $node_data{version},
    198198                 node          => $id,
    199199                 language      => $config->default_language,
     
    230230                  url         => $config->script_name . "?"
    231231          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    232                 }
     232            }
    233233                       } @rc;
    234234            if ( scalar @rc ) {
    235235                $recent_changes{since} = \@rc;
    236             }
     236            }
    237237        } else {
    238238            for my $days ( [0, 1], [1, 7], [7, 14], [14, 30] ) {
     
    254254                  url         => $config->script_name . "?"
    255255          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    256                 }
     256            }
    257257                           } @rc;
    258258                if ( scalar @rc ) {
    259259                    $recent_changes{$days->[1]} = \@rc;
    260                 }
    261             }
     260            }
     261            }
    262262        }
    263263        $tt_vars{recent_changes} = \%recent_changes;
     
    268268                               );
    269269        if ( !$since && $self->get_cookie("track_recent_changes_views") ) {
    270             my $cookie =
     270        my $cookie =
    271271               OpenGuides::CGI->make_recent_changes_cookie(config => $config );
    272272            $processing_args{cookies} = $cookie;
     
    343343                                        node          => $args{id},
    344344                                        left_version  => $args{version},
    345                                         right_version => $args{other_version},
     345                                   right_version => $args{other_version},
    346346                                              );
    347347    $diff_vars{not_deletable} = 1;
     
    396396    my @results = map {
    397397        { url   => CGI->escape($formatter->node_name_to_node_param($_)),
    398           title => CGI->escapeHTML($_)
     398      title => CGI->escapeHTML($_)
    399399        }             } sort @backlinks;
    400400    my %tt_vars = ( results       => \@results,
     
    453453                value => $args{value}, # for RDF version
    454454                name  => CGI->escapeHTML("Fuzzy Title Match on '$args{value}'")
    455             };
    456             $tt_vars{not_editable} = 1;
     455        };
     456        $tt_vars{not_editable} = 1;
    457457        } else {
    458458            @selnodes = $wiki->list_nodes_by_metadata(
    459459                metadata_type  => $args{type},
    460                 metadata_value => $args{value},
     460            metadata_value => $args{value},
    461461                ignore_case    => 1
    462462            );
     
    473473                value => $args{value}, # for RDF version
    474474                name  => CGI->escapeHTML( $name ),
    475                 url   => $url
     475            url   => $url
    476476            };
    477             $tt_vars{not_editable} = 1;
     477        $tt_vars{not_editable} = 1;
    478478        }
    479479    } else {
     
    483483    my @nodes = map { { name      => $_,
    484484                        node_data => { $wiki->retrieve_node( name => $_ ) },
    485                         param     => $formatter->node_name_to_node_param($_) }
    486                     } sort @selnodes;
     485            param     => $formatter->node_name_to_node_param($_) }
     486            } sort @selnodes;
    487487
    488488    $tt_vars{nodes} = \@nodes;
     
    494494      if ( $args{format} eq "rdf" )
    495495      {
    496         $template = "rdf_index.tt";
     496    $template = "rdf_index.tt";
    497497        $conf{content_type} = "text/plain";
    498498      }
     
    548548    for my $version ( 1 .. $curr_version ) {
    549549        my %node_data = $self->wiki->retrieve_node( name    => $node,
    550                                                     version => $version );
     550                                  version => $version );
    551551        # $node_data{version} will be zero if this version was deleted.
    552         push @history, {
     552    push @history, {
    553553            version  => CGI->escapeHTML( $version ),
    554             modified => CGI->escapeHTML( $node_data{last_modified} ),
     554        modified => CGI->escapeHTML( $node_data{last_modified} ),
    555555            username => CGI->escapeHTML( $node_data{metadata}{username}[0] ),
    556556            comment  => CGI->escapeHTML( $node_data{metadata}{comment}[0] ),
     
    559559    @history = reverse @history;
    560560    my %tt_vars = ( node          => $node,
    561                     version       => $curr_version,
     561            version       => $curr_version,
    562562                    not_deletable => 1,
    563563                    not_editable  => 1,
    564564                    deter_robots  => 1,
    565                     history       => \@history );
     565            history       => \@history );
    566566    return %tt_vars if $args{return_tt_vars};
    567567    my $output = $self->process_template(
     
    620620
    621621    my $rdf_writer = OpenGuides::RDF->new( wiki   => $self->wiki,
    622                                            config => $self->config );
     622                       config => $self->config );
    623623    my $output = "Content-Type: text/plain\n";
    624624    $output .= "Last-Modified: " . $rdf_writer->rss_timestamp( %criteria ) . "\n\n";
     
    680680        wiki    => $wiki,
    681681        config  => $config,
    682         cgi_obj => $q
     682    cgi_obj => $q
    683683    );
    684684
     
    696696        my $lctype = lc($type);
    697697        foreach my $index (@{$metadata{$lctype}}) {
    698             $index =~ s/(.*)/\u$1/;
    699             my $node = $type . " " . $index;
    700             # Uppercase the node name before checking for existence
    701             $node =~ s/ (\S+)/ \u$1/g;
    702             unless ( $wiki->node_exists($node) ) {
    703                 my $category = $type eq "Category" ? "Category" : "Locales";
    704                 $wiki->write_node( $node,
    705                                    "\@INDEX_LINK [[$node]]",
    706                                    undef,
    707                                    { username => "Auto Create",
    708                                      comment  => "Auto created $lctype stub page",
    709                                      category => $category
    710                                    }
    711                 );
    712             }
    713         }
    714     }
    715        
     698        $index =~ s/(.*)/\u$1/;
     699        my $node = $type . " " . $index;
     700        # Uppercase the node name before checking for existence
     701        $node =~ s/ (\S+)/ \u$1/g;
     702        unless ( $wiki->node_exists($node) ) {
     703            my $category = $type eq "Category" ? "Category" : "Locales";
     704        $wiki->write_node( $node,
     705                           "\@INDEX_LINK [[$node]]",
     706                   undef,
     707                   { username => "Auto Create",
     708                     comment  => "Auto created $lctype stub page",
     709                     category => $category
     710                   }
     711        );
     712        }
     713    }
     714    }
     715   
    716716    foreach my $var ( qw( username comment edit_type ) ) {
    717717        $metadata{$var} = $q->param($var) || "";
     
    840840    my ($self, %args) = @_;
    841841    my %output_conf = ( wiki     => $self->wiki,
    842                         config   => $self->config,
    843                         node     => $args{id},
    844                         template => $args{template},
    845                         vars     => $args{tt_vars},
     842            config   => $self->config,
     843            node     => $args{id},
     844            template => $args{template},
     845            vars     => $args{tt_vars},
    846846                        cookies  => $args{cookies},
    847847    );
Note: See TracChangeset for help on using the changeset viewer.