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 |
{ |
{ |
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 |
} |
} |
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", |
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 |
} |
} |