85 |
|
|
86 |
|
|
87 |
# |
# |
88 |
# Read and return the bug reporting form to the caller. |
# Read and return the preferences form to the caller. |
89 |
sub getPrefsForm( $ ) |
sub getPrefsForm( $ ) |
90 |
{ |
{ |
91 |
my ($theme) = (@_); |
my ($theme) = (@_); |
258 |
} |
} |
259 |
|
|
260 |
my $hideOgg = $ARGUMENTS{ "hideogg"}; |
my $hideOgg = $ARGUMENTS{ "hideogg"}; |
261 |
my $oggon = "checked"; |
my $oggon = ""; |
262 |
my $oggoff = ""; |
my $oggoff = "checked='checked'"; |
263 |
if ( defined( $hideOgg ) ) |
if ( defined( $hideOgg ) ) |
264 |
{ |
{ |
265 |
if ( $hideOgg ne 1 ) |
if ( $hideOgg ne 1 ) |
266 |
{ |
{ |
267 |
$oggon = ""; |
$oggon = ""; |
268 |
$oggoff = "checked"; |
$oggoff = "checked='checked'"; |
269 |
} |
} |
270 |
} |
} |
271 |
|
|
272 |
my $hideMP3 = $ARGUMENTS{ "hidemp3"}; |
my $hideMP3 = $ARGUMENTS{ "hidemp3"}; |
273 |
my $mp3on = "checked"; |
my $mp3on = ""; |
274 |
my $mp3off = ""; |
my $mp3off = "checked='checked'"; |
275 |
if ( defined( $hideMP3 ) ) |
if ( defined( $hideMP3 ) ) |
276 |
{ |
{ |
277 |
if ( $hideMP3 ne 1 ) |
if ( $hideMP3 ne 1 ) |
278 |
{ |
{ |
279 |
$mp3on = ""; |
$mp3on = ""; |
280 |
$mp3off = "checked"; |
$mp3off = "checked='checked'"; |
281 |
} |
} |
282 |
} |
} |
283 |
|
|
284 |
my $hideMOV = $ARGUMENTS{ "hidemov"}; |
my $hideMOV = $ARGUMENTS{ "hidemov"}; |
285 |
my $movon = "checked"; |
my $movon = ""; |
286 |
my $movoff = ""; |
my $movoff = "checked='checked'"; |
287 |
if ( defined( $hideMOV ) ) |
if ( defined( $hideMOV ) ) |
288 |
{ |
{ |
289 |
if ( $hideMOV ne 1 ) |
if ( $hideMOV ne 1 ) |
290 |
{ |
{ |
291 |
$movon = ""; |
$movon = ""; |
292 |
$movoff = "checked"; |
$movoff = "checked='checked'"; |
293 |
} |
} |
294 |
} |
} |
295 |
|
|
302 |
<td valign="top"><b>Song Display:</b></td> |
<td valign="top"><b>Song Display:</b></td> |
303 |
<td valign="top"> |
<td valign="top"> |
304 |
<table> |
<table> |
305 |
<tr><td><input type="radio" name="hideogg" value="0" $oggoff> Show Oggs</td> |
<tr><td><input type="radio" name="hideogg" value="0" $oggoff /> Show Oggs</td> |
306 |
<td><input type="radio" name="hideogg" value="1" $oggon> Hide Oggs</td></tr> |
<td><input type="radio" name="hideogg" value="1" $oggon /> Hide Oggs</td></tr> |
307 |
<tr><td><input type="radio" name="hidemp3" value="0" $mp3off> Show MP3s</td> |
<tr><td><input type="radio" name="hidemp3" value="0" $mp3off /> Show MP3s</td> |
308 |
<td><input type="radio" name="hidemp3" value="1" $mp3on> Hide MP3s</td></tr> |
<td><input type="radio" name="hidemp3" value="1" $mp3on /> Hide MP3s</td></tr> |
309 |
<tr><td><input type="radio" name="hidemov" value="0" $movoff> Show Movies</td> |
<tr><td><input type="radio" name="hidemov" value="0" $movoff /> Show Movies</td> |
310 |
<td><input type="radio" name="hidemov" value="1" $movon> Hide Movies</td></tr> |
<td><input type="radio" name="hidemov" value="1" $movon /> Hide Movies</td></tr> |
311 |
</table> |
</table> |
312 |
</td> |
</td> |
313 |
</tr> |
</tr> |
327 |
next if ( $name =~ /^CVS$/ ); |
next if ( $name =~ /^CVS$/ ); |
328 |
|
|
329 |
# |
# |
330 |
# Read the Author of the plugin if it's defined. |
# Read the Author of the theme if it's defined. |
331 |
# |
# |
332 |
if ( -e $theme_dir . "/" . $name . "/" . "AUTHOR" ) |
if ( -e $theme_dir . "/" . $name . "/" . "AUTHOR" ) |
333 |
{ |
{ |
342 |
|
|
343 |
if ( $ARGUMENTS{"theme"} eq $name ) |
if ( $ARGUMENTS{"theme"} eq $name ) |
344 |
{ |
{ |
345 |
$checked = "checked"; |
$checked = "checked='checked'"; |
346 |
} |
} |
347 |
$text .= "<input type=\"radio\" name=\"theme\" value=\"$name\" $checked> $name $author<br/>"; |
$text .= "<input type=\"radio\" name=\"theme\" value=\"$name\" $checked /> $name $author<br/>"; |
348 |
} |
} |
349 |
|
|
|
$text .= "</ul>\n"; |
|
|
|
|
350 |
$text .= "</td></tr>\n"; |
$text .= "</td></tr>\n"; |
351 |
$text .=<<E_O_BUG3; |
$text .=<<E_O_BUG3; |
352 |
|
|
353 |
<tr><td> </td><td><input type='submit' value='Set Preferences' /></td></tr> |
<tr><td> </td><td><input type='submit' value='Set Preferences' /></td></tr> |
354 |
</table>\n |
</table></form>\n |
355 |
E_O_BUG3 |
E_O_BUG3 |
356 |
|
|
357 |
$text .= $post; |
$text .= $post; |