View | Details | Raw Unified | Return to bug 18502
Collapse All | Expand All

(-)a/debian/scripts/koha-shell (-2 / +5 lines)
Lines 83-89 sub read_perl5lib { Link Here
83
    $result =~ s/^PERL5LIB=\s*//;
83
    $result =~ s/^PERL5LIB=\s*//;
84
    my $dev_install = `xmlstarlet sel -t -v 'yazgfs/config/dev_install' /etc/koha/sites/$instance/koha-conf.xml`;
84
    my $dev_install = `xmlstarlet sel -t -v 'yazgfs/config/dev_install' /etc/koha/sites/$instance/koha-conf.xml`;
85
    chomp $dev_install;
85
    chomp $dev_install;
86
    return $dev_install || $result;
86
    if ( $dev_install ) {
87
        # pick PERL5LIB from the intranetdir entry
88
        $result = `xmlstarlet sel -t -v "yazgfs/config/intranetdir" /etc/koha/sites/$instance/koha-conf.xml`;
89
    }
90
    return $result;
87
}
91
}
88
92
89
__DATA__
93
__DATA__
90
- 

Return to bug 18502