Changeset 473 for trunk/preferences.cgi


Ignore:
Timestamp:
Sep 16, 2004, 7:12:48 PM (17 years ago)
Author:
kake
Message:

Changes since

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/preferences.cgi

    r472 r473  
    2424
    2525sub set_preferences {
    26     my $username     = $cgi->param("username") || "";
    27     my $gc_link      = $cgi->param("include_geocache_link")  || 0;
    28     my $pre_above    = $cgi->param("preview_above_edit_box") || 0;
    29     my $latlong_trad = $cgi->param("latlong_traditional")    || 0;
    30     my $omit_hlplnks = $cgi->param("omit_help_links")        || 0;
    31     my $rc_minor_eds = $cgi->param("show_minor_edits_in_rc") || 0;
    32     my $edit_type    = $cgi->param("default_edit_type") || "normal";
    33     my $expires      = $cgi->param("cookie_expires") || "month";
    34     my $cookie = OpenGuides::CGI->make_prefs_cookie(
     26    my $username     = $cgi->param("username")                   || "";
     27    my $gc_link      = $cgi->param("include_geocache_link")      || 0;
     28    my $pre_above    = $cgi->param("preview_above_edit_box")     || 0;
     29    my $latlong_trad = $cgi->param("latlong_traditional")        || 0;
     30    my $omit_hlplnks = $cgi->param("omit_help_links")            || 0;
     31    my $rc_minor_eds = $cgi->param("show_minor_edits_in_rc")     || 0;
     32    my $edit_type    = $cgi->param("default_edit_type")          || "normal";
     33    my $expires      = $cgi->param("cookie_expires")             || "month";
     34    my $track_rc     = $cgi->param("track_recent_changes_views") || 0;
     35    my $prefs_cookie = OpenGuides::CGI->make_prefs_cookie(
    3536        config => $config,
    3637        username => $username,
     
    4243        default_edit_type      => $edit_type,
    4344        cookie_expires         => $expires,
     45        track_recent_changes_views => $track_rc,
    4446    );
     47    my @cookies = ( $prefs_cookie );
     48    # If they've asked not to have their recent changes visits tracked,
     49    # clear any existing recentchanges cookie.
     50    if ( ! $track_rc ) {
     51        my $rc_cookie = OpenGuides::CGI->make_recent_changes_cookie(
     52            config       => $config,
     53            clear_cookie => 1,
     54        );
     55        push @cookies, $rc_cookie;
     56    }
    4557    print OpenGuides::Template->output(
    4658        wiki     => $wiki,
    4759        config   => $config,
    4860        template => "preferences.tt",
    49         cookies  => $cookie,
     61        cookies  => \@cookies,
    5062        vars     => {
    51                       not_editable           => 1,
    52                       username               => $username,
    53                       include_geocache_link  => $gc_link,
    54                       preview_above_edit_box => $pre_above,
    55                       latlong_traditional    => $latlong_trad,
    56                       omit_help_links        => $omit_hlplnks,
    57                       show_minor_edits_in_rc => $rc_minor_eds,
    58                       default_edit_type      => $edit_type,
    59                       cookie_expires         => $expires,
     63                      not_editable               => 1,
     64                      username                   => $username,
     65                      include_geocache_link      => $gc_link,
     66                      preview_above_edit_box     => $pre_above,
     67                      latlong_traditional        => $latlong_trad,
     68                      omit_help_links            => $omit_hlplnks,
     69                      show_minor_edits_in_rc     => $rc_minor_eds,
     70                      default_edit_type          => $edit_type,
     71                      cookie_expires             => $expires,
     72                      track_recent_changes_views => $track_rc,
    6073                    }
    6174    );
Note: See TracChangeset for help on using the changeset viewer.