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

Diff of /gnatsweb/gnatsweb.pl

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

revision 1.103 by yngves, Fri Oct 11 23:05:00 2002 UTC revision 1.104 by yngves, Sat Oct 12 11:10:31 2002 UTC
# Line 1818  sub query_page Line 1818  sub query_page
1818    {    {
1819      if (fieldinfo($_, 'fieldtype') =~ /enum/)      if (fieldinfo($_, 'fieldtype') =~ /enum/)
1820      {      {
1821        print "<tr><td>$_:</td>\n<td>";        print "<tr><td valign=top>$_:</td>\n<td>";
1822        my $value_list=fieldinfo($_, 'values');        my $value_list=fieldinfo($_, 'values');
1823        my @values=('any', @$value_list);        my @values=('any', @$value_list);
1824        if (fieldinfo($_, 'fieldtype') eq 'enum')        if (fieldinfo($_, 'fieldtype') eq 'enum')
# Line 1831  sub query_page Line 1831  sub query_page
1831          print $q->scrolling_list(-name=>$_, -values=>\@values, -size=>$size,          print $q->scrolling_list(-name=>$_, -values=>\@values, -size=>$size,
1832                                   -multiple=>'true', -defaults=>$values[0]);                                   -multiple=>'true', -defaults=>$values[0]);
1833        }        }
1834        print "</td>\n</tr>\n";        if ($_ eq $STATE_FIELD)
1835          {
1836            print "<br />",
1837                  $q->checkbox_group(-name=>'ignoreclosed',
1838                                     -values=>['Ignore Closed'],
1839                                     -defaults=>['Ignore Closed']);
1840          }
1841          elsif ($_ eq $SUBMITTER_ID_FIELD)
1842          {
1843            print "<br />",
1844                  $q->checkbox_group(-name=>'originatedbyme',
1845                                     -values=>['Originated by You'],
1846                                     -defaults=>[]);
1847          }
1848          "</td>\n</tr>\n";
1849      }      }
1850    }    }
1851        
1852    print    print
         "<tr><td></td><td>",  
         $q->checkbox_group(-name=>'ignoreclosed',  
                        -values=>['Ignore Closed'],  
                        -defaults=>['Ignore Closed']),  
         "</td>\n</tr>\n",  
         "<tr><td></td><td>",  
         $q->checkbox_group(-name=>'originatedbyme',  
                        -values=>['Originated by You'],  
                        -defaults=>[]),  
         "</td>\n</tr>\n",  
1853          "<tr>\n<td>$SYNOPSIS_FIELD Search:</td>\n<td>",          "<tr>\n<td>$SYNOPSIS_FIELD Search:</td>\n<td>",
1854          $q->textfield(-name=>$SYNOPSIS_FIELD,-size=>25),          $q->textfield(-name=>$SYNOPSIS_FIELD,-size=>25),
1855          "</td>\n</tr>\n",          "</td>\n</tr>\n",
# Line 1883  sub query_page Line 1887  sub query_page
1887                             -size=>1),                             -size=>1),
1888          "<br />",          "<br />",
1889          $q->checkbox_group(-name=>'reversesort',          $q->checkbox_group(-name=>'reversesort',
1890                             -values=>['Descending Order'],                             -values=>['Reverse Order'],
1891                             -defaults=>[]),                             -defaults=>[]),
1892          "</td>\n</tr>\n",          "</td>\n</tr>\n";
1893          "<tr>\n<td></td>\n<td>",  
1894      print "<tr valign=top>\n<td>Display:</td>\n<td>",
1895          $q->checkbox_group(-name=>'displaydate',          $q->checkbox_group(-name=>'displaydate',
1896                 -values=>['Display Current Date'],                 -values=>['Current Date'],
1897                 -defaults=>['Display Current Date']),                 -defaults=>['Current Date']),
1898          "</td>\n</tr>\n",          "</td>\n</tr>\n",
1899          "</table>\n",          "</table>\n",
1900          "<hr>\n",          "<hr>\n",
# Line 2051  sub advanced_query_page Line 2056  sub advanced_query_page
2056                             -size=>1),                             -size=>1),
2057          "<br />",          "<br />",
2058          $q->checkbox_group(-name=>'reversesort',          $q->checkbox_group(-name=>'reversesort',
2059                             -values=>['Descending Order'],                             -values=>['Reverse Order'],
2060                             -defaults=>[]),                             -defaults=>[]),
2061          "</td>\n</tr>\n",          "</td>\n</tr>\n";
2062          "<tr>\n<td colspan=2>\n",    print "<tr valign=top>\n<td>Display:</td>\n<td>",
2063          $q->checkbox_group(-name=>'displaydate',          $q->checkbox_group(-name=>'displaydate',
2064                 -values=>['Display Current Date'],                             -values=>['Current Date'],
2065                 -defaults=>['Display Current Date']),                             -defaults=>['Current Date']),
2066          "</td>\n</tr>\n",          "</td>\n</tr>\n",
2067      "</td>\n</tr>\n</table>\n";          "</td>\n</tr>\n</table>\n";
2068    print "<div>&nbsp;</div>\n";    print "<div>&nbsp;</div>\n";
2069    ### Wrapup    ### Wrapup
2070    

Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104

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