Changeset 87 for trunk/gsdl/perllib/plugins

Timestamp:

1998-12-21T15:15:17+13:00 (25 years ago)

Author:

rjmcnab

Message:

Fixed a bug in the sorting and then removed the sorting as its too
slow on large collections (and we don't need it any more).

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -46 +46 @@
 
     # process each file
-    foreach $subfile (sort alphabetically @$file_list) {
+    foreach $subfile (@$file_list) {
         # note: metadata is not carried on to the next level
         my $tmp = &util::filename_cat ($file, $subfile->[0]);
@@ -55 +55 @@
     # all books have been processed so need to output classifications
     # to infodb - note that at present you have to import before building
-    if ($processor->{'mode'} eq 'infodb') {
+    if (defined $processor->{'mode'} && $processor->{'mode'} eq 'infodb') {
         print STDERR "ArcPlug: Adding classifications to infodb\n";
         $processor->process('classifications');
@@ -73 +73 @@
     open (B, &util::filename_cat($base_dir, $file, $b->[0])) || 
     die "couldn't open " . &util::filename_cat($base_dir, $file, $b->[0]) . "\n";
-    my ($atitle, $btitle);
+    my $atitle = "untitled";
+    my $btitle = "untitled";
     my $line = "";
-    while (defined ($line .= <A>)) {
-    if ($line =~ /Title=\"([^\"]*)\"/) {$atitle = $1; last;}
+    my $text = "";
+    while (defined ($line = <A>)) {
+    $text .= $line;
+    if ($text =~ /Title=\"([^\"]*)\"/) {$atitle = $1; last;}
     } 
-    $line = "";
-    while (defined ($line .= <B>)) {
-    if ($line =~ /Title=\"([^\"]*)\"/) {$btitle = $1; last;}
+    $text = "";
+    while (defined ($line = <B>)) {
+    $text .= $line;
+    if ($text =~ /Title=\"([^\"]*)\"/) {$btitle = $1; last;}
     } 
     close A;