version 1.692.4.4, 2009/08/14 03:48:49
|
version 1.692.4.9, 2009/08/14 08:07:11
|
Line 482 ENDAUTHORBRW
|
Line 482 ENDAUTHORBRW
|
|
|
sub coursebrowser_javascript { |
sub coursebrowser_javascript { |
my ($domainfilter,$sec_element,$formname)=@_; |
my ($domainfilter,$sec_element,$formname)=@_; |
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Group - for which you wish to add/modify a user role'); |
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Community - for which you wish to add/modify a user role'); |
my $output = ' |
my $id_functions = &javascript_index_functions(); |
|
my $output = ' |
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
// <![CDATA[ |
// <![CDATA[ |
var stdeditbrowser;'."\n"; |
var stdeditbrowser;'."\n"; |
$output .= <<"ENDSTDBRW"; |
|
|
$output .= <<"ENDSTDBRW"; |
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) { |
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) { |
var url = '/adm/pickcourse?'; |
var url = '/adm/pickcourse?'; |
var domainfilter = ''; |
var domainfilter = getDomainFromSelectbox(formname,udom); |
var formid = getFormIdByName(formname); |
|
if (formid > -1) { |
|
var domid = getIndexByName(formid,udom); |
|
if (domid > -1) { |
|
if (document.forms[formid].elements[domid].type == 'select-one') { |
|
domainfilter=document.forms[formid].elements[domid].options[document.forms[formid].elements[domid].selectedIndex].value; |
|
} |
|
if (document.forms[formid].elements[domid].type == 'hidden') { |
|
domainfilter=document.forms[formid].elements[domid].value; |
|
} |
|
} |
|
} |
|
if (domainfilter != null) { |
if (domainfilter != null) { |
if (domainfilter != '') { |
if (domainfilter != '') { |
url += 'domainfilter='+domainfilter+'&'; |
url += 'domainfilter='+domainfilter+'&'; |
Line 524 sub coursebrowser_javascript {
|
Line 514 sub coursebrowser_javascript {
|
} |
} |
} |
} |
} |
} |
|
if (formname == 'ccrs') { |
|
var ownername = document.forms[formid].ccuname.value; |
|
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
|
url += '&cloner='+ownername+':'+ownerdom; |
|
} |
if (multflag !=null && multflag != '') { |
if (multflag !=null && multflag != '') { |
url += '&multiple='+multflag; |
url += '&multiple='+multflag; |
} |
} |
if (crstype == 'Course/Group') { |
if (crstype == 'Course/Community') { |
if (formname == 'cu') { |
if (formname == 'cu') { |
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value; |
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value; |
if (crstype == "") { |
if (crstype == "") { |
Line 545 sub coursebrowser_javascript {
|
Line 540 sub coursebrowser_javascript {
|
stdeditbrowser = open(url,title,options,'1'); |
stdeditbrowser = open(url,title,options,'1'); |
stdeditbrowser.focus(); |
stdeditbrowser.focus(); |
} |
} |
|
$id_functions |
function getFormIdByName(formname) { |
|
for (var i=0;i<document.forms.length;i++) { |
|
if (document.forms[i].name == formname) { |
|
return i; |
|
} |
|
} |
|
return -1; |
|
} |
|
|
|
function getIndexByName(formid,item) { |
|
for (var i=0;i<document.forms[formid].elements.length;i++) { |
|
if (document.forms[formid].elements[i].name == item) { |
|
return i; |
|
} |
|
} |
|
return -1; |
|
} |
|
ENDSTDBRW |
ENDSTDBRW |
if ($sec_element ne '') { |
if ($sec_element ne '') { |
$output .= &setsec_javascript($sec_element,$formname); |
$output .= &setsec_javascript($sec_element,$formname); |
Line 573 ENDSTDBRW
|
Line 551 ENDSTDBRW
|
return $output; |
return $output; |
} |
} |
|
|
|
sub javascript_index_functions { |
|
return <<"ENDJS"; |
|
|
|
function getFormIdByName(formname) { |
|
for (var i=0;i<document.forms.length;i++) { |
|
if (document.forms[i].name == formname) { |
|
return i; |
|
} |
|
} |
|
return -1; |
|
} |
|
|
|
function getIndexByName(formid,item) { |
|
for (var i=0;i<document.forms[formid].elements.length;i++) { |
|
if (document.forms[formid].elements[i].name == item) { |
|
return i; |
|
} |
|
} |
|
return -1; |
|
} |
|
|
|
function getDomainFromSelectbox(formname,udom) { |
|
var userdom; |
|
var formid = getFormIdByName(formname); |
|
if (formid > -1) { |
|
var domid = getIndexByName(formid,udom); |
|
if (domid > -1) { |
|
if (document.forms[formid].elements[domid].type == 'select-one') { |
|
userdom=document.forms[formid].elements[domid].options[document.forms[formid].elements[domid].selectedIndex].value; |
|
} |
|
if (document.forms[formid].elements[domid].type == 'hidden') { |
|
userdom=document.forms[formid].elements[domid].value; |
|
} |
|
} |
|
} |
|
return userdom; |
|
} |
|
|
|
ENDJS |
|
|
|
} |
|
|
|
sub userbrowser_javascript { |
|
my $id_functions = &javascript_index_functions(); |
|
return <<"ENDUSERBRW"; |
|
|
|
function openuserbrowser(formname,uname,udom,ulast,ufirst,uemail,hideudom,crsdom) { |
|
var url = '/adm/pickuser?'; |
|
var userdom = getDomainFromSelectbox(formname,udom); |
|
if (userdom != null) { |
|
if (userdom != '') { |
|
url += 'srchdom='+userdom+'&'; |
|
} |
|
} |
|
url += 'form=' + formname + '&unameelement='+uname+ |
|
'&udomelement='+udom+ |
|
'&ulastelement='+ulast+ |
|
'&ufirstelement='+ufirst+ |
|
'&uemailelement='+uemail+ |
|
'&hideudomelement='+hideudom+ |
|
'&coursedom='+crsdom; |
|
var title = 'User_Browser'; |
|
var options = 'scrollbars=1,resizable=1,menubar=0'; |
|
options += ',width=700,height=600'; |
|
var stdeditbrowser = open(url,title,options,'1'); |
|
stdeditbrowser.focus(); |
|
} |
|
|
|
function fix_domain (formname,udom,origdom) { |
|
var formid = getFormIdByName(formname); |
|
if (formid > -1) { |
|
var domid = getIndexByName(formid,udom); |
|
var hidedomid = getIndexByName(formid,origdom); |
|
if (hidedomid > -1) { |
|
var fixeddom = document.forms[formid].elements[hidedomid].value; |
|
if (domid > -1) { |
|
var slct = document.forms[formid].elements[domid]; |
|
if (slct.type == 'select-one') { |
|
var i; |
|
for (i=0;i<slct.length;i++) { |
|
if (slct.options[i].value==fixeddom) { slct.selectedIndex=i; } |
|
} |
|
} |
|
if (slct.type == 'hidden') { |
|
slct.value = fixeddom; |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
|
$id_functions |
|
ENDUSERBRW |
|
} |
|
|
|
|
sub setsec_javascript { |
sub setsec_javascript { |
my ($sec_element,$formname) = @_; |
my ($sec_element,$formname) = @_; |
my $setsections = qq| |
my $setsections = qq| |
Line 615 function setSect(sectionlist) {
|
Line 690 function setSect(sectionlist) {
|
|
|
sub selectcourse_link { |
sub selectcourse_link { |
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_; |
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_; |
|
my $linktext = &mt('Select Course'); |
|
if ($selecttype eq 'Community') { |
|
$linktext = &mt('Select Community'); |
|
} |
return '<span class="LC_nobreak">' |
return '<span class="LC_nobreak">' |
."<a href='" |
."<a href='" |
.'javascript:opencrsbrowser("'.$form.'","'.$unameele |
.'javascript:opencrsbrowser("'.$form.'","'.$unameele |
.'","'.$udomele.'","'.$desc.'","'.$extra_element |
.'","'.$udomele.'","'.$desc.'","'.$extra_element |
.'","'.$multflag.'","'.$selecttype.'");' |
.'","'.$multflag.'","'.$selecttype.'");' |
."'>".&mt('Select Course').'</a>' |
."'>".$linktext.'</a>' |
.'</span>'; |
.'</span>'; |
} |
} |
|
|
Line 630 sub selectauthor_link {
|
Line 709 sub selectauthor_link {
|
&mt('Select Author').'</a>'; |
&mt('Select Author').'</a>'; |
} |
} |
|
|
|
sub selectuser_link { |
|
my ($form,$unameelem,$domelem,$lastelem,$firstelem,$emailelem,$hdomelem, |
|
$coursedom,$linktext) = @_; |
|
return '<a href="javascript:openuserbrowser('."'$form','$unameelem','$domelem',". |
|
"'$lastelem','$firstelem','$emailelem','$hdomelem','$coursedom'". |
|
');">'.$linktext.'</a>'; |
|
} |
|
|
sub check_uncheck_jscript { |
sub check_uncheck_jscript { |
my $jscript = <<"ENDSCRT"; |
my $jscript = <<"ENDSCRT"; |
function checkAll(field) { |
function checkAll(field) { |
Line 1787 sub select_level_form {
|
Line 1874 sub select_level_form {
|
|
|
=pod |
=pod |
|
|
=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$autosubmit) |
=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange) |
|
|
Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
allow a user to select the domain to preform an operation in. |
allow a user to select the domain to preform an operation in. |
Line 1798 selected");
|
Line 1885 selected");
|
|
|
If the $showdomdesc flag is set, the domain name is followed by the domain description. |
If the $showdomdesc flag is set, the domain name is followed by the domain description. |
|
|
If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action. |
The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted. |
|
|
=cut |
=cut |
|
|
#------------------------------------------- |
#------------------------------------------- |
sub select_dom_form { |
sub select_dom_form { |
my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_; |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_; |
my $onchange; |
if ($onchange) { |
if ($autosubmit) { |
$onchange = ' onchange="'.$onchange.'"'; |
$onchange = ' onchange="this.form.submit()"'; |
|
} |
} |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
if ($includeempty) { @domains=('',@domains); } |
if ($includeempty) { @domains=('',@domains); } |
Line 4548 sub standard_css {
|
Line 4634 sub standard_css {
|
|
|
my $sans = 'Verdana,Arial,Helvetica,sans-serif'; |
my $sans = 'Verdana,Arial,Helvetica,sans-serif'; |
my $mono = 'monospace'; |
my $mono = 'monospace'; |
my $data_table_head = $tabbg; |
my $data_table_head = $sidebg; |
my $data_table_light = '#EEEEEE'; |
my $data_table_light = '#FAFAFA'; |
my $data_table_dark = '#DDDDDD'; |
my $data_table_dark = '#F0F0F0'; |
my $data_table_darker = '#CCCCCC'; |
my $data_table_darker = '#CCCCCC'; |
my $data_table_highlight = '#FFFF00'; |
my $data_table_highlight = '#FFFF00'; |
my $mail_new = '#FFBB77'; |
my $mail_new = '#FFBB77'; |
Line 4573 sub standard_css {
|
Line 4659 sub standard_css {
|
return <<END; |
return <<END; |
h1, h2, h3, th { font-family: $sans } |
h1, h2, h3, th { font-family: $sans } |
a:focus { color: red; background: yellow } |
a:focus { color: red; background: yellow } |
|
|
|
hr { |
|
clear: both; |
|
color: $tabbg; |
|
background-color: $tabbg; |
|
height: 3px; |
|
border: none; |
|
} |
|
|
table.thinborder, |
table.thinborder, |
|
|
table.thinborder tr th { |
table.thinborder tr th { |
Line 5151 table.LC_pick_box {
|
Line 5246 table.LC_pick_box {
|
border-spacing: 1px; |
border-spacing: 1px; |
} |
} |
table.LC_pick_box td.LC_pick_box_title { |
table.LC_pick_box td.LC_pick_box_title { |
background: $tabbg; |
background: $sidebg; |
font-weight: bold; |
font-weight: bold; |
text-align: right; |
text-align: right; |
vertical-align: top; |
vertical-align: top; |
Line 5159 table.LC_pick_box td.LC_pick_box_title {
|
Line 5254 table.LC_pick_box td.LC_pick_box_title {
|
padding: 8px; |
padding: 8px; |
} |
} |
table.LC_pick_box td.LC_selfenroll_pick_box_title { |
table.LC_pick_box td.LC_selfenroll_pick_box_title { |
background: $tabbg; |
background: $sidebg; |
font-weight: bold; |
font-weight: bold; |
text-align: right; |
text-align: right; |
width: 350px; |
width: 350px; |
Line 5776 sub xml_begin {
|
Line 5871 sub xml_begin {
|
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
.'xmlns="http://www.w3.org/1999/xhtml">'; |
.'xmlns="http://www.w3.org/1999/xhtml">'; |
} else { |
} else { |
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>'; |
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'. |
|
'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'; |
} |
} |
return $output; |
return $output; |
} |
} |
Line 6167 sub get_users_function {
|
Line 6263 sub get_users_function {
|
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
$function='admin'; |
$function='admin'; |
} |
} |
if (($env{'request.role'}=~/^(au|ca)/) || |
if (($env{'request.role'}=~/^(au|ca|aa)/) || |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
$function='author'; |
$function='author'; |
} |
} |
Line 7021 $newuserscript
|
Line 7117 $newuserscript
|
|
|
$new_user_create |
$new_user_create |
|
|
<table> |
|
<tr> |
|
<td>$lt{'doma'}:</td> |
|
<td>$domform</td> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td>$lt{'usr'}:</td> |
|
<td>$srchbysel |
|
$srchtypesel |
|
<input type="text" size="15" name="srchterm" value="$srchterm" /> |
|
$srchinsel |
|
</td> |
|
</tr> |
|
</table> |
|
<br /> |
|
END_BLOCK |
END_BLOCK |
|
|
|
$output .= &Apache::lonhtmlcommon::start_pick_box(). |
|
&Apache::lonhtmlcommon::row_title($lt{'doma'}). |
|
$domform. |
|
&Apache::lonhtmlcommon::row_closure(). |
|
&Apache::lonhtmlcommon::row_title($lt{'usr'}). |
|
$srchbysel. |
|
$srchtypesel. |
|
'<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'. |
|
$srchinsel. |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::end_pick_box(). |
|
'<br />'; |
return $output; |
return $output; |
} |
} |
|
|
Line 7912 sub csv_print_samples {
|
Line 8004 sub csv_print_samples {
|
$r->print(&mt('Samples').'<br />'.&start_data_table(). |
$r->print(&mt('Samples').'<br />'.&start_data_table(). |
&start_data_table_header_row()); |
&start_data_table_header_row()); |
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); } |
$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); |
|
} |
$r->print(&end_data_table_header_row()); |
$r->print(&end_data_table_header_row()); |
foreach my $hash (@$samples) { |
foreach my $hash (@$samples) { |
$r->print(&start_data_table_row()); |
$r->print(&start_data_table_row()); |
Line 7956 sub csv_print_select_table {
|
Line 8049 sub csv_print_select_table {
|
my ($value,$display,$defaultcol)=@{ $array_ref }; |
my ($value,$display,$defaultcol)=@{ $array_ref }; |
$r->print(&start_data_table_row().'<td>'.$display.'</td>'); |
$r->print(&start_data_table_row().'<td>'.$display.'</td>'); |
|
|
$r->print('<td><select name=f'.$i. |
$r->print('<td><select name"f'.$i.'"'. |
' onchange="javascript:flip(this.form,'.$i.');">'); |
' onchange="javascript:flip(this.form,'.$i.');">'); |
$r->print('<option value="none"></option>'); |
$r->print('<option value="none"></option>'); |
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
Line 9560 sub course_type {
|
Line 9653 sub course_type {
|
sub group_term { |
sub group_term { |
my $crstype = &course_type(); |
my $crstype = &course_type(); |
my %names = ( |
my %names = ( |
'Course' => 'group', |
'Course' => 'group', |
'Group' => 'team', |
'Community' => 'group', |
); |
); |
return $names{$crstype}; |
return $names{$crstype}; |
} |
} |
Line 9776 sub init_user_environment {
|
Line 9869 sub init_user_environment {
|
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload'); |
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload'); |
} |
} |
|
|
foreach my $crstype ('official','unofficial') { |
foreach my $crstype ('official','unofficial','community') { |
$userenv{'canrequest.'.$crstype} = |
$userenv{'canrequest.'.$crstype} = |
&Apache::lonnet::usertools_access($username,$domain,$crstype, |
&Apache::lonnet::usertools_access($username,$domain,$crstype, |
'reload','requestcourses'); |
'reload','requestcourses'); |