Changeset 229 for trunk/gsdl/perllib/plugins/ArcPlug.pm

Timestamp:

1999-04-08T15:38:35+12:00 (25 years ago)

Author:

sjboddie

Message:

Removed old sorting function

File:

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

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -43 +43 @@
     $archive_info->load_info ($archive_info_filename);
     
-    my $file_list = $archive_info->get_file_list();
+    my $file_list [5~= $archive_info->get_file_list();
 
     # process each file
@@ -67 +67 @@
 }
 
-# sort files so they're built (and displayed) in alphabetical order
-sub alphabetically {
-    open (A, &util::filename_cat($base_dir, $file, $a->[0])) || 
-    die "couldn't open " . &util::filename_cat($base_dir, $file, $a->[0]) . "\n";
-    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 = "untitled";
-    my $btitle = "untitled";
-    my $line = "";
-    my $text = "";
-    while (defined ($line = <A>)) {
-    $text .= $line;
-    if ($text =~ /Title=\"([^\"]*)\"/) {$atitle = $1; last;}
-    } 
-    $text = "";
-    while (defined ($line = <B>)) {
-    $text .= $line;
-    if ($text =~ /Title=\"([^\"]*)\"/) {$btitle = $1; last;}
-    } 
-    close A;
-    close B;
-    
-    $atitle =~ tr/A-Z/a-z/;
-    $atitle =~ s/[^a-z0-9 ]//g;
-    $atitle =~ s/^\s+//;
-    $atitle =~ s/^(the|a|an)\b//;
-    $atitle =~ s/^\s+//;
-    $atitle =~ s/^(.).*$/$1/;
-    
-    $btitle =~ tr/A-Z/a-z/;
-    $btitle =~ s/[^a-z0-9 ]//g;
-    $btitle =~ s/^\s+//;
-    $btitle =~ s/^(the|a|an)\b//;
-    $btitle =~ s/^\s+//;
-    $btitle =~ s/^(.).*$/$1/;
-
-    $atitle cmp $btitle;
-}
-
 1;