version 1.247, 2008/07/04 18:30:30
|
version 1.248, 2008/07/07 16:42:26
|
Line 3456 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 3574 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 3625 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; |
} |
} |
|
|