CVS: mharc/bin web-archive,1.43,1.44

Update of /cvsroot/mhonarc/mharc/bin
In directory subversions:/tmp/cvs-serv21983

Modified Files:
	web-archive 
Log Message:
Remove get_lang_rc().  Added check for Lang.


Index: web-archive
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/web-archive,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** web-archive	16 Jul 2003 22:37:59 -0000	1.43
--- web-archive	9 Aug 2003 17:56:05 -0000	1.44
***************
*** 368,374 ****
        );
  
!       my @langrc = get_lang_rc($MHA_RC_DIR, '_lang', $listdef->{$listname});
!       foreach (@langrc) {
! 	push(@mhaargs, '-rcfile', $_);
        }
  
--- 368,373 ----
        );
  
!       if (defined($listdef->{$listname}{'lang'})) {
! 	push(@mhaargs, '-lang', $listdef->{$listname}{'lang'}[0]);
        }
  
***************
*** 585,612 ****
    @months;
  }
- 
- sub get_lang_rc {
-   my $root_dir = shift;
-   my $basename = shift;
-   my $def      = shift;
-   
-   my $lang;
-   return ()  unless defined($def->{'language'}) &&
- 		    ($lang = $def->{'language'}[0]) =~ /\S/;
-   $lang =~ s/\s+//g;
-   my @tags = split(/[\-_]/, @lang);
-   my @files = ( );
-   my @tries = ( );
- 
-   my($file, $tag);
-   my $curbase = join('/', $root_dir, $basename);
-   foreach $tag (split(/[\-_]/, @lang)) {
-     $curbase .= '_' . $tag;
-     $file = join('.', $curbase, '.mrc');
-     push(@files, $file)  if (-r $file);
-   }
-   @files;
- }
- 
  
  sub read_template {
--- 584,587 ----

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV