Changeset 31516

Show
Ignore:
Timestamp:
14.03.2017 19:38:27 (2 years ago)
Author:
ak19
Message:

Another change ahead of an upcoming commit

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/servercontrol.pm

    r31515 r31516  
    476476        } 
    477477        close(PIN); 
     478         
     479        if(defined $lib_name) { # url won't be undef 
     480            # replace the servlet_name portion of the url found, with the given library_name 
     481            $url =~ s@/[^/]*$@/$lib_name@; 
     482        } 
    478483    } else { 
    479484        $self->print_msg("activate.pl::get_library_URL: Failed to run $perl_command to work out library URL for $gs_mode\n"); 
    480     } 
    481     if(defined $lib_name) { 
    482         # replace the servlet_name portion of the url found, with the given library_name 
    483         $url =~ s@/[^/]*$@/$lib_name@; 
    484485    } 
    485486    }