version 1.45, 2006/01/07 14:29:16
|
version 1.46, 2006/01/28 10:35:02
|
Line 612 my %perlvarstatic;
|
Line 612 my %perlvarstatic;
|
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
chomp($domainDescription); |
chomp($domainDescription); |
chomp($domainTabExtras); |
chomp($domainTabExtras); |
|
# the remianing field (primary lib server) is handled later |
|
$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]); |
last; |
last; |
} |
} |
} |
} |
Line 624 my %perlvarstatic;
|
Line 626 my %perlvarstatic;
|
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
chomp($domainDescription); |
chomp($domainDescription); |
chomp($domainTabExtras); |
chomp($domainTabExtras); |
|
# the remianing field (primary lib server) is handled later |
|
$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0-5]); |
last; |
last; |
} |
} |
} |
} |
Line 677 my %perlvarstatic;
|
Line 681 my %perlvarstatic;
|
} |
} |
|
|
# implement editing logic below, interactively |
# implement editing logic below, interactively |
# update loncapa.conf until 8 is entered |
# update loncapa.conf until 12 is entered |
|
|
$flag=0; |
$flag=0; |
|
|