Changeset 12169


Ignore:
Timestamp:
2006-07-12T14:12:36+12:00 (18 years ago)
Author:
mdewsnip
Message:

Tidied up that horrible long line in the new() function of every plugin.

Location:
trunk/gsdl/perllib/plugins
Files:
46 edited

Legend:

Unmodified
Added
Removed

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

    r11995 r12169  
    6666    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6767
    68     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     68    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6969
    7070    return bless $self, $class;

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

    r11527 r12169  
    9090    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    9191
    92     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     92    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    9393
    9494    return bless $self, $class;

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

    r10254 r12169  
    8888    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    8989
    90     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     90    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    9191
    9292    return bless $self, $class;

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

    r11920 r12169  
    6161    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6262
    63     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     63    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6464
    6565    return bless $self, $class;

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

    r11834 r12169  
    141141    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    142142
    143     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     143    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    144144   
    145145    if ($self->{'info_only'}) {

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

    r11834 r12169  
    5252    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    5353
    54     my $self = (defined $hashArgOptLists)? new RogPlug($pluginlist,$inputargs,$hashArgOptLists): new RogPlug($pluginlist,$inputargs);
     54    my $self = new RogPlug($pluginlist, $inputargs, $hashArgOptLists);
    5555
    5656    $self->{'convert_to'} = "Rog";

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

    r11090 r12169  
    6767    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6868
    69     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     69    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7070
    7171    return bless $self, $class;

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

    r11676 r12169  
    107107    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    108108
    109     $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     109    $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    110110   
    111111    #create XML::Parser object for parsing dublin_core.xml files

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

    r10839 r12169  
    120120    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    121121
    122     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     122    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    123123
    124124    $self->{'assoc_filenames'} = {}; # to save attach names so we don't clobber

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

    r10580 r12169  
    5858    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    5959   
    60     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     60    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    6161
    6262    if ($self->{'info_only'}) {

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

    r11390 r12169  
    7474    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7575
    76     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     76    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7777
    7878    return bless $self, $class;

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

    r10347 r12169  
    6060    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6161
    62     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     62    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6363
    6464    return bless $self, $class;

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

    r10254 r12169  
    6363    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6464
    65     my $self = (defined $hashArgOptLists)? new XMLPlug($pluginlist,$inputargs,$hashArgOptLists): new XMLPlug($pluginlist,$inputargs);
     65    my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    6666
    6767    $self->{'section'} = "";

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

    r11090 r12169  
    6363    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6464
    65     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     65    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6666
    6767    return bless $self, $class;

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

    r10254 r12169  
    7575    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7676
    77     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     77    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7878
    7979    return bless $self, $class;

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

    r11538 r12169  
    121121    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    122122   
    123 
    124     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     123    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    125124   
    126125    if ($self->{'w3mir'}) {

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

    r11546 r12169  
    107107    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    108108
    109     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     109    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    110110
    111111    return bless $self, $class;

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

    r11834 r12169  
    9595    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    9696
    97     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     97    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    9898
    9999    # Check that ImageMagick is installed and available on the path (except for Windows 95/98)

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

    r10254 r12169  
    8383    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    8484
    85     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     85    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    8686
    8787    return bless $self, $class;

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

    r11390 r12169  
    6666    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6767
    68     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     68    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6969
    7070    $self->{'aux_files'} = {};

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

    r11676 r12169  
    7878    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7979
    80     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     80    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    8181
    8282    return bless $self, $class;

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

    r10254 r12169  
    6868    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6969
    70     my $self = (defined $hashArgOptLists)? new XMLPlug($pluginlist,$inputargs,$hashArgOptLists): new XMLPlug($pluginlist,$inputargs);
     70    my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    7171
    7272    $self->{'section'} = "";

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

    r11834 r12169  
    7575    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7676
    77     my $self = (defined $hashArgOptLists)? new UnknownPlug($pluginlist,$inputargs,$hashArgOptLists): new UnknownPlug($pluginlist,$inputargs);
     77    my $self = new UnknownPlug($pluginlist, $inputargs, $hashArgOptLists);
    7878
    7979    return bless $self, $class;

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

    r11390 r12169  
    7373    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7474
    75     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     75    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7676   
    7777    return bless $self, $class;

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

    r10254 r12169  
    6464    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6565
    66     my $self = (defined $hashArgOptLists)? new XMLPlug($pluginlist,$inputargs,$hashArgOptLists): new XMLPlug($pluginlist,$inputargs);
     66    my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    6767
    6868    return bless $self, $class;

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

    r11834 r12169  
    7575    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7676   
    77     my $self = (defined $hashArgOptLists)? new UnknownPlug($pluginlist,$inputargs,$hashArgOptLists): new UnknownPlug($pluginlist,$inputargs);
     77    my $self = new UnknownPlug($pluginlist, $inputargs, $hashArgOptLists);
    7878   
    7979    return bless $self, $class;

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

    r11834 r12169  
    6666    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6767
    68     my $self = (defined $hashArgOptLists)? new XMLPlug($pluginlist,$inputargs,$hashArgOptLists): new XMLPlug($pluginlist,$inputargs);
     68    my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    6969
    7070    $self->{'section'} = "";

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

    r11122 r12169  
    114114
    115115    my @arg_array = @$inputargs;
    116     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     116    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    117117   
    118118    if ($self->{'info_only'}) {

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

    r11679 r12169  
    9090
    9191    my @arg_array = @$inputargs;
    92     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     92    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    9393 
    9494    if ($self->{'info_only'}) {

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

    r10888 r12169  
    9696    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    9797   
    98     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     98    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    9999
    100100    if ($self->{'info_only'}) {

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

    r11881 r12169  
    234234    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    235235   
    236     my $self = (defined $hashArgOptLists)? new XMLPlug($pluginlist,$inputargs,$hashArgOptLists): new XMLPlug($pluginlist,$inputargs);
     236    my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    237237   
    238238    return bless $self, $class;

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

    r10254 r12169  
    8383    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    8484
    85     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     85    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    8686
    8787    return bless $self, $class;

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

    r10580 r12169  
    6262    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6363 
    64     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     64    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    6565
    6666    if ($self->{'info_only'}) {

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

    r11834 r12169  
    7272    if (defined $options) { push(@{$hashArgOptLists->{"OptList"}}, $options); }
    7373
    74     my $self = (defined $hashArgOptLists) ? new UnknownPlug($pluginlist, $inputargs, $hashArgOptLists) : new UnknownPlug($pluginlist, $inputargs);
     74    my $self = new UnknownPlug($pluginlist, $inputargs, $hashArgOptLists);
    7575   
    7676    return bless $self, $class;

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

    r11919 r12169  
    141141    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    142142
    143     $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     143    $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    144144    if ($self->{'use_metadata_files'}) {
    145145    # create XML::Parser object for parsing metadata.xml files

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

    r11827 r12169  
    111111    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    112112
    113     my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs);
     113    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
    114114
    115115    return bless $self, $class;

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

    r11676 r12169  
    6161    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6262
    63     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     63    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    6464
    6565    return bless $self, $class;

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

    r10347 r12169  
    8080    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    8181
    82     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     82    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    8383
    8484    return bless $self, $class;

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

    r11335 r12169  
    7676    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    7777
    78     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     78    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7979
    8080    $self->{'textcat_store'} = {};

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

    r11893 r12169  
    9191    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    9292   
    93     my $self = (defined $hashArgOptLists)? new HTMLPlug($pluginlist,$inputargs,$hashArgOptLists): new HTMLPlug($pluginlist,$inputargs);
     93    my $self = new HTMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    9494   
    9595    return bless $self, $class;

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

    r10254 r12169  
    6767    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    6868
    69     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     69    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7070
    7171    return bless $self, $class;

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

    r11834 r12169  
    107107    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    108108
    109     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     109    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    110110
    111111    # "-process_extension" is a simpler alternative to -process_exp for non-regexp people

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

    r11834 r12169  
    232232    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    233233
    234     my $self = (defined $hashArgOptLists)? new HTMLPlug($pluginlist,$inputargs,$hashArgOptLists): new HTMLPlug($pluginlist,$inputargs);
     234    my $self = new HTMLPlug($pluginlist, $inputargs, $hashArgOptLists);
    235235
    236236    # init class variables

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

    r11884 r12169  
    105105    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    106106
    107     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     107    my $self = new ConvertToPlug($pluginlist, $inputargs, $hashArgOptLists);
    108108
    109109    if ($self->{'info_only'}) {

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

    r11661 r12169  
    6767   
    6868    # $self is global for use within subroutines called by XML::Parser
    69     $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     69    $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    7070
    7171    if ($self->{'info_only'}) {

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

    r11090 r12169  
    8080    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
    8181
    82     my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     82    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
    8383
    8484    return bless $self, $class;
Note: See TracChangeset for help on using the changeset viewer.