Changeset 31516 for main/trunk/greenstone2/perllib/servercontrol.pm

Timestamp:

2017-03-14T19:38:27+13:00 (7 years ago)

Author:

ak19

Message:

Another change ahead of an upcoming commit

File:

• main/trunk/greenstone2/perllib/servercontrol.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/servercontrol.pm

@@ -476 +476 @@
         }
         close(PIN);
+        
+        if(defined $lib_name) { # url won't be undef
+            # replace the servlet_name portion of the url found, with the given library_name
+            $url =~ s@/[^/]*$@/$lib_name@;
+        }
     } else {
         $self->print_msg("activate.pl::get_library_URL: Failed to run $perl_command to work out library URL for $gs_mode\n");
-    }
-    if(defined $lib_name) {
-        # replace the servlet_name portion of the url found, with the given library_name
-        $url =~ s@/[^/]*$@/$lib_name@;
     }
     }