/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by yngves, Thu Nov 29 22:29:19 2001 UTC revision 1.84 by yngves, Fri Nov 30 13:05:26 2001 UTC
# Line 2443  sub display_query_results Line 2443  sub display_query_results
2443    }    }
2444            
2445    # Print the PR's.    # Print the PR's.
   my $myurl = $q->url();  
2446    my @fieldtypes = map { fieldinfo ($_, 'fieldtype') } @ufields;    my @fieldtypes = map { fieldinfo ($_, 'fieldtype') } @ufields;
2447    foreach (@sorted_prs)    foreach (@sorted_prs)
2448    {    {
# Line 2519  sub display_query_results Line 2518  sub display_query_results
2518    # Note: include hidden 'cmd' so user can simply press Enter w/o clicking.    # Note: include hidden 'cmd' so user can simply press Enter w/o clicking.
2519    print $q->hidden(-name=>'cmd', -value=>'store query', -override=>1),    print $q->hidden(-name=>'cmd', -value=>'store query', -override=>1),
2520          $q->submit('cmd', 'store query'),          $q->submit('cmd', 'store query'),
2521            $q->hidden('return_url', $q->self_url()),
2522          "\n</td>\n</tr>\n</table>",          "\n</td>\n</tr>\n</table>",
2523          $q->end_form();          $q->end_form();
2524  }  }
# Line 2580  sub store_query Line 2580  sub store_query
2580                                -value => $query_string,                                -value => $query_string,
2581                                -path => $global_cookie_path,                                -path => $global_cookie_path,
2582                                -expires => '+10y');                                -expires => '+10y');
   print_header(-cookie => $new_cookie);  
2583    
2584    # Now print the page.    # Now print the page.
2585    my $page = 'Query Saved';    my $page = 'Query Saved';
2586    page_start_html($page);    my $return_url = $q->param('return_url') || get_script_name();
2587      my $refresh = 5;
2588    
2589      print_header(-Refresh => "$refresh; URL=$return_url",
2590                   -cookie => $new_cookie);
2591    
2592      # Workaround for MSIE:
2593      my @extra_head_args = (-head => $q->meta({-http_equiv=>'Refresh',
2594                                                -content=>"$refresh; URL=$return_url"}));
2595    
2596      page_start_html($page, 0, \@extra_head_args);
2597    
2598    page_heading($page, 'Query Saved');    page_heading($page, 'Query Saved');
2599    print "<h2>debugging</h2><pre>",    print "<h2>debugging</h2><pre>",
2600          "query_string: $query_string",          "query_string: $query_string",
# Line 2593  sub store_query Line 2603  sub store_query
2603          if $debug;          if $debug;
2604    print "<p>Your query \"$queryname\" has been saved.  It will be available ",    print "<p>Your query \"$queryname\" has been saved.  It will be available ",
2605          "the next time you reload the Query page.</p>";          "the next time you reload the Query page.</p>";
2606      print "<p>You will be returned to <a href=\"$return_url\">your previous page ",
2607            "</a> in $refresh seconds...</p>";
2608    page_footer($page);    page_footer($page);
2609    page_end_html($page);    page_end_html($page);
2610  }  }

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26