version 1.38, 2008/01/01 18:48:17
|
version 1.40, 2008/01/04 17:47:51
|
Line 836 sub display_color_options {
|
Line 836 sub display_color_options {
|
} |
} |
} |
} |
if ($showfile) { |
if ($showfile) { |
$showfile = &Apache::loncommon::lonhttpdurl($showfile); |
if ($showfile =~ m{^/(adm|res)/}) { |
$fullsize = &Apache::loncommon::lonhttpdurl($imgfile); |
if ($showfile =~ m{^/res/}) { |
|
my $local_showfile = |
|
&Apache::lonnet::filelocation('',$showfile); |
|
&Apache::lonnet::repcopy($local_showfile); |
|
} |
|
$showfile = &Apache::loncommon::lonhttpdurl($showfile); |
|
} |
|
if ($imgfile) { |
|
if ($imgfile =~ m{^/(adm|res)/}) { |
|
if ($imgfile =~ m{^/res/}) { |
|
my $local_imgfile = |
|
&Apache::lonnet::filelocation('',$imgfile); |
|
&Apache::lonnet::repcopy($local_imgfile); |
|
} |
|
$fullsize = &Apache::loncommon::lonhttpdurl($imgfile); |
|
} else { |
|
$fullsize = $imgfile; |
|
} |
|
} |
$datatable.= '<td>'; |
$datatable.= '<td>'; |
if (!$is_custom->{$img}) { |
if (!$is_custom->{$img}) { |
$datatable .= &mt('Default in use:').'<br />'; |
$datatable .= &mt('Default in use:').'<br />'; |
Line 1035 sub print_autoenroll {
|
Line 1053 sub print_autoenroll {
|
} |
} |
} |
} |
my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1); |
my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1); |
|
my $notif_sender; |
|
if (ref($settings) eq 'HASH') { |
|
$notif_sender = $settings->{'sender_uname'}; |
|
} |
my $datatable='<tr class="LC_odd_row">'. |
my $datatable='<tr class="LC_odd_row">'. |
'<td>'.&mt('Auto-enrollment active?').'</td>'. |
'<td>'.&mt('Auto-enrollment active?').'</td>'. |
'<td class="LC_right_item"><span class="LC_nobreak"><label>'. |
'<td class="LC_right_item"><span class="LC_nobreak"><label>'. |
Line 1047 sub print_autoenroll {
|
Line 1069 sub print_autoenroll {
|
'</td><td class="LC_right_item"><span class="LC_nobreak">'. |
'</td><td class="LC_right_item"><span class="LC_nobreak">'. |
&mt('username').': '. |
&mt('username').': '. |
'<input type="text" name="sender_uname" value="'. |
'<input type="text" name="sender_uname" value="'. |
$settings->{'sender_uname'}. |
$notif_sender.'" size="10" /> '.&mt('domain'). |
'" size="10" /> '.&mt('domain'). |
|
': '.$domform.'</span></td></tr>'; |
': '.$domform.'</span></td></tr>'; |
$$rowtotal += 2; |
$$rowtotal += 2; |
return $datatable; |
return $datatable; |
Line 1191 sub print_directorysrch {
|
Line 1212 sub print_directorysrch {
|
foreach my $title (@{$titleorder}) { |
foreach my $title (@{$titleorder}) { |
if (defined($searchtitles->{$title})) { |
if (defined($searchtitles->{$title})) { |
my $check = ' '; |
my $check = ' '; |
if (ref($settings->{'searchby'}) eq 'ARRAY') { |
if (ref($settings) eq 'HASH') { |
if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) { |
if (ref($settings->{'searchby'}) eq 'ARRAY') { |
$check = ' checked="checked" '; |
if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) { |
|
$check = ' checked="checked" '; |
|
} |
} |
} |
} |
} |
$datatable .= '<td class="LC_left_item">'. |
$datatable .= '<td class="LC_left_item">'. |
Line 1344 sub print_usercreation {
|
Line 1367 sub print_usercreation {
|
$rowcount ++; |
$rowcount ++; |
} |
} |
} |
} |
|
if ($rowcount == 0) { |
|
$datatable .= '<tr><td colspan="2">'.&mt('No format rules have been defined for usernames or IDs in this domain.').'</td></tr>'; |
|
$$rowtotal ++; |
|
$rowcount ++; |
|
} |
} elsif ($position eq 'middle') { |
} elsif ($position eq 'middle') { |
my @creators = ('author','course'); |
my @creators = ('author','course'); |
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
Line 1473 sub user_formats_row {
|
Line 1501 sub user_formats_row {
|
$output .= '<tr>'; |
$output .= '<tr>'; |
} |
} |
my $check = ' '; |
my $check = ' '; |
if (ref($settings->{$type.'_rule'}) eq 'ARRAY') { |
if (ref($settings) eq 'HASH') { |
if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}})) { |
if (ref($settings->{$type.'_rule'}) eq 'ARRAY') { |
$check = ' checked="checked" '; |
if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}})) { |
|
$check = ' checked="checked" '; |
|
} |
} |
} |
} |
} |
$output .= '<td class="LC_left_item">'. |
$output .= '<td class="LC_left_item">'. |
Line 1730 sub usertype_update_row {
|
Line 1760 sub usertype_update_row {
|
$datatable .= '<tr>'; |
$datatable .= '<tr>'; |
} |
} |
my $check = ' '; |
my $check = ' '; |
if (ref($settings->{'fields'}) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{'fields'}{$type}) eq 'ARRAY') { |
if (ref($settings->{'fields'}) eq 'HASH') { |
if (grep(/^\Q$fields->[$i]\E$/,@{$settings->{'fields'}{$type}})) { |
if (ref($settings->{'fields'}{$type}) eq 'ARRAY') { |
$check = ' checked="checked" '; |
if (grep(/^\Q$fields->[$i]\E$/,@{$settings->{'fields'}{$type}})) { |
|
$check = ' checked="checked" '; |
|
} |
} |
} |
} |
} |
} |
} |
Line 1890 sub modify_colors {
|
Line 1922 sub modify_colors {
|
} |
} |
} |
} |
my ($width,$height) = &thumb_dimensions(); |
my ($width,$height) = &thumb_dimensions(); |
|
if (ref($domconfig->{$role}) ne 'HASH') { |
|
$domconfig->{$role} = {}; |
|
} |
foreach my $img (@images) { |
foreach my $img (@images) { |
if ( ! $env{'form.'.$role.'_'.$img.'.filename'} |
if ( ! $env{'form.'.$role.'_'.$img.'.filename'} |
&& !defined($domconfig->{$role}{$img}) |
&& !defined($domconfig->{$role}{$img}) |
Line 2131 sub check_configuser {
|
Line 2166 sub check_configuser {
|
sub check_authorstatus { |
sub check_authorstatus { |
my ($dom,$confname,%currroles) = @_; |
my ($dom,$confname,%currroles) = @_; |
my $author_ok; |
my $author_ok; |
if (!$currroles{$confname.':'.$dom.':au'}) { |
if (!$currroles{':'.$dom.':au'}) { |
my $start = time; |
my $start = time; |
my $end = 0; |
my $end = 0; |
$author_ok = |
$author_ok = |