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') |
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", |
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", |
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> </div>\n"; |
print "<div> </div>\n"; |
2069 |
### Wrapup |
### Wrapup |
2070 |
|
|