|
version 1.248, 2014/07/15 20:04:03
|
version 1.249, 2014/07/15 21:51:47
|
|
Line 5172 sub serverstatus_pages {
|
Line 5172 sub serverstatus_pages {
|
| |
|
| sub defaults_javascript { |
sub defaults_javascript { |
| my ($settings) = @_; |
my ($settings) = @_; |
| my ($output,$jstext); |
|
| return unless (ref($settings) eq 'HASH'); |
return unless (ref($settings) eq 'HASH'); |
| if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
| my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
|
Line 5180 sub defaults_javascript {
|
Line 5179 sub defaults_javascript {
|
| $maxnum = 0; |
$maxnum = 0; |
| } |
} |
| $maxnum ++; |
$maxnum ++; |
| $jstext = ' var inststatuses = Array('."'".join("','",@{$settings->{'inststatusorder'}})."'".');'; |
my $jstext = ' var inststatuses = Array('."'".join("','",@{$settings->{'inststatusorder'}})."'".');'; |
| return <<"ENDSCRIPT"; |
return <<"ENDSCRIPT"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| // <![CDATA[ |
// <![CDATA[ |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface