version 1.295.2.3, 2009/08/13 20:20:12
|
version 1.295.2.5, 2009/08/14 14:45:50
|
Line 143 sub portfolio_quota {
|
Line 143 sub portfolio_quota {
|
$custom_off = ' checked="checked" '; |
$custom_off = ' checked="checked" '; |
my $quota_javascript = <<"END_SCRIPT"; |
my $quota_javascript = <<"END_SCRIPT"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function quota_changes(caller) { |
function quota_changes(caller) { |
if (caller == "custom") { |
if (caller == "custom") { |
if (document.cu.customquota[0].checked) { |
if (document.cu.customquota[0].checked) { |
Line 153 function quota_changes(caller) {
|
Line 154 function quota_changes(caller) {
|
document.cu.customquota[1].checked = true; |
document.cu.customquota[1].checked = true; |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
END_SCRIPT |
END_SCRIPT |
if ($quotatype eq 'custom') { |
if ($quotatype eq 'custom') { |
Line 244 sub build_tools_display {
|
Line 246 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 262 sub build_tools_display {
|
Line 266 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 387 sub print_username_entry_form {
|
Line 390 sub print_username_entry_form {
|
|
|
my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n". |
my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n". |
'<script type="text/javascript">'."\n". |
'<script type="text/javascript">'."\n". |
&Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset}). |
'// <![CDATA['."\n". |
|
&Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset})."\n". |
|
'// ]]>'."\n". |
'</script>'."\n"; |
'</script>'."\n"; |
|
|
my %loaditems = ( |
my %loaditems = ( |
Line 554 sub user_modification_js {
|
Line 559 sub user_modification_js {
|
|
|
return <<END; |
return <<END; |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
|
// <![CDATA[ |
|
|
function pclose() { |
function pclose() { |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
Line 571 sub user_modification_js {
|
Line 577 sub user_modification_js {
|
} |
} |
|
|
$nondc_setsection_code |
$nondc_setsection_code |
|
// ]]> |
</script> |
</script> |
END |
END |
} |
} |
Line 590 sub print_user_selection_page {
|
Line 596 sub print_user_selection_page {
|
|
|
my $jscript = (<<ENDSCRIPT); |
my $jscript = (<<ENDSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function pickuser(uname,udom) { |
function pickuser(uname,udom) { |
document.usersrchform.seluname.value=uname; |
document.usersrchform.seluname.value=uname; |
document.usersrchform.seludom.value=udom; |
document.usersrchform.seludom.value=udom; |
Line 598 function pickuser(uname,udom) {
|
Line 605 function pickuser(uname,udom) {
|
} |
} |
|
|
$jsback |
$jsback |
|
// ]]> |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
|
|
Line 846 $crumbs
|
Line 854 $crumbs
|
$response |
$response |
$forminfo |
$forminfo |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
|
// <![CDATA[ |
$loginscript |
$loginscript |
|
// ]]> |
</script> |
</script> |
<input type='hidden' name='makeuser' value='1' /> |
<input type='hidden' name='makeuser' value='1' /> |
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain |
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain |
Line 870 $lt{'hs'}: $home_server_pick
|
Line 880 $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 903 KERB
|
Line 920 KERB
|
} else { |
} else { |
if ($authtype eq 'int') { |
if ($authtype eq 'int') { |
$varauth = '<br />'. |
$varauth = '<br />'. |
&mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>'; |
&mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>'; |
} elsif ($authtype eq 'loc') { |
} elsif ($authtype eq 'loc') { |
$varauth = '<br />'. |
$varauth = '<br />'. |
&mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n"; |
&mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n"; |
Line 962 ENDCHANGEUSER
|
Line 979 ENDCHANGEUSER
|
} |
} |
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
$r->print('<h3>'.&mt('User Can Request Creation of Courses?').'</h3>'. |
$r->print('<h3>'.&mt('User Can Request Creation of Courses?').'</h3>'. |
&Apache::loncommon::start_data_table()). |
&Apache::loncommon::start_data_table()); |
if ($env{'request.role.domain'} eq $ccdomain) { |
if ($env{'request.role.domain'} eq $ccdomain) { |
$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses')); |
$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses')); |
} else { |
} else { |
Line 1045 ENDNOTOOLSPRIV
|
Line 1062 ENDNOTOOLSPRIV
|
} ## End of new user/old user logic |
} ## End of new user/old user logic |
|
|
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
$r->print('<br /><input type="button" value="'.&mt('Enroll Student').'" onClick="setSections(this.form)" />'."\n"); |
$r->print('<br /><input type="button" value="'.&mt('Enroll Student').'" onclick="setSections(this.form)" />'."\n"); |
} else { |
} else { |
$r->print('<h3>'.&mt('Add Roles').'</h3>'); |
$r->print('<h3>'.&mt('Add Roles').'</h3>'); |
my $addrolesdisplay = 0; |
my $addrolesdisplay = 0; |
Line 1058 ENDNOTOOLSPRIV
|
Line 1075 ENDNOTOOLSPRIV
|
$addrolesdisplay = $add_domainroles; |
$addrolesdisplay = $add_domainroles; |
} |
} |
$r->print(&course_level_dc($env{'request.role.domain'},'Course')); |
$r->print(&course_level_dc($env{'request.role.domain'},'Course')); |
$r->print('<br /><input type="button" value="'.&mt('Save').'" onClick="setCourse()" />'."\n"); |
$r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setCourse()" />'."\n"); |
} elsif ($context eq 'author') { |
} elsif ($context eq 'author') { |
if ($addrolesdisplay) { |
if ($addrolesdisplay) { |
$r->print('<br /><input type="button" value="'.&mt('Save').'"'); |
$r->print('<br /><input type="button" value="'.&mt('Save').'"'); |
if ($newuser) { |
if ($newuser) { |
$r->print(' onClick="auth_check()" \>'."\n"); |
$r->print(' onclick="auth_check()" \>'."\n"); |
} else { |
} else { |
$r->print('onClick="this.form.submit()" \>'."\n"); |
$r->print('onclick="this.form.submit()" \>'."\n"); |
} |
} |
} else { |
} else { |
$r->print('<br /><a href="javascript:backPage(document.cu)">'. |
$r->print('<br /><a href="javascript:backPage(document.cu)">'. |
Line 1073 ENDNOTOOLSPRIV
|
Line 1090 ENDNOTOOLSPRIV
|
} |
} |
} else { |
} else { |
$r->print(&course_level_table(%inccourses)); |
$r->print(&course_level_table(%inccourses)); |
$r->print('<br /><input type="button" value="'.&mt('Save').'" onClick="setSections(this.form)" />'."\n"); |
$r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setSections(this.form)" />'."\n"); |
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
Line 1141 sub validation_javascript {
|
Line 1158 sub validation_javascript {
|
$nondc_setsection_code,$groupslist); |
$nondc_setsection_code,$groupslist); |
my ($jsback,$elements) = &crumb_utilities(); |
my ($jsback,$elements) = &crumb_utilities(); |
$js .= "\n". |
$js .= "\n". |
'<script type="text/javascript">'."\n".$jsback."\n".'</script>'; |
'<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
$jsback."\n". |
|
'// ]]>'."\n". |
|
'</script>'."\n"; |
return $js; |
return $js; |
} |
} |
|
|
Line 1494 sub user_authentication {
|
Line 1515 sub user_authentication {
|
my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc); |
my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc); |
$outcome = <<ENDBADAUTH; |
$outcome = <<ENDBADAUTH; |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
|
// <![CDATA[ |
$loginscript |
$loginscript |
|
// ]]> |
</script> |
</script> |
<span class="LC_error">$lt{'err'}: |
<span class="LC_error">$lt{'err'}: |
$lt{'uuas'} ($currentauth). $lt{'sldb'}.</span> |
$lt{'uuas'} ($currentauth). $lt{'sldb'}.</span> |
Line 1523 ENDBADAUTH
|
Line 1546 ENDBADAUTH
|
); |
); |
$outcome = |
$outcome = |
'<script type="text/javascript" language="Javascript">'."\n". |
'<script type="text/javascript" language="Javascript">'."\n". |
|
'// <![CDATA['."\n". |
$loginscript."\n". |
$loginscript."\n". |
|
'// ]]>'."\n". |
'</script>'."\n". |
'</script>'."\n". |
'<h3>'.$lt{'ld'}.'</h3>'. |
'<h3>'.$lt{'ld'}.'</h3>'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
Line 1854 sub update_user_data {
|
Line 1879 sub update_user_data {
|
my $newuser = 0; |
my $newuser = 0; |
my ($jsback,$elements) = &crumb_utilities(); |
my ($jsback,$elements) = &crumb_utilities(); |
my $jscript = '<script type="text/javascript">'."\n". |
my $jscript = '<script type="text/javascript">'."\n". |
$jsback."\n".'</script>'."\n"; |
'// <![CDATA['."\n". |
|
$jsback."\n". |
|
'// ]]>'."\n". |
|
'</script>'."\n"; |
my %breadcrumb_text = &singleuser_breadcrumb(); |
my %breadcrumb_text = &singleuser_breadcrumb(); |
my $args; |
my $args; |
if ($env{'form.popup'}) { |
if ($env{'form.popup'}) { |
Line 3316 sub custom_role_editor {
|
Line 3344 sub custom_role_editor {
|
my ($jsback,$elements) = &crumb_utilities(); |
my ($jsback,$elements) = &crumb_utilities(); |
my $button_code = "\n"; |
my $button_code = "\n"; |
my $head_script = "\n"; |
my $head_script = "\n"; |
$head_script .= '<script type="text/javascript">'."\n"; |
$head_script .= '<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n"; |
my @template_roles = ("cc","in","ta","ep","st"); |
my @template_roles = ("cc","in","ta","ep","st"); |
foreach my $role (@template_roles) { |
foreach my $role (@template_roles) { |
$head_script .= &make_script_template($role); |
$head_script .= &make_script_template($role); |
$button_code .= &make_button_code($role).' '; |
$button_code .= &make_button_code($role).' '; |
} |
} |
$head_script .= "\n".$jsback."\n".'</script>'."\n"; |
$head_script .= "\n".$jsback."\n". |
|
'// ]]>'."\n". |
|
'</script>'."\n"; |
$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script)); |
$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script)); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:backPage(document.form1,'pickrole','')", |
({href=>"javascript:backPage(document.form1,'pickrole','')", |
Line 3452 sub make_script_template {
|
Line 3483 sub make_script_template {
|
sub make_button_code { |
sub make_button_code { |
my ($role) = @_; |
my ($role) = @_; |
my $label = &Apache::lonnet::plaintext($role); |
my $label = &Apache::lonnet::plaintext($role); |
my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />'; |
my $button_code = '<input type="button" onclick="set_'.$role.'()" value="'.$label.'" />'; |
return ($button_code); |
return ($button_code); |
} |
} |
# ---------------------------------------------------------- Call to definerole |
# ---------------------------------------------------------- Call to definerole |
Line 3465 sub set_custom_role {
|
Line 3496 sub set_custom_role {
|
return; |
return; |
} |
} |
my ($jsback,$elements) = &crumb_utilities(); |
my ($jsback,$elements) = &crumb_utilities(); |
my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>'; |
my $jscript = '<script type="text/javascript">'. |
|
'// <![CDATA['."\n". |
|
$jsback."\n". |
|
'// ]]>'."\n". |
|
'</script>'; |
|
|
$r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript); |
$r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
Line 3837 sub header {
|
Line 3872 sub header {
|
|
|
sub add_script { |
sub add_script { |
my ($js) = @_; |
my ($js) = @_; |
return '<script type="text/javascript">'."\n".$js."\n".'</script>'; |
return '<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
"\n".$js."\n". |
|
'// ]]>'."\n" |
|
'</script>'."\n"; |
} |
} |
|
|
sub verify_user_display { |
sub verify_user_display { |
Line 4171 ENDSCRIPT
|
Line 4210 ENDSCRIPT
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
|
my $output = '<script type="text/javascript">'."\n". |
my $output = '<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
$setsec_js."\n".$selfenroll_js."\n". |
$setsec_js."\n".$selfenroll_js."\n". |
|
'// ]]>'."\n". |
'</script>'."\n". |
'</script>'."\n". |
'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n"; |
'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n"; |
my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum); |
my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum); |
Line 5063 sub print_userchangelogs_display {
|
Line 5104 sub print_userchangelogs_display {
|
$r->print('</tr></table>'); |
$r->print('</tr></table>'); |
$r->print(<<"ENDSCRIPT"); |
$r->print(<<"ENDSCRIPT"); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function chgPage(caller) { |
function chgPage(caller) { |
if (caller == 'previous') { |
if (caller == 'previous') { |
document.$formname.page.value --; |
document.$formname.page.value --; |
Line 5073 function chgPage(caller) {
|
Line 5115 function chgPage(caller) {
|
document.$formname.submit(); |
document.$formname.submit(); |
return; |
return; |
} |
} |
|
// ]]> |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
} else { |
} else { |
$r->print(&mt('There are no records to display')); |
$r->print('<p class="LC_info">'. |
|
&mt('There are no records to display'). |
|
'</p>'); |
} |
} |
$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'. |
$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'. |
'<input type="hidden" name="action" value="changelogs" /></form>'); |
'<input type="hidden" name="action" value="changelogs" /></form>'); |
Line 5089 sub role_display_filter {
|
Line 5134 sub role_display_filter {
|
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">'. |
'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b><br />'. |
'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'. |
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef, |
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef, |
(&mt('all'),5,10,20,50,100,1000,10000)). |
(&mt('all'),5,10,20,50,100,1000,10000)). |
'</td><td> </td>'; |
'</td><td> </td>'; |
Line 5130 sub role_display_filter {
|
Line 5175 sub role_display_filter {
|
foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll') { |
foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll') { |
my $selstr = ''; |
my $selstr = ''; |
if ($curr->{'chgcontext'} eq $chgtype) { |
if ($curr->{'chgcontext'} eq $chgtype) { |
$output .= $selstr = ' selected="selected"'; |
$selstr = ' selected="selected"'; |
} |
} |
if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) { |
if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) { |
next if (!&Apache::lonnet::auto_run($cnum,$cdom)); |
next if (!&Apache::lonnet::auto_run($cnum,$cdom)); |
Line 5772 sub course_level_dc {
|
Line 5817 sub course_level_dc {
|
'<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
'<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
&Apache::loncommon::end_data_table_header_row(); |
&Apache::loncommon::end_data_table_header_row(); |
my $otheritems = &Apache::loncommon::start_data_table_row()."\n". |
my $otheritems = &Apache::loncommon::start_data_table_row()."\n". |
'<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n". |
'<td><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n". |
'<td><select name="role">'."\n"; |
'<td><select name="role">'."\n"; |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |