/[gnump3d]/gnump3d/lib/gnump3d/plugins/prefs.pm
ViewVC logotype

Diff of /gnump3d/lib/gnump3d/plugins/prefs.pm

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

revision 1.4 by skx, Wed Oct 29 14:58:06 2003 UTC revision 1.5 by skx, Tue Nov 4 13:50:06 2003 UTC
# Line 85  sub handlePath( ) Line 85  sub handlePath( )
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) = (@_);
# Line 258  E_O_SORT Line 258  E_O_SORT
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    
# Line 302  E_O_SORT Line 302  E_O_SORT
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>
# Line 327  E_O_BUG2 Line 327  E_O_BUG2
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                  {                  {
# Line 342  E_O_BUG2 Line 342  E_O_BUG2
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>&nbsp;</td><td><input type='submit' value='Set Preferences' /></td></tr>  <tr><td>&nbsp;</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;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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