Changeset 31761 for main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm

Timestamp:

2017-06-29T16:27:37+12:00 (7 years ago)

Author:

ak19

Message:

Moved function generate_item_file that's shared between PowerPointPlugin and the new UnknownConverterPlugin into their shared base class ConvertBinaryFile.pm. 2. In UnknownConverterPlugin, removed unnecessary plugin uption, made the file return 1 as all other Plugin/pm files do, and now some debug stmts are only printed when the verbosity is >2.

File:

• main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm

@@ -398 +398 @@
 }
 
-sub generate_item_file
-{
-    my $self = shift(@_);
-    my ($input_filename) = @_;
-    my $outhandle = $self->{'outhandle'};
-    my ($tailname, $dirname, $suffix)
-    = &File::Basename::fileparse($input_filename, "\\.[^\\.]+\$");
-
-    my $plugin_name = $self->{'plugin_type'};
-
-    # find all the files in the directory
-    if (!opendir (DIR, $dirname)) {
-    print $outhandle "$plugin_name: Couldn't read directory $dirname\n";
-    return $input_filename;
-    }
-
-    my @dir = readdir (DIR);
-    closedir (DIR);
-
-    # start the item file
-    my $itemfile_name = &util::filename_cat($dirname, "$tailname.item");
-
-    # encoding specification????
-    if (!open (ITEMFILE, ">$itemfile_name")) {
-    print $outhandle "$plugin_name: Couldn't open $itemfile_name for writing\n";
-    }
-    print ITEMFILE "<GeneratedBy>$plugin_name\n";
-    # print the first page
-    my @sorted_dir = sort alphanum_sort @dir;
-    for (my $i = 0; $i < scalar(@sorted_dir); $i++) {
-    my $file = $sorted_dir[$i];
-    if ($file =~ /^img(\d+)\.jpg$/) {
-        my $num = $1;
-        $self->tidy_up_html(&util::filename_cat($dirname, "text$num.html"));
-        print ITEMFILE "$num:img$num.jpg:text$num.html:\n";
-    }
-    }
-    close ITEMFILE;
-    return $itemfile_name;
-
-    
-}
-
 # want to sort img1, img2, ...img10, img11 etc.
 sub alphanum_sort {