Changeset 10466


Ignore:
Timestamp:
2005-08-10T15:48:25+12:00 (19 years ago)
Author:
chi
Message:

convert_to pagedimg_(gif|jpg|png) will only be shown in the PPTPlug when the windows_scripting is on.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/PPTPlug.pm

    r10427 r10466  
    3636}
    3737
     38my $convert_to_list =
     39    [ { 'name' => "auto",
     40    'desc' => "{ConvertToPlug.convert_to.auto}" },
     41      { 'name' => "html",
     42    'desc' => "{ConvertToPlug.convert_to.html}" },
     43      { 'name' => "text",
     44    'desc' => "{ConvertToPlug.convert_to.text}" },
     45      { 'name' => "pagedimg_jpg",
     46    'desc' => "{ConvertToPlug.convert_to.pagedimg_jpg}" },
     47      { 'name' => "pagedimg_gif",
     48    'desc' => "{ConvertToPlug.convert_to.pagedimg_gif}" },
     49      { 'name' => "pagedimg_png",
     50    'desc' => "{ConvertToPlug.convert_to.pagedimg_png}" }
     51      ];
     52
    3853my $arguments =
    3954    [ { 'name' => "process_exp",
    … …  
    5671
    5772    if ($ENV{'GSDLOS'} =~ m/^windows$/i) {
    58     my $ws_arg = { 'name' => "windows_scripting",
    59                'desc' => "PPTPlug.windows_scripting}",
     73    my $ws_arg =[{ 'name' => "convert_to",
     74               'desc' => "{ConvertToPlug.convert_to}",
     75               'type' => "enum",
     76               'reqd' => "yes",
     77               'list' => $convert_to_list,
     78               'deft' => "html" },
     79             { 'name' => "windows_scripting",
     80               'desc' => "{PPTPlug.windows_scripting}",
    6081               'type' => "flag",
    61                'reqd' => "no" };
    62     push(@$arguments,$ws_arg);
     82               'reqd' => "no" }
     83             ];
     84    push(@$arguments,@$ws_arg);
    6385    }
    6486   
Note: See TracChangeset for help on using the changeset viewer.