Changeset 5924


Ignore:
Timestamp:
2003-11-20T17:44:16+13:00 (20 years ago)
Author:
kjdon
Message:

changed the new metadata to eg WordPlug instead of Word, cos a clash with Image

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

Legend:

Unmodified
Added
Removed

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

    r5919 r5924  
    364364    my $plugin_name = shift (@_);
    365365    my $self = {};
    366     $self->{'plugin_type'} = "Bas";
     366    $self->{'plugin_type'} = "BasPlug";
    367367    my $enc = "^(";
    368368    map {$enc .= "$_|";} keys %$encodings::encodings;

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

    r5919 r5924  
    7575    my $class = shift (@_);
    7676    my $self = new SplitPlug ($class, @_);
    77     $self->{'plugin_type'} = "BibTex";
     77    $self->{'plugin_type'} = "BibTexPlug";
    7878    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7979    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    8080    my ($class) = @_;
    8181    my $self = new BasPlug ("BookPlug", @_);
    82     $self->{'plugin_type'} = "Book";
     82    $self->{'plugin_type'} = "BookPlug";
    8383    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8484    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    8585    $self->{'convert_to'} = "Rog";
    8686    $self->{'convert_to_ext'} = "rog";
    87     $self->{'plugin_type'} = "ConvertToRog";
     87    $self->{'plugin_type'} = "ConvertToRogPlug";
    8888    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8989    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    5959    my ($class) = @_;
    6060    my $self = new BasPlug ($class, @_);
    61     $self->{'plugin_type'} = "DB";
     61    $self->{'plugin_type'} = "DBPlug";
    6262    my $option_list = $self->{'option_list'};
    6363    push( @{$option_list}, $options );

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

    r5919 r5924  
    115115    my ($class) = @_;
    116116    my $self = new BasPlug ($class, @_);
    117     $self->{'plugin_type'} = "EMAIL";
     117    $self->{'plugin_type'} = "EMAILPlug";
    118118    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    119119    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    4242
    4343    my $self = new ConvertToPlug ($class, @_);
    44     $self->{'plugin_type'} = "Excel";
     44    $self->{'plugin_type'} = "ExcelPlug";
    4545# I'm not sure what encoding xlhtml produces - I think it puts it
    4646# into the Content-Type meta tag in the header of the HTML file.

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

    r5919 r5924  
    5252    my ($class) = @_;
    5353    $self = new BasPlug ();
    54     $self->{'plugin_type'} = "FOX";
     54    $self->{'plugin_type'} = "FOXPlug";
    5555    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5656    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    6060    my ($class) = @_;
    6161    my $self = new BasPlug ("HBPlug", @_);
    62     $self->{'plugin_type'} = "HB";
     62    $self->{'plugin_type'} = "HBPlug";
    6363    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    6464    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    140140    my $class = shift (@_);
    141141    my $self = new BasPlug ($class, @_);
    142     $self->{'plugin_type'} = "HTML";
     142    $self->{'plugin_type'} = "HTMLPlug";
    143143    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    144144    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    109109    my $plugin_name = shift (@_);
    110110    my $self = new BasPlug ("ImagePlug", @_);
    111     $self->{'plugin_type'} = "Image";
     111    $self->{'plugin_type'} = "ImagePlug";
    112112    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    113113    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    6565    my $class = shift (@_);
    6666    my $self = new SplitPlug ($class, @_);
    67     $self->{'plugin_type'} = "MARC";
     67    $self->{'plugin_type'} = "MARCPlug";
    6868    my $metadata_mapping;
    6969

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

    r5919 r5924  
    4848    my $class = shift (@_);
    4949    my $self = new BasPlug ($class, @_);
    50     $self->{'plugin_type'} = "OAI";
     50    $self->{'plugin_type'} = "OAIPlug";
    5151    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5252    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    9595
    9696    my $self = new ConvertToPlug ($class, @args, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
    97     $self->{'plugin_type'} = "PDF";
     97    $self->{'plugin_type'} = "PDFPlug";
    9898    if ($use_sections) {
    9999    $self->{'use_sections'}=1;

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

    r5919 r5924  
    4242
    4343    my $self = new ConvertToPlug ($class, @_);
    44     $self->{'plugin_type'} = "PPT";
     44    $self->{'plugin_type'} = "PPTPlug";
    4545    # ppthtml outputs utf-8 already.
    4646    if ($self->{'input_encoding'} eq "auto") {

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

    r5919 r5924  
    6666
    6767    my $self = new ConvertToPlug ($class, "-convert_to", "text", @_ , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
    68     $self->{'plugin_type'} = "PS";
     68    $self->{'plugin_type'} = "PSPlug";
    6969    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7070    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    5050    my $class = shift (@_);
    5151    my $self = new ConvertToPlug ($class, @_);
    52     $self->{'plugin_type'}="RTF";
     52    $self->{'plugin_type'}="RTFPlug";
    5353    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5454    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    9797    my $class = shift (@_);
    9898    my $self = new SplitPlug ($class, @_);
    99     $self->{'plugin_type'} = "Refer";
     99    $self->{'plugin_type'} = "ReferPlug";
    100100    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    101101    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    4343    my ($class) = @_;
    4444    $self = new BasPlug ();
    45     $self->{'plugin_type'} = "Rog";
     45    $self->{'plugin_type'} = "RogPlug";
    4646    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    4747    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    8282    my ($class) = @_;
    8383    my $self = new BasPlug ($class, @_);
    84     $self->{'plugin_type'} = "SRC";
     84    $self->{'plugin_type'} = "SRCPlug";
    8585    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8686    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    6666    $self = new BasPlug($class, @_);
    6767
    68     $self->{'plugin_type'} = "Split";
     68    $self->{'plugin_type'} = "SplitPlug";
    6969    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7070    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    6969    my ($class) = @_;
    7070    my $self = new BasPlug ($class, @_);
    71     $self->{'plugin_type'} = "TEXT";
     71    $self->{'plugin_type'} = "TEXTPlug";
    7272    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7373    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    9494    my ($class) = @_;
    9595    my $self = new BasPlug ($class, @_);
    96     $self->{'plugin_type'} = "Unknown";
     96    $self->{'plugin_type'} = "UnknownPlug";
    9797    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    9898    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    275275    my $class = shift (@_);
    276276    my $self = new HTMLPlug ($class, @_);
    277     $self->{'plugin_type'} = "W3Img";
     277    $self->{'plugin_type'} = "W3ImgPlug";
    278278    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    279279    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    5050   
    5151    my $self = new ConvertToPlug ($class, @_);
    52     $self->{'plugin_type'} = "Word";
     52    $self->{'plugin_type'} = "WordPlug";
    5353    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5454    my $option_list = $self->{'option_list'};

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

    r5919 r5924  
    5555    # $self is global for use within subroutines called by XML::Parser
    5656    $self = new BasPlug ($class, @_);
    57     $self->{'plugin_type'} = "XML";
     57    $self->{'plugin_type'} = "XMLPlug";
    5858    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5959    my $option_list = $self->{'option_list'};
Note: See TracChangeset for help on using the changeset viewer.