[Gmod-gbrowse-cmts] Generic-Genome-Browser/cgi-bin gbrowse.PLS,1.31,1.32

[<ls...@us...>]

Update of /cvsroot/gmod/Generic-Genome-Browser/cgi-bin
In directory sc8-pr-cvs1:/tmp/cvs-serv5664/cgi-bin

Modified Files:
	gbrowse.PLS 
Log Message:
made some changes to break incompatibilities with mod_perl 2.0

Index: gbrowse.PLS
===================================================================
RCS file: /cvsroot/gmod/Generic-Genome-Browser/cgi-bin/gbrowse.PLS,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** gbrowse.PLS	30 Sep 2003 16:22:21 -0000	1.31
--- gbrowse.PLS	30 Sep 2003 16:49:34 -0000	1.32
***************
*** 2138,2143 ****
    my $url = shift;
    for my $l ((map {"$url.$_"} $CONFIG->language->language), $url) {
!     my $file = $ENV{MOD_PERL} ? Apache->request->lookup_uri($l)->filename
!                               : "$ENV{DOCUMENT_ROOT}/$l";
      return $file if -e $file;
    }
--- 2138,2143 ----
    my $url = shift;
    for my $l ((map {"$url.$_"} $CONFIG->language->language), $url) {
!     my $file = $ENV{MOD_PERL} && Apache->can('request') ? Apache->request->lookup_uri($l)->filename
!                                                         : "$ENV{DOCUMENT_ROOT}/$l";
      return $file if -e $file;
    }