version 1.246, 2008/07/02 16:08:21
|
version 1.248, 2008/07/07 16:42:26
|
Line 3360 sub selfenroll_inst_types {
|
Line 3360 sub selfenroll_inst_types {
|
my $numinrow = 4; |
my $numinrow = 4; |
my $count = 0; |
my $count = 0; |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom); |
|
my $othervalue = 'any'; |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
|
if (@{$types} > 0) { |
|
$othervalue = 'other'; |
|
} |
$output .= '<table><tr>'; |
$output .= '<table><tr>'; |
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
if (($count > 0) && ($count%$numinrow == 0)) { |
if (($count > 0) && ($count%$numinrow == 0)) { |
Line 3383 sub selfenroll_inst_types {
|
Line 3387 sub selfenroll_inst_types {
|
if (($count > 0) && ($count%$numinrow == 0)) { |
if (($count > 0) && ($count%$numinrow == 0)) { |
$output .= '</tr><tr>'; |
$output .= '</tr><tr>'; |
} |
} |
$output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="other" '; |
$output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="'.$othervalue.'" '; |
if (ref($currinsttypes) eq 'ARRAY') { |
if (ref($currinsttypes) eq 'ARRAY') { |
if (@{$currinsttypes} > 0) { |
if (@{$currinsttypes} > 0) { |
if (grep(/^other$/,@{$currinsttypes})) { |
if (grep(/^other$/,@{$currinsttypes})) { |
Line 3452 sub print_userchangelogs_display {
|
Line 3456 sub print_userchangelogs_display {
|
$curr{$key} = $defaults{$key}; |
$curr{$key} = $defaults{$key}; |
} |
} |
} |
} |
my (%whodunit,%changed); |
my (%whodunit,%changed,$version); |
$r->print(&role_display_filter($formname,$cdom,$cnum,\%curr)); |
($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/); |
|
$r->print(&role_display_filter($formname,$cdom,$cnum,\%curr,$version)); |
my $showntablehdr = 0; |
my $showntablehdr = 0; |
my $tablehdr = &Apache::loncommon::start_data_table(). |
my $tablehdr = &Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
Line 3570 ENDSCRIPT
|
Line 3575 ENDSCRIPT
|
} |
} |
|
|
sub role_display_filter { |
sub role_display_filter { |
my ($formname,$cdom,$cnum,$curr) = @_; |
my ($formname,$cdom,$cnum,$curr,$version) = @_; |
my $context = 'course'; |
my $context = 'course'; |
my $nolink = 1; |
my $nolink = 1; |
my $output = '<table><tr><td valign="top">'. |
my $output = '<table><tr><td valign="top">'. |
Line 3621 sub role_display_filter {
|
Line 3626 sub role_display_filter {
|
next if (!&Apache::lonnet::auto_run($cnum,$cdom)); |
next if (!&Apache::lonnet::auto_run($cnum,$cdom)); |
} |
} |
$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n"; |
$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n"; |
} |
} |
$output .= '</select></td><td> </td><td valign="middle"><input type="submit" value="'. |
$output .= '</select></td><td> </td><td valign="middle"><input type="submit" value="'. |
&mt('Update Display').'" /></tr></table><hr noshade><br />'; |
&mt('Update Display').'" /></tr></table>'. |
|
'<span class="LC_roleslog_note">'. |
|
&mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.'); |
|
if ($version) { |
|
$output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version); } |
|
$output .= '</span><hr noshade><br />'; |
return $output; |
return $output; |
} |
} |
|
|