version 1.302, 2009/08/04 19:59:19
|
version 1.304, 2009/08/06 05:48:56
|
Line 248 sub build_tools_display {
|
Line 248 sub build_tools_display {
|
&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef, |
&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef, |
$context); |
$context); |
if ($userenv{$context.'.'.$item} eq '') { |
if ($userenv{$context.'.'.$item} eq '') { |
$custom_access = 'default'; |
$custom_access = |
|
&mt('Availability determined currently from default setting.'); |
if (!$curr_access) { |
if (!$curr_access) { |
$tool_off = 'checked="checked" '; |
$tool_off = 'checked="checked" '; |
$tool_on = ''; |
$tool_on = ''; |
} |
} |
} else { |
} else { |
$custom_access = 'custom'; |
$custom_access = |
|
&mt('Availability determined currently from custom setting.'); |
$cust_on = ' checked="checked" '; |
$cust_on = ' checked="checked" '; |
$cust_off = ''; |
$cust_off = ''; |
if ($userenv{$context.'.'.$item} == 0) { |
if ($userenv{$context.'.'.$item} == 0) { |
Line 266 sub build_tools_display {
|
Line 268 sub build_tools_display {
|
' <td>'.$lt{$item}.'</td>'."\n". |
' <td>'.$lt{$item}.'</td>'."\n". |
' </tr>'."\n". |
' </tr>'."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
' <td>'.&mt('Availability determined currently from [_1] setting.',$custom_access). |
' <td>'.$custom_access.(' 'x5).$lt{'avai'}.': '. |
' '.$lt{'avai'}.': '. |
|
($curr_access?&mt('Yes'):&mt('No')).'</td>'."\n". |
($curr_access?&mt('Yes'):&mt('No')).'</td>'."\n". |
&Apache::loncommon::end_data_table_row()."\n". |
&Apache::loncommon::end_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
Line 835 ENDTITLE
|
Line 836 ENDTITLE
|
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain}); |
$inst_results{$ccuname.':'.$ccdomain}); |
$r->print($personal_table); |
$r->print($personal_table); |
|
#FIXME |
my ($home_server_pick,$numlib) = |
my ($home_server_pick,$numlib) = |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
'default','hide'); |
'default','hide'); |
Line 846 $lt{'hs'}: $home_server_pick
|
Line 848 $lt{'hs'}: $home_server_pick
|
} else { |
} else { |
$r->print($home_server_pick); |
$r->print($home_server_pick); |
} |
} |
|
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
|
$r->print('<br /><h3>'.&mt('User Can Request Creation of Courses in this Domain?').'</h3>'. |
|
&Apache::loncommon::start_data_table(). |
|
&build_tools_display($ccuname,$ccdomain, |
|
'requestcourses'). |
|
&Apache::loncommon::end_data_table()); |
|
} |
$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'. |
$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'. |
$lt{'lg'}.'</h3>'); |
$lt{'lg'}.'</h3>'); |
my ($fixedauth,$varauth,$authmsg); |
my ($fixedauth,$varauth,$authmsg); |
Line 5134 ENDSCRIPT
|
Line 5143 ENDSCRIPT
|
|
|
# Table Header |
# Table Header |
my $tableheader = |
my $tableheader = |
&Apache::loncommon::start_data_table() |
&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
|
.'<th> </th>' |
.'<th> </th>' |
.'<th>'.&mt('When').'</th>' |
.'<th>'.&mt('When').'</th>' |
.'<th>'.&mt('Who made the change').'</th>' |
.'<th>'.&mt('Who made the change').'</th>' |
Line 5220 sub role_display_filter {
|
Line 5228 sub role_display_filter {
|
} |
} |
$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n"; |
$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n"; |
} |
} |
$output .= '</select></td>'. |
$output .= '</select></td>' |
'<td> </td>'. |
.'</tr></table>'; |
'<td valign="middle"><input type="submit" value="'. |
|
&mt('Update Display').'" /></td></tr></table>'. |
# Update Display button |
'<span class="LC_roleslog_note">'. |
$output .= '<p>' |
&mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.'); |
.'<input type="submit" value="'.&mt('Update Display').'" />' |
|
.'</p>'; |
|
|
|
# Server version info |
|
$output .= '<p class="LC_info">' |
|
.&mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.' |
|
,'2.6.99.0'); |
if ($version) { |
if ($version) { |
$output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version); } |
$output .= ' '.&mt('This LON-CAPA server is version [_1]',$version); |
$output .= '</span><hr /><br />'; |
} |
|
$output .= '</p><hr />'; |
return $output; |
return $output; |
} |
} |
|
|