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