|
version 1.566, 2007/08/23 21:54:40
|
version 1.610, 2007/11/06 19:02:57
|
|
Line 367 sub selectstudent_link {
|
Line 367 sub selectstudent_link {
|
| return ''; |
return ''; |
| } |
} |
| return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
| '","'.$udomele.'","","1");'."'>".&mt('Select User')."</a>"; |
'","'.$udomele.'");'."'>".&mt('Select User')."</a>"; |
| } |
} |
| if ($env{'request.role'}=~/^(au|dc|su)/) { |
if ($env{'request.role'}=~/^(au|dc|su)/) { |
| return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
|
Line 407 sub coursebrowser_javascript {
|
Line 407 sub coursebrowser_javascript {
|
| '&cdomelement='+udom+ |
'&cdomelement='+udom+ |
| '&cnameelement='+desc; |
'&cnameelement='+desc; |
| if (extra_element !=null && extra_element != '') { |
if (extra_element !=null && extra_element != '') { |
| if (formname == 'rolechoice') { |
if (formname == 'rolechoice' || formname == 'studentform') { |
| url += '&roleelement='+extra_element; |
url += '&roleelement='+extra_element; |
| if (domainfilter == null || domainfilter == '') { |
if (domainfilter == null || domainfilter == '') { |
| url += '&domainfilter='+extra_element; |
url += '&domainfilter='+extra_element; |
|
Line 544 linked_select_forms returns a string con
|
Line 544 linked_select_forms returns a string con
|
| and html for two <select> menus. The select menus will be linked in that |
and html for two <select> menus. The select menus will be linked in that |
| changing the value of the first menu will result in new values being placed |
changing the value of the first menu will result in new values being placed |
| in the second menu. The values in the select menu will appear in alphabetical |
in the second menu. The values in the select menu will appear in alphabetical |
| order. |
order unless a defined order is provided. |
| |
|
| linked_select_forms takes the following ordered inputs: |
linked_select_forms takes the following ordered inputs: |
| |
|
|
Line 562 linked_select_forms takes the following
|
Line 562 linked_select_forms takes the following
|
| |
|
| =item * $hashref, a reference to a hash containing the data for the menus. |
=item * $hashref, a reference to a hash containing the data for the menus. |
| |
|
| |
=item * $menuorder, the order of values in the first menu |
| |
|
| =back |
=back |
| |
|
| Below is an example of such a hash. Only the 'text', 'default', and |
Below is an example of such a hash. Only the 'text', 'default', and |
|
Line 578 $menu{$choice1}->{'select2'}.
|
Line 580 $menu{$choice1}->{'select2'}.
|
| B2 => "Choice B2", |
B2 => "Choice B2", |
| B3 => "Choice B3", |
B3 => "Choice B3", |
| B4 => "Choice B4" |
B4 => "Choice B4" |
| } |
}, |
| |
order => ['B4','B3','B1','B2'], |
| }, |
}, |
| A2 => { text =>"Choice A2" , |
A2 => { text =>"Choice A2" , |
| default => "C2", |
default => "C2", |
|
Line 586 $menu{$choice1}->{'select2'}.
|
Line 589 $menu{$choice1}->{'select2'}.
|
| C1 => "Choice C1", |
C1 => "Choice C1", |
| C2 => "Choice C2", |
C2 => "Choice C2", |
| C3 => "Choice C3" |
C3 => "Choice C3" |
| } |
}, |
| |
order => ['C2','C1','C3'], |
| }, |
}, |
| A3 => { text =>"Choice A3" , |
A3 => { text =>"Choice A3" , |
| default => "D6", |
default => "D6", |
|
Line 598 $menu{$choice1}->{'select2'}.
|
Line 602 $menu{$choice1}->{'select2'}.
|
| D5 => "Choice D5", |
D5 => "Choice D5", |
| D6 => "Choice D6", |
D6 => "Choice D6", |
| D7 => "Choice D7" |
D7 => "Choice D7" |
| } |
}, |
| |
order => ['D4','D3','D2','D1','D7','D6','D5'], |
| } |
} |
| ); |
); |
| |
|
|
Line 610 sub linked_select_forms {
|
Line 615 sub linked_select_forms {
|
| $firstdefault, |
$firstdefault, |
| $firstselectname, |
$firstselectname, |
| $secondselectname, |
$secondselectname, |
| $hashref |
$hashref, |
| |
$menuorder, |
| ) = @_; |
) = @_; |
| my $second = "document.$formname.$secondselectname"; |
my $second = "document.$formname.$secondselectname"; |
| my $first = "document.$formname.$firstselectname"; |
my $first = "document.$formname.$firstselectname"; |
|
Line 624 sub linked_select_forms {
|
Line 630 sub linked_select_forms {
|
| $result.="select2data.d_$s1 = new Object();\n"; |
$result.="select2data.d_$s1 = new Object();\n"; |
| $result.="select2data.d_$s1.def = new String('". |
$result.="select2data.d_$s1.def = new String('". |
| $hashref->{$s1}->{'default'}."');\n"; |
$hashref->{$s1}->{'default'}."');\n"; |
| $result.="select2data.d_$s1.values = new Array("; |
$result.="select2data.d_$s1.values = new Array("; |
| my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } )); |
my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } )); |
| |
if (ref($hashref->{$s1}->{'order'}) eq 'ARRAY') { |
| |
@s2values = @{$hashref->{$s1}->{'order'}}; |
| |
} |
| $result.="\"@s2values\");\n"; |
$result.="\"@s2values\");\n"; |
| $result.="select2data.d_$s1.texts = new Array("; |
$result.="select2data.d_$s1.texts = new Array("; |
| my @s2texts; |
my @s2texts; |
|
Line 663 function select1_changed() {
|
Line 672 function select1_changed() {
|
| END |
END |
| # output the initial values for the selection lists |
# output the initial values for the selection lists |
| $result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed()\">\n"; |
$result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed()\">\n"; |
| foreach my $value (sort(keys(%$hashref))) { |
my @order = sort(keys(%{$hashref})); |
| |
if (ref($menuorder) eq 'ARRAY') { |
| |
@order = @{$menuorder}; |
| |
} |
| |
foreach my $value (@order) { |
| $result.=" <option value=\"$value\" "; |
$result.=" <option value=\"$value\" "; |
| $result.=" selected=\"selected\" " if ($value eq $firstdefault); |
$result.=" selected=\"selected\" " if ($value eq $firstdefault); |
| $result.=">".&mt($hashref->{$value}->{'text'})."</option>\n"; |
$result.=">".&mt($hashref->{$value}->{'text'})."</option>\n"; |
|
Line 673 END
|
Line 686 END
|
| $result .= $middletext; |
$result .= $middletext; |
| $result .= "<select size=\"1\" name=\"$secondselectname\">\n"; |
$result .= "<select size=\"1\" name=\"$secondselectname\">\n"; |
| my $seconddefault = $hashref->{$firstdefault}->{'default'}; |
my $seconddefault = $hashref->{$firstdefault}->{'default'}; |
| foreach my $value (sort(keys(%select2))) { |
|
| |
my @secondorder = sort(keys(%select2)); |
| |
if (ref($hashref->{$firstdefault}->{'order'}) eq 'ARRAY') { |
| |
@secondorder = @{$hashref->{$firstdefault}->{'order'}}; |
| |
} |
| |
foreach my $value (@secondorder) { |
| $result.=" <option value=\"$value\" "; |
$result.=" <option value=\"$value\" "; |
| $result.=" selected=\"selected\" " if ($value eq $seconddefault); |
$result.=" selected=\"selected\" " if ($value eq $seconddefault); |
| $result.=">".&mt($select2{$value})."</option>\n"; |
$result.=">".&mt($select2{$value})."</option>\n"; |
|
Line 721 sub help_open_topic {
|
Line 739 sub help_open_topic {
|
| |
|
| my $template = ""; |
my $template = ""; |
| my $link; |
my $link; |
| |
|
| $topic=~s/\W/\_/g; |
$topic=~s/\W/\_/g; |
| |
|
| if (!$stayOnPage) |
if (!$stayOnPage) { |
| { |
|
| $link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))"; |
$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))"; |
| } |
} else { |
| else |
|
| { |
|
| $link = "/adm/help/${filename}.hlp"; |
$link = "/adm/help/${filename}.hlp"; |
| } |
} |
| |
|
| # Add the text |
# Add the text |
| if ($text ne "") |
if ($text ne "") { |
| { |
|
| $template .= |
$template .= |
| "<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>". |
| "<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
"<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
| } |
} |
| |
|
| # Add the graphic |
# Add the graphic |
|
Line 805 sub help_open_menu {
|
Line 819 sub help_open_menu {
|
| my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text) |
my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text) |
| = @_; |
= @_; |
| $stayOnPage = 0 if (not defined $stayOnPage); |
$stayOnPage = 0 if (not defined $stayOnPage); |
| # formerly only used pop-up help (stayOnPage = 0) |
# only use pop-up help (stayOnPage == 0) |
| # if environment.remote is on (using remote control UI) |
# if environment.remote is on (using remote control UI) |
| # if ($env{'browser.interface'} eq 'textual' || |
if ($env{'browser.interface'} eq 'textual' || |
| # $env{'environment.remote'} eq 'off' ) { |
$env{'environment.remote'} eq 'off' ) { |
| # $stayOnPage=1; |
|
| #} |
|
| # Now making pop-up help the default even with remote control |
|
| if ($env{'browser.interface'} eq 'textual') { |
|
| $stayOnPage=1; |
$stayOnPage=1; |
| } |
} |
| my $output; |
my $output; |
|
Line 834 sub help_open_menu {
|
Line 844 sub help_open_menu {
|
| |
|
| sub top_nav_help { |
sub top_nav_help { |
| my ($text) = @_; |
my ($text) = @_; |
| |
|
| $text = &mt($text); |
$text = &mt($text); |
| |
my $stay_on_page = |
| my $stayOnPage = |
|
| ($env{'browser.interface'} eq 'textual' || |
($env{'browser.interface'} eq 'textual' || |
| $env{'environment.remote'} eq 'off' ); |
$env{'environment.remote'} eq 'off' ); |
| my $link= ($stayOnPage) ? "javascript:helpMenu('display')" |
my $link = ($stay_on_page) ? "javascript:helpMenu('display')" |
| : "javascript:helpMenu('open')"; |
: "javascript:helpMenu('open')"; |
| my $banner_link = &update_help_link(undef,undef,undef,undef,$stayOnPage); |
my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page); |
| |
|
| my $title = &mt('Get help'); |
my $title = &mt('Get help'); |
| |
|
|
Line 870 sub help_menu_js {
|
Line 878 sub help_menu_js {
|
| 'js_ready' => 1, |
'js_ready' => 1, |
| 'add_entries' => { |
'add_entries' => { |
| 'border' => '0', |
'border' => '0', |
| 'rows' => "105,*",},}); |
'rows' => "110,*",},}); |
| my $end_page = |
my $end_page = |
| &Apache::loncommon::end_page({'frameset' => 1, |
&Apache::loncommon::end_page({'frameset' => 1, |
| 'js_ready' => 1,}); |
'js_ready' => 1,}); |
|
Line 1084 sub changable_area {
|
Line 1092 sub changable_area {
|
| |
|
| =pod |
=pod |
| |
|
| |
=item * viewport_geometry_js { |
| |
|
| |
Provides javascript object (Geometry) which can provide information about the viewport geometry for the client browser. |
| |
|
| |
=cut |
| |
|
| |
|
| |
sub viewport_geometry_js { |
| |
return <<"GEOMETRY"; |
| |
var Geometry = {}; |
| |
function init_geometry() { |
| |
if (Geometry.init) { return }; |
| |
Geometry.init=1; |
| |
if (window.innerHeight) { |
| |
Geometry.getViewportHeight = function() { return window.innerHeight; }; |
| |
Geometry.getViewportWidth = function() { return window.innerWidth; }; |
| |
Geometry.getHorizontalScroll = function() { return window.pageXOffset; }; |
| |
Geometry.getVerticalScroll = function() { return window.pageYOffset; }; |
| |
} |
| |
else if (document.documentElement && document.documentElement.clientHeight) { |
| |
Geometry.getViewportHeight = |
| |
function() { return document.documentElement.clientHeight; }; |
| |
Geometry.getViewportWidth = |
| |
function() { return document.documentElement.clientWidth; }; |
| |
|
| |
Geometry.getHorizontalScroll = |
| |
function() { return document.documentElement.scrollLeft; }; |
| |
Geometry.getVerticalScroll = |
| |
function() { return document.documentElement.scrollTop; }; |
| |
} |
| |
else if (document.body.clientHeight) { |
| |
Geometry.getViewportHeight = |
| |
function() { return document.body.clientHeight; }; |
| |
Geometry.getViewportWidth = |
| |
function() { return document.body.clientWidth; }; |
| |
Geometry.getHorizontalScroll = |
| |
function() { return document.body.scrollLeft; }; |
| |
Geometry.getVerticalScroll = |
| |
function() { return document.body.scrollTop; }; |
| |
} |
| |
} |
| |
|
| |
GEOMETRY |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * viewport_size_js { |
| |
|
| |
Provides a javascript function to set values of two form elements - width and height (elements are passed in as arguments to the javascript function) to the dimensions of the user's browser window. |
| |
|
| |
=cut |
| |
|
| |
sub viewport_size_js { |
| |
my $geometry = &viewport_geometry_js(); |
| |
return <<"DIMS"; |
| |
|
| |
$geometry |
| |
|
| |
function getViewportDims(width,height) { |
| |
init_geometry(); |
| |
width.value = Geometry.getViewportWidth(); |
| |
height.value = Geometry.getViewportHeight(); |
| |
return; |
| |
} |
| |
|
| |
DIMS |
| |
} |
| |
|
| |
=pod |
| |
|
| =item * resize_textarea_js |
=item * resize_textarea_js |
| |
|
| emits the needed javascript to resize a textarea to be as big as possible |
emits the needed javascript to resize a textarea to be as big as possible |
|
Line 1097 to be attached to the <body> for the onl
|
Line 1176 to be attached to the <body> for the onl
|
| =cut |
=cut |
| |
|
| sub resize_textarea_js { |
sub resize_textarea_js { |
| |
my $geometry = &viewport_geometry_js(); |
| return <<"RESIZE"; |
return <<"RESIZE"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| function myHandleEvent (event) { |
$geometry |
| alert(event.type); |
|
| } |
|
| |
|
| var Geometry = {}; |
function getX(element) { |
| function init_geometry() { |
var x = 0; |
| if (Geometry.init) { return }; |
while (element) { |
| Geometry.init=1; |
x += element.offsetLeft; |
| if (window.innerHeight) { |
element = element.offsetParent; |
| Geometry.getViewportHeight = function() { return window.innerHeight; }; |
} |
| } |
return x; |
| else if (document.documentElement && document.documentElement.clientHeight) { |
} |
| Geometry.getViewportHeight = |
function getY(element) { |
| function() { return document.documentElement.clientHeight; }; |
var y = 0; |
| } |
while (element) { |
| else if (document.body.clientHeight) { |
y += element.offsetTop; |
| Geometry.getViewportHeight = |
element = element.offsetParent; |
| function() { return document.body.clientHeight; }; |
|
| } |
} |
| |
return y; |
| } |
} |
| |
|
| |
|
| function resize_textarea(textarea_id,bottom_id) { |
function resize_textarea(textarea_id,bottom_id) { |
| init_geometry(); |
init_geometry(); |
| var textarea = document.getElementById(textarea_id); |
var textarea = document.getElementById(textarea_id); |
| //alert(textarea); |
//alert(textarea); |
| |
|
| var textarea_top = textarea.offsetTop; |
var textarea_top = getY(textarea); |
| var textarea_height = textarea.offsetHeight; |
var textarea_height = textarea.offsetHeight; |
| var bottom = document.getElementById(bottom_id); |
var bottom = document.getElementById(bottom_id); |
| var bottom_top = bottom.offsetTop; |
var bottom_top = getY(bottom); |
| var bottom_height = bottom.offsetHeight; |
var bottom_height = bottom.offsetHeight; |
| var window_height = Geometry.getViewportHeight(); |
var window_height = Geometry.getViewportHeight(); |
| var fudge = 23; |
var fudge = 23; |
| var new_height = window_height-fudge-textarea_top-bottom_height; |
var new_height = window_height-fudge-textarea_top-bottom_height; |
| if (new_height < 300) { |
if (new_height < 300) { |
| new_height = 300; |
new_height = 300; |
|
Line 1346 sub domain_select {
|
Line 1425 sub domain_select {
|
| |
|
| =over 4 |
=over 4 |
| |
|
| =cut |
|
| |
|
| =item * multiple_select_form($name,$value,$size,$hash,$order) |
=item * multiple_select_form($name,$value,$size,$hash,$order) |
| |
|
| Returns a string containing a <select> element int multiple mode |
Returns a string containing a <select> element int multiple mode |
|
Line 1525 sub select_dom_form {
|
Line 1602 sub select_dom_form {
|
| |
|
| =pod |
=pod |
| |
|
| =item * home_server_option_list($domain) |
=item * home_server_form_item($domain,$name,$defaultflag) |
| |
|
| |
input: 4 arguments (two required, two optional) - |
| |
$domain - domain of new user |
| |
$name - name of form element |
| |
$default - Value of 'default' causes a default item to be first |
| |
option, and selected by default. |
| |
$hide - Value of 'hide' causes hiding of the name of the server, |
| |
if 1 server found, or default, if 0 found. |
| |
output: returns 2 items: |
| |
(a) form element which contains either: |
| |
(i) <select name="$name"> |
| |
<option value="$hostid1">$hostid $servers{$hostid}</option> |
| |
<option value="$hostid2">$hostid $servers{$hostid}</option> |
| |
</select> |
| |
form item if there are multiple library servers in $domain, or |
| |
(ii) an <input type="hidden" name="$name" value="$hostid" /> form item |
| |
if there is only one library server in $domain. |
| |
|
| |
(b) number of library servers found. |
| |
|
| returns a string which contains an <option> list to be used in a |
See loncreateuser.pm for example of use. |
| <select> form input. See loncreateuser.pm for an example. |
|
| |
|
| =cut |
=cut |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| sub home_server_option_list { |
sub home_server_form_item { |
| my $domain = shift; |
my ($domain,$name,$default,$hide) = @_; |
| my %servers = &Apache::lonnet::get_servers($domain,'library'); |
my %servers = &Apache::lonnet::get_servers($domain,'library'); |
| my $result = ''; |
my $result; |
| foreach my $hostid (sort(keys(%servers))) { |
my $numlib = keys(%servers); |
| $result.= |
if ($numlib > 1) { |
| '<option value="'.$hostid.'">'. |
$result .= '<select name="'.$name.'" />'."\n"; |
| $hostid.' '.$servers{$hostid}."</option>\n"; |
if ($default) { |
| |
$result .= '<option value="default" selected>'.&mt('default'). |
| |
'</option>'."\n"; |
| |
} |
| |
foreach my $hostid (sort(keys(%servers))) { |
| |
$result.= '<option value="'.$hostid.'">'. |
| |
$hostid.' '.$servers{$hostid}."</option>\n"; |
| |
} |
| |
$result .= '</select>'."\n"; |
| |
} elsif ($numlib == 1) { |
| |
my $hostid; |
| |
foreach my $item (keys(%servers)) { |
| |
$hostid = $item; |
| |
} |
| |
$result .= '<input type="hidden" name="'.$name.'" value="'. |
| |
$hostid.'" />'; |
| |
if (!$hide) { |
| |
$result .= $hostid.' '.$servers{$hostid}; |
| |
} |
| |
$result .= "\n"; |
| |
} elsif ($default) { |
| |
$result .= '<input type="hidden" name="'.$name. |
| |
'" value="default" />'; |
| |
if (!$hide) { |
| |
$result .= &mt('default'); |
| |
} |
| |
$result .= "\n"; |
| } |
} |
| return $result; |
return ($result,$numlib); |
| } |
} |
| |
|
| =pod |
=pod |
|
Line 1695 END
|
Line 1816 END
|
| } |
} |
| |
|
| my $radioval = "'nochange'"; |
my $radioval = "'nochange'"; |
| if (exists($in{'curr_authtype'}) && |
if (defined($in{'curr_authtype'})) { |
| defined($in{'curr_authtype'}) && |
if ($in{'curr_authtype'} ne '') { |
| $in{'curr_authtype'} ne '') { |
$radioval = "'".$in{'curr_authtype'}."arg'"; |
| $radioval = "'$in{'curr_authtype'}arg'"; |
} |
| } |
} |
| my $argfield = 'null'; |
my $argfield = 'null'; |
| if ( grep/^mode$/,(keys %in) ) { |
if (defined($in{'mode'})) { |
| if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
| if ( grep/^curr_authtype$/,(keys %in) ) { |
if (defined($in{'curr_autharg'})) { |
| $radioval = "'$in{'curr_authtype'}'"; |
if ($in{'curr_autharg'} ne '') { |
| } |
|
| if ( grep/^curr_autharg$/,(keys %in) ) { |
|
| unless ($in{'curr_autharg'} eq '') { |
|
| $argfield = "'$in{'curr_autharg'}'"; |
$argfield = "'$in{'curr_autharg'}'"; |
| } |
} |
| } |
} |
|
Line 1790 sub authform_nochange{
|
Line 1908 sub authform_nochange{
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my $result = '<label>'.&mt('[_1] Do not change login data', |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| '<input type="radio" name="login" value="nochange" '. |
my $result; |
| 'checked="checked" onclick="'. |
if (keys(%can_assign) == 0) { |
| |
$result = &mt('Under you current role you are not permitted to change login settings for this user'); |
| |
} else { |
| |
$result = '<label>'.&mt('[_1] Do not change login data', |
| |
'<input type="radio" name="login" value="nochange" '. |
| |
'checked="checked" onclick="'. |
| "javascript:changed_radio('nochange',$in{'formname'});".'" />'). |
"javascript:changed_radio('nochange',$in{'formname'});".'" />'). |
| '</label>'; |
'</label>'; |
| |
} |
| return $result; |
return $result; |
| } |
} |
| |
|
| sub authform_kerberos{ |
sub authform_kerberos { |
| my %in = ( |
my %in = ( |
| formname => 'document.cu', |
formname => 'document.cu', |
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| kerb_def_auth => 'krb4', |
kerb_def_auth => 'krb4', |
| @_, |
@_, |
| ); |
); |
| my ($check4,$check5,$krbarg); |
my ($check4,$check5,$krbcheck,$krbarg,$krbver,$result,$authtype, |
| |
$autharg,$jscall); |
| |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| if ($in{'kerb_def_auth'} eq 'krb5') { |
if ($in{'kerb_def_auth'} eq 'krb5') { |
| $check5 = " checked=\"on\""; |
$check5 = ' checked="on"'; |
| } else { |
} else { |
| $check4 = " checked=\"on\""; |
$check4 = ' checked="on"'; |
| } |
} |
| $krbarg = $in{'kerb_def_dom'}; |
$krbarg = $in{'kerb_def_dom'}; |
| |
if (defined($in{'curr_authtype'})) { |
| my $krbcheck = ""; |
if ($in{'curr_authtype'} eq 'krb') { |
| if ( grep/^curr_authtype$/,(keys %in) ) { |
$krbcheck = ' checked="on"'; |
| if ($in{'curr_authtype'} =~ m/^krb/) { |
if (defined($in{'curr_kerb_ver'})) { |
| $krbcheck = " checked=\"on\""; |
if ($in{'curr_krb_ver'} eq '5') { |
| if ( grep/^curr_autharg$/,(keys %in) ) { |
$check5 = ' checked="on"'; |
| |
$check4 = ''; |
| |
} else { |
| |
$check4 = ' checked="on"'; |
| |
$check5 = ''; |
| |
} |
| |
} |
| |
if (defined($in{'curr_autharg'})) { |
| $krbarg = $in{'curr_autharg'}; |
$krbarg = $in{'curr_autharg'}; |
| } |
} |
| |
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
| |
if (defined($in{'curr_autharg'})) { |
| |
$result = |
| |
&mt('Currently Kerberos authenticated with domain [_1] Version [_2].', |
| |
$in{'curr_autharg'},$krbver); |
| |
} else { |
| |
$result = |
| |
&mt('Currently Kerberos authenticated, Version [_1].',$krbver); |
| |
} |
| |
return $result; |
| |
} |
| |
} |
| |
} else { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="krb">'; |
| } |
} |
| } |
} |
| |
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
| my $jscall = "javascript:changed_radio('krb',$in{'formname'});"; |
return; |
| my $result .= &mt |
} elsif ($authtype eq '') { |
| |
if (defined($in{'mode'})) { |
| |
if ($in{'mode'} eq 'modifycourse') { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="krb">'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$jscall = "javascript:changed_radio('krb',$in{'formname'});"; |
| |
if ($authtype eq '') { |
| |
$authtype = '<input type="radio" name="login" value="krb" '. |
| |
'onclick="'.$jscall.'" onchange="'.$jscall.'"'. |
| |
$krbcheck.' />'; |
| |
} |
| |
if (($can_assign{'krb4'} && $can_assign{'krb5'}) || |
| |
($can_assign{'krb4'} && !$can_assign{'krb5'} && |
| |
$in{'curr_authtype'} eq 'krb5') || |
| |
(!$can_assign{'krb4'} && $can_assign{'krb5'} && |
| |
$in{'curr_authtype'} eq 'krb4')) { |
| |
$result .= &mt |
| ('[_1] Kerberos authenticated with domain [_2] '. |
('[_1] Kerberos authenticated with domain [_2] '. |
| '[_3] Version 4 [_4] Version 5 [_5]', |
'[_3] Version 4 [_4] Version 5 [_5]', |
| '<label><input type="radio" name="login" value="krb" '. |
'<label>'.$authtype, |
| 'onclick="'.$jscall.'" onchange="'.$jscall.'"'.$krbcheck.' />', |
|
| '</label><input type="text" size="10" name="krbarg" '. |
'</label><input type="text" size="10" name="krbarg" '. |
| 'value="'.$krbarg.'" '. |
'value="'.$krbarg.'" '. |
| 'onchange="'.$jscall.'" />', |
'onchange="'.$jscall.'" />', |
| '<label><input type="radio" name="krbver" value="4" '.$check4.' />', |
'<label><input type="radio" name="krbver" value="4" '.$check4.' />', |
| '</label><label><input type="radio" name="krbver" value="5" '.$check5.' />', |
'</label><label><input type="radio" name="krbver" value="5" '.$check5.' />', |
| '</label>'); |
'</label>'); |
| |
} elsif ($can_assign{'krb4'}) { |
| |
$result .= &mt |
| |
('[_1] Kerberos authenticated with domain [_2] '. |
| |
'[_3] Version 4 [_4]', |
| |
'<label>'.$authtype, |
| |
'</label><input type="text" size="10" name="krbarg" '. |
| |
'value="'.$krbarg.'" '. |
| |
'onchange="'.$jscall.'" />', |
| |
'<label><input type="hidden" name="krbver" value="4" />', |
| |
'</label>'); |
| |
} elsif ($can_assign{'krb5'}) { |
| |
$result .= &mt |
| |
('[_1] Kerberos authenticated with domain [_2] '. |
| |
'[_3] Version 5 [_4]', |
| |
'<label>'.$authtype, |
| |
'</label><input type="text" size="10" name="krbarg" '. |
| |
'value="'.$krbarg.'" '. |
| |
'onchange="'.$jscall.'" />', |
| |
'<label><input type="hidden" name="krbver" value="5" />', |
| |
'</label>'); |
| |
} |
| return $result; |
return $result; |
| } |
} |
| |
|
| sub authform_internal{ |
sub authform_internal{ |
| my %args = ( |
my %in = ( |
| formname => 'document.cu', |
formname => 'document.cu', |
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| |
my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall); |
| my $intcheck = ""; |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| my $intarg = 'value=""'; |
if (defined($in{'curr_authtype'})) { |
| if ( grep/^curr_authtype$/,(keys %args) ) { |
if ($in{'curr_authtype'} eq 'int') { |
| if ($args{'curr_authtype'} eq 'int') { |
if ($can_assign{'int'}) { |
| $intcheck = " checked=\"on\""; |
$intcheck = 'checked="on" '; |
| if ( grep/^curr_autharg$/,(keys %args) ) { |
if (defined($in{'curr_autharg'})) { |
| $intarg = "value=\"$args{'curr_autharg'}\""; |
$intarg = $in{'curr_autharg'}; |
| |
} |
| |
} else { |
| |
$result = &mt('Currently internally authenticated.'); |
| |
return $result; |
| } |
} |
| } |
} |
| |
} else { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="int">'; |
| |
} |
| } |
} |
| |
if (!$can_assign{'int'}) { |
| my $jscall = "javascript:changed_radio('int',$args{'formname'});"; |
return; |
| my $result.=&mt |
} elsif ($authtype eq '') { |
| |
if (defined($in{'mode'})) { |
| |
if ($in{'mode'} eq 'modifycourse') { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="int">'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$jscall = "javascript:changed_radio('int',$in{'formname'});"; |
| |
if ($authtype eq '') { |
| |
$authtype = '<input type="radio" name="login" value="int" '.$intcheck. |
| |
' onchange="'.$jscall.'" onclick="'.$jscall.'" />'; |
| |
} |
| |
$autharg = '<input type="password" size="10" name="intarg" value="'. |
| |
$intarg.'" onchange="'.$jscall.'" />'; |
| |
$result = &mt |
| ('[_1] Internally authenticated (with initial password [_2])', |
('[_1] Internally authenticated (with initial password [_2])', |
| '<label><input type="radio" name="login" value="int" '.$intcheck. |
'<label>'.$authtype,'</label>'.$autharg); |
| ' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
|
| '</label><input type="text" size="10" name="intarg" '.$intarg. |
|
| ' onchange="'.$jscall.'" />'); |
|
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 1872 sub authform_local{
|
Line 2081 sub authform_local{
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| |
my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall); |
| my $loccheck = ""; |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| my $locarg = 'value=""'; |
if (defined($in{'curr_authtype'})) { |
| if ( grep/^curr_authtype$/,(keys %in) ) { |
|
| if ($in{'curr_authtype'} eq 'loc') { |
if ($in{'curr_authtype'} eq 'loc') { |
| $loccheck = " checked=\"on\""; |
if ($can_assign{'loc'}) { |
| if ( grep/^curr_autharg$/,(keys %in) ) { |
$loccheck = 'checked="on" '; |
| $locarg = "value=\"$in{'curr_autharg'}\""; |
if (defined($in{'curr_autharg'})) { |
| |
$locarg = $in{'curr_autharg'}; |
| |
} |
| |
} else { |
| |
$result = &mt('Currently using local (institutional) authentication.'); |
| |
return $result; |
| } |
} |
| } |
} |
| |
} else { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="loc">'; |
| |
} |
| } |
} |
| |
if (!$can_assign{'loc'}) { |
| my $jscall = "javascript:changed_radio('loc',$in{'formname'});"; |
return; |
| my $result.=&mt('[_1] Local Authentication with argument [_2]', |
} elsif ($authtype eq '') { |
| '<label><input type="radio" name="login" value="loc" '.$loccheck. |
if (defined($in{'mode'})) { |
| ' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
if ($in{'mode'} eq 'modifycourse') { |
| '</label><input type="text" size="10" name="locarg" '.$locarg. |
if ($authnum == 1) { |
| ' onchange="'.$jscall.'" />'); |
$authtype = '<input type="hidden" name="login" value="loc">'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$jscall = "javascript:changed_radio('loc',$in{'formname'});"; |
| |
if ($authtype eq '') { |
| |
$authtype = '<input type="radio" name="login" value="loc" '. |
| |
$loccheck.' onchange="'.$jscall.'" onclick="'. |
| |
$jscall.'" />'; |
| |
} |
| |
$autharg = '<input type="text" size="10" name="locarg" value="'. |
| |
$locarg.'" onchange="'.$jscall.'" />'; |
| |
$result = &mt('[_1] Local Authentication with argument [_2]', |
| |
'<label>'.$authtype,'</label>'.$autharg); |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 1899 sub authform_filesystem{
|
Line 2130 sub authform_filesystem{
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my $jscall = "javascript:changed_radio('fsys',$in{'formname'});"; |
my ($fsyscheck,$result,$authtype,$autharg,$jscall); |
| my $result.= &mt |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| |
if (defined($in{'curr_authtype'})) { |
| |
if ($in{'curr_authtype'} eq 'fsys') { |
| |
if ($can_assign{'fsys'}) { |
| |
$fsyscheck = 'checked="on" '; |
| |
} else { |
| |
$result = &mt('Currently Filesystem Authenticated.'); |
| |
return $result; |
| |
} |
| |
} |
| |
} else { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="fsys">'; |
| |
} |
| |
} |
| |
if (!$can_assign{'fsys'}) { |
| |
return; |
| |
} elsif ($authtype eq '') { |
| |
if (defined($in{'mode'})) { |
| |
if ($in{'mode'} eq 'modifycourse') { |
| |
if ($authnum == 1) { |
| |
$authtype = '<input type="hidden" name="login" value="fsys">'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$jscall = "javascript:changed_radio('fsys',$in{'formname'});"; |
| |
if ($authtype eq '') { |
| |
$authtype = '<input type="radio" name="login" value="fsys" '. |
| |
$fsyscheck.' onchange="'.$jscall.'" onclick="'. |
| |
$jscall.'" />'; |
| |
} |
| |
$autharg = '<input type="text" size="10" name="fsysarg" value=""'. |
| |
' onchange="'.$jscall.'" />'; |
| |
$result = &mt |
| ('[_1] Filesystem Authenticated (with initial password [_2])', |
('[_1] Filesystem Authenticated (with initial password [_2])', |
| '<label><input type="radio" name="login" value="fsys" '. |
'<label><input type="radio" name="login" value="fsys" '. |
| 'onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
$fsyscheck.'onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
| '</label><input type="text" size="10" name="fsysarg" value="" '. |
'</label><input type="password" size="10" name="fsysarg" value="" '. |
| 'onchange="'.$jscall.'" />'); |
'onchange="'.$jscall.'" />'); |
| return $result; |
return $result; |
| } |
} |
| |
|
| |
sub get_assignable_auth { |
| |
my ($dom) = @_; |
| |
if ($dom eq '') { |
| |
$dom = $env{'request.role.domain'}; |
| |
} |
| |
my %can_assign = ( |
| |
krb4 => 1, |
| |
krb5 => 1, |
| |
int => 1, |
| |
loc => 1, |
| |
); |
| |
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
| |
if (ref($domconfig{'usercreation'}) eq 'HASH') { |
| |
if (ref($domconfig{'usercreation'}{'authtypes'}) eq 'HASH') { |
| |
my $authhash = $domconfig{'usercreation'}{'authtypes'}; |
| |
my $context; |
| |
if ($env{'request.role'} =~ /^au/) { |
| |
$context = 'author'; |
| |
} elsif ($env{'request.role'} =~ /^dc/) { |
| |
$context = 'domain'; |
| |
} elsif ($env{'request.course.id'}) { |
| |
$context = 'course'; |
| |
} |
| |
if ($context) { |
| |
if (ref($authhash->{$context}) eq 'HASH') { |
| |
%can_assign = %{$authhash->{$context}}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $authnum = 0; |
| |
foreach my $key (keys(%can_assign)) { |
| |
if ($can_assign{$key}) { |
| |
$authnum ++; |
| |
} |
| |
} |
| |
if ($can_assign{'krb4'} && $can_assign{'krb5'}) { |
| |
$authnum --; |
| |
} |
| |
return ($authnum,%can_assign); |
| |
} |
| |
|
| ############################################################### |
############################################################### |
| ## Get Authentication Defaults for Domain ## |
## Get Authentication Defaults for Domain ## |
| ############################################################### |
############################################################### |
|
Line 2034 sub initialize_keywords {
|
Line 2341 sub initialize_keywords {
|
| # Remove special values from %Keywords. |
# Remove special values from %Keywords. |
| foreach my $value ('total.count','average.count') { |
foreach my $value ('total.count','average.count') { |
| delete($Keywords{$value}) if (exists($Keywords{$value})); |
delete($Keywords{$value}) if (exists($Keywords{$value})); |
| } |
} |
| return 1; |
return 1; |
| } |
} |
| |
|
|
Line 2545 sub preferred_languages {
|
Line 2852 sub preferred_languages {
|
| @languages=(@languages, |
@languages=(@languages, |
| split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'})); |
split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'})); |
| } |
} |
| my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0]; |
my $browser=$ENV{'HTTP_ACCEPT_LANGUAGE'}; |
| if ($browser) { |
if ($browser) { |
| @languages=(@languages,split(/\s*(\,|\;|\:)\s*/,$browser)); |
my @browser = |
| |
map { (split(/\s*;\s*/,$_))[0] } (split(/\s*,\s*/,$browser)); |
| |
push(@languages,@browser); |
| } |
} |
| if (&Apache::lonnet::domain($env{'user.domain'},'lang_def')) { |
if (&Apache::lonnet::domain($env{'user.domain'},'lang_def')) { |
| @languages=(@languages, |
@languages=(@languages, |
|
Line 2569 sub preferred_languages {
|
Line 2878 sub preferred_languages {
|
| my @genlanguages; |
my @genlanguages; |
| foreach my $lang (@languages) { |
foreach my $lang (@languages) { |
| unless ($lang=~/\w/) { next; } |
unless ($lang=~/\w/) { next; } |
| push (@genlanguages,$lang); |
push(@genlanguages,$lang); |
| if ($lang=~/(\-|\_)/) { |
if ($lang=~/(\-|\_)/) { |
| push(@genlanguages,(split(/(\-|\_)/,$lang))[0]); |
push(@genlanguages,(split(/(\-|\_)/,$lang))[0]); |
| } |
} |
| } |
} |
| |
#uniqueify the languages list |
| |
my %count; |
| |
@genlanguages = map { $count{$_}++ == 0 ? $_ : () } @genlanguages; |
| return @genlanguages; |
return @genlanguages; |
| } |
} |
| |
|
| |
sub languages { |
| |
my ($possible_langs) = @_; |
| |
my @preferred_langs = &preferred_languages(); |
| |
if (!ref($possible_langs)) { |
| |
if( wantarray ) { |
| |
return @preferred_langs; |
| |
} else { |
| |
return $preferred_langs[0]; |
| |
} |
| |
} |
| |
my %possibilities = map { $_ => 1 } (@$possible_langs); |
| |
my @preferred_possibilities; |
| |
foreach my $preferred_lang (@preferred_langs) { |
| |
if (exists($possibilities{$preferred_lang})) { |
| |
push(@preferred_possibilities, $preferred_lang); |
| |
} |
| |
} |
| |
if( wantarray ) { |
| |
return @preferred_possibilities; |
| |
} |
| |
return $preferred_possibilities[0]; |
| |
} |
| |
|
| ############################################################### |
############################################################### |
| ## Student Answer Attempts ## |
## Student Answer Attempts ## |
| ############################################################### |
############################################################### |
|
Line 2631 sub get_previous_attempt {
|
Line 2966 sub get_previous_attempt {
|
| $lasthash{$key}=$returnhash{$version.':'.$key}; |
$lasthash{$key}=$returnhash{$version.':'.$key}; |
| } |
} |
| } |
} |
| $prevattempts='<table border="0" width="100%"><tr><td bgcolor="#777777">'; |
$prevattempts=&start_data_table().&start_data_table_header_row(); |
| $prevattempts.='<table border="0" width="100%"><tr bgcolor="#e6ffff"><td>History</td>'; |
$prevattempts.='<th>'.&mt('History').'</th>'; |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| my ($ign,@parts) = split(/\./,$key); |
my ($ign,@parts) = split(/\./,$key); |
| if ($#parts > 0) { |
if ($#parts > 0) { |
| my $data=$parts[-1]; |
my $data=$parts[-1]; |
| pop(@parts); |
pop(@parts); |
| $prevattempts.='<td>Part '.join('.',@parts).'<br />'.$data.' </td>'; |
$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>'; |
| } else { |
} else { |
| if ($#parts == 0) { |
if ($#parts == 0) { |
| $prevattempts.='<th>'.$parts[0].'</th>'; |
$prevattempts.='<th>'.$parts[0].'</th>'; |
|
Line 2647 sub get_previous_attempt {
|
Line 2982 sub get_previous_attempt {
|
| } |
} |
| } |
} |
| } |
} |
| |
$prevattempts.=&end_data_table_header_row(); |
| if ($getattempt eq '') { |
if ($getattempt eq '') { |
| for ($version=1;$version<=$returnhash{'version'};$version++) { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
| $prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Transaction '.$version.'</td>'; |
$prevattempts.=&start_data_table_row(). |
| |
'<td>'.&mt('Transaction [_1]',$version).'</td>'; |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| my $value; |
my $value = &format_previous_attempt_value($key, |
| if ($key =~ /timestamp/) { |
$returnhash{$version.':'.$key}); |
| $value=scalar(localtime($returnhash{$version.':'.$key})); |
$prevattempts.='<td>'.$value.' </td>'; |
| } else { |
|
| $value=$returnhash{$version.':'.$key}; |
|
| } |
|
| $prevattempts.='<td>'.&unescape($value).' </td>'; |
|
| } |
} |
| |
$prevattempts.=&end_data_table_row(); |
| } |
} |
| } |
} |
| $prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Current</td>'; |
$prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>'; |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| my $value; |
my $value = &format_previous_attempt_value($key,$lasthash{$key}); |
| if ($key =~ /timestamp/) { |
|
| $value=scalar(localtime($lasthash{$key})); |
|
| } else { |
|
| $value=$lasthash{$key}; |
|
| } |
|
| $value=&unescape($value); |
|
| if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)} |
if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)} |
| $prevattempts.='<td>'.$value.' </td>'; |
$prevattempts.='<td>'.$value.' </td>'; |
| } |
} |
| $prevattempts.='</tr></table></td></tr></table>'; |
$prevattempts.= &end_data_table_row().&end_data_table(); |
| } else { |
} else { |
| $prevattempts='Nothing submitted - no attempts.'; |
$prevattempts= |
| |
&start_data_table().&start_data_table_row(). |
| |
'<td>'.&mt('Nothing submitted - no attempts.').'</td>'. |
| |
&end_data_table_row().&end_data_table(); |
| } |
} |
| } else { |
} else { |
| $prevattempts='No data.'; |
$prevattempts= |
| |
&start_data_table().&start_data_table_row(). |
| |
'<td>'.&mt('No data.').'</td>'. |
| |
&end_data_table_row().&end_data_table(); |
| } |
} |
| } |
} |
| |
|
| |
sub format_previous_attempt_value { |
| |
my ($key,$value) = @_; |
| |
if ($key =~ /timestamp/) { |
| |
$value = &Apache::lonlocal::locallocaltime($value); |
| |
} elsif (ref($value) eq 'ARRAY') { |
| |
$value = '('.join(', ', @{ $value }).')'; |
| |
} else { |
| |
$value = &unescape($value); |
| |
} |
| |
return $value; |
| |
} |
| |
|
| |
|
| sub relative_to_absolute { |
sub relative_to_absolute { |
| my ($url,$output)=@_; |
my ($url,$output)=@_; |
| my $parser=HTML::TokeParser->new(\$output); |
my $parser=HTML::TokeParser->new(\$output); |
|
Line 2840 sub pprmlink {
|
Line 3187 sub pprmlink {
|
| if (!$symb) { $symb=&Apache::lonnet::symbread(); } |
if (!$symb) { $symb=&Apache::lonnet::symbread(); } |
| $symb=&escape($symb); |
$symb=&escape($symb); |
| if ($target) { $target="target=\"$target\""; } |
if ($target) { $target="target=\"$target\""; } |
| return '<a href="/adm/parmset?&command=set&'. |
return '<a href="/adm/parmset?command=set&'. |
| 'symb='.$symb.'&uname='.$uname. |
'symb='.$symb.'&uname='.$uname. |
| '&udom='.$udom.'" '.$target.'>'.$text.'</a>'; |
'&udom='.$udom.'" '.$target.'>'.$text.'</a>'; |
| } |
} |
| ############################################## |
############################################## |
| |
|
|
Line 3519 sub bodytag {
|
Line 3866 sub bodytag {
|
| if (!$realm) { $realm=' '; } |
if (!$realm) { $realm=' '; } |
| # Set messages |
# Set messages |
| my $messages=&domainlogo($domain); |
my $messages=&domainlogo($domain); |
| # Port for miniserver |
|
| my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
|
| if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
|
| |
|
| my $extra_body_attr = &make_attr_string($forcereg,\%design); |
my $extra_body_attr = &make_attr_string($forcereg,\%design); |
| |
|
|
Line 3639 ENDROLE
|
Line 3983 ENDROLE
|
| |
|
| my $imgsrc = $img; |
my $imgsrc = $img; |
| if ($img =~ /^\/adm/) { |
if ($img =~ /^\/adm/) { |
| $imgsrc = 'http://'.$ENV{'HTTP_HOST'}.':'.$lonhttpdPort.$img; |
$imgsrc = &lonhttpdurl($img); |
| } |
} |
| my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />'; |
my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />'; |
| |
|
|
Line 3773 sub standard_css {
|
Line 4117 sub standard_css {
|
| my $vlink = &designparm($function.'.vlink', $domain); |
my $vlink = &designparm($function.'.vlink', $domain); |
| my $link = &designparm($function.'.link', $domain); |
my $link = &designparm($function.'.link', $domain); |
| |
|
| my $sans = '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 = $tabbg; |
| my $data_table_light = '#EEEEEE'; |
my $data_table_light = '#EEEEEE'; |
|
Line 3791 sub standard_css {
|
Line 4135 sub standard_css {
|
| my $table_header = '#DDDDDD'; |
my $table_header = '#DDDDDD'; |
| my $feedback_link_bg = '#BBBBBB'; |
my $feedback_link_bg = '#BBBBBB'; |
| |
|
| my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' |
my $border = ($env{'browser.type'} eq 'explorer' || |
| : '0px 3px 0px 4px'; |
$env{'browser.type'} eq 'safari' ) ? '0px 2px 0px 2px' |
| |
: '0px 3px 0px 4px'; |
| |
|
| |
|
| return <<END; |
return <<END; |
|
Line 3812 table.thinborder tr td {
|
Line 4157 table.thinborder tr td {
|
| |
|
| form, .inline { display: inline; } |
form, .inline { display: inline; } |
| .center { text-align: center; } |
.center { text-align: center; } |
| .LC_filename {font-family: $mono;} |
.LC_filename {font-family: $mono; white-space:pre;} |
| .LC_error { |
.LC_error { |
| color: red; |
color: red; |
| font-size: larger; |
font-size: larger; |
|
Line 3853 table.LC_pastsubmission {
|
Line 4198 table.LC_pastsubmission {
|
| margin: 2px; |
margin: 2px; |
| } |
} |
| |
|
| table#LC_top_nav, table#LC_menubuttons { |
table#LC_top_nav, table#LC_menubuttons,table#LC_nav_location { |
| width: 100%; |
width: 100%; |
| background: $pgbg; |
background: $pgbg; |
| border: 2px; |
border: 2px; |
|
Line 3861 table#LC_top_nav, table#LC_menubuttons {
|
Line 4206 table#LC_top_nav, table#LC_menubuttons {
|
| padding: 0px; |
padding: 0px; |
| } |
} |
| |
|
| table#LC_title_bar, table.LC_breadcrumbs, table#LC_nav_location, |
table#LC_title_bar, table.LC_breadcrumbs, |
| table#LC_title_bar.LC_with_remote { |
table#LC_title_bar.LC_with_remote { |
| width: 100%; |
width: 100%; |
| border-color: $pgbg; |
border-color: $pgbg; |
|
Line 4052 table.LC_data_table, table.LC_mail_list
|
Line 4397 table.LC_data_table, table.LC_mail_list
|
| border: 1px solid #000000; |
border: 1px solid #000000; |
| border-collapse: separate; |
border-collapse: separate; |
| border-spacing: 1px; |
border-spacing: 1px; |
| |
background: $pgbg; |
| } |
} |
| .LC_data_table_dense { |
.LC_data_table_dense { |
| font-size: small; |
font-size: small; |
| } |
} |
| table.LC_nested_outer { |
table.LC_nested_outer { |
| border: 1px solid #000000; |
border: 1px solid #000000; |
| border-collapse: separate; |
border-collapse: collapse; |
| border-spacing: 0px; |
border-spacing: 0px; |
| width: 100%; |
width: 100%; |
| } |
} |
| table.LC_nested { |
table.LC_nested { |
| border: 0px; |
border: 0px; |
| border-collapse: separate; |
border-collapse: collapse; |
| border-spacing: 0px; |
border-spacing: 0px; |
| width: 100%; |
width: 100%; |
| } |
} |
|
Line 4074 table.LC_prior_tries tr th {
|
Line 4420 table.LC_prior_tries tr th {
|
| background-color: $data_table_head; |
background-color: $data_table_head; |
| font-size: smaller; |
font-size: smaller; |
| } |
} |
| table.LC_data_table tr td, |
table.LC_data_table tr.LC_odd_row > td, |
| table.LC_aboutme_port tr td { |
table.LC_aboutme_port tr td { |
| background-color: $data_table_light; |
background-color: $data_table_light; |
| padding: 2px; |
padding: 2px; |
| } |
} |
| table.LC_data_table tr.LC_even_row td, |
table.LC_data_table tr.LC_even_row > td, |
| table.LC_aboutme_port tr.LC_even_row td { |
table.LC_aboutme_port tr.LC_even_row td { |
| background-color: $data_table_dark; |
background-color: $data_table_dark; |
| } |
} |
|
Line 4116 table.LC_nested tr.LC_info_row td {
|
Line 4462 table.LC_nested tr.LC_info_row td {
|
| font-size: small; |
font-size: small; |
| text-align: center; |
text-align: center; |
| } |
} |
| table.LC_nested tr.LC_info_row td.LC_left_item { |
table.LC_nested tr.LC_info_row td.LC_left_item, |
| |
table.LC_nested_outer tr th.LC_left_item { |
| text-align: left; |
text-align: left; |
| } |
} |
| table.LC_nested td { |
table.LC_nested td { |
|
Line 4347 table#LC_helpmenu_links a:hover {
|
Line 4694 table#LC_helpmenu_links a:hover {
|
| border: 1px solid #8888FF; |
border: 1px solid #8888FF; |
| background: #CCCCFF; |
background: #CCCCFF; |
| } |
} |
| |
|
| table.LC_pick_box { |
table.LC_pick_box { |
| width: 100%; |
|
| border-collapse: separate; |
border-collapse: separate; |
| background: white; |
background: white; |
| border: 1px solid black; |
border: 1px solid black; |
|
Line 4362 table.LC_pick_box td.LC_pick_box_title {
|
Line 4707 table.LC_pick_box td.LC_pick_box_title {
|
| width: 184px; |
width: 184px; |
| padding: 8px; |
padding: 8px; |
| } |
} |
| |
table.LC_pick_box td.LC_pick_box_value { |
| |
text-align: left; |
| |
padding: 8px; |
| |
} |
| |
table.LC_pick_box td.LC_pick_box_select { |
| |
text-align: left; |
| |
padding: 8px; |
| |
} |
| table.LC_pick_box td.LC_pick_box_separator { |
table.LC_pick_box td.LC_pick_box_separator { |
| padding: 0px; |
padding: 0px; |
| height: 1px; |
height: 1px; |
|
Line 4370 table.LC_pick_box td.LC_pick_box_separat
|
Line 4723 table.LC_pick_box td.LC_pick_box_separat
|
| table.LC_pick_box td.LC_pick_box_submit { |
table.LC_pick_box td.LC_pick_box_submit { |
| text-align: right; |
text-align: right; |
| } |
} |
| |
table.LC_pick_box td.LC_evenrow_value { |
| |
text-align: left; |
| |
padding: 8px; |
| |
background-color: $data_table_light; |
| |
} |
| |
table.LC_pick_box td.LC_oddrow_value { |
| |
text-align: left; |
| |
padding: 8px; |
| |
background-color: $data_table_light; |
| |
} |
| |
table.LC_helpform_receipt { |
| |
width: 620px; |
| |
border-collapse: separate; |
| |
background: white; |
| |
border: 1px solid black; |
| |
border-spacing: 1px; |
| |
} |
| |
table.LC_helpform_receipt td.LC_pick_box_title { |
| |
background: $tabbg; |
| |
font-weight: bold; |
| |
text-align: right; |
| |
width: 184px; |
| |
padding: 8px; |
| |
} |
| |
table.LC_helpform_receipt td.LC_evenrow_value { |
| |
text-align: left; |
| |
padding: 8px; |
| |
background-color: $data_table_light; |
| |
} |
| |
table.LC_helpform_receipt td.LC_oddrow_value { |
| |
text-align: left; |
| |
padding: 8px; |
| |
background-color: $data_table_light; |
| |
} |
| |
table.LC_helpform_receipt td.LC_pick_box_separator { |
| |
padding: 0px; |
| |
height: 1px; |
| |
background: black; |
| |
} |
| |
span.LC_helpform_receipt_cat { |
| |
font-weight: bold; |
| |
} |
| table.LC_group_priv_box { |
table.LC_group_priv_box { |
| background: white; |
background: white; |
| border: 1px solid black; |
border: 1px solid black; |
|
Line 4438 table.LC_descriptive_input td.LC_descrip
|
Line 4832 table.LC_descriptive_input td.LC_descrip
|
| text-align: right; |
text-align: right; |
| font-weight: bold; |
font-weight: bold; |
| } |
} |
| table.LC_feedback_link { |
div.LC_feedback_link { |
| background: $feedback_link_bg; |
background: white; |
| |
width: 100%; |
| } |
} |
| span.LC_feedback_link { |
span.LC_feedback_link { |
| background: $feedback_link_bg; |
background: $feedback_link_bg; |
| font-size: larger; |
font-size: larger; |
| |
} |
| |
span.LC_message_link { |
| |
background: $feedback_link_bg; |
| |
font-size: larger; |
| |
position: absolute; |
| |
right: 1em; |
| } |
} |
| |
|
| table.LC_prior_tries { |
table.LC_prior_tries { |
|
Line 4515 span.LC_nobreak {
|
Line 4916 span.LC_nobreak {
|
| white-space: nowrap; |
white-space: nowrap; |
| } |
} |
| |
|
| |
span.LC_cusr_emph { |
| |
font-style: italic; |
| |
} |
| |
|
| table.LC_docs_documents { |
table.LC_docs_documents { |
| background: #BBBBBB; |
background: #BBBBBB; |
| border-width: 0px; |
border-width: 0px; |
|
Line 4582 table.LC_docs_adddocs th {
|
Line 4987 table.LC_docs_adddocs th {
|
| background: #DDDDDD; |
background: #DDDDDD; |
| } |
} |
| |
|
| |
table.LC_sty_begin { |
| |
background: #BBFFBB; |
| |
} |
| |
table.LC_sty_end { |
| |
background: #FFBBBB; |
| |
} |
| |
|
| |
table.LC_double_column { |
| |
border-width: 0px; |
| |
border-collapse: collapse; |
| |
width: 100%; |
| |
padding: 2px; |
| |
} |
| |
|
| |
table.LC_double_column tr td.LC_left_col { |
| |
top: 2px; |
| |
left: 2px; |
| |
width: 47%; |
| |
vertical-align: top; |
| |
} |
| |
|
| |
table.LC_double_column tr td.LC_right_col { |
| |
top: 2px; |
| |
right: 2px; |
| |
width: 47%; |
| |
vertical-align: top; |
| |
} |
| |
|
| |
span.LC_role_level { |
| |
font-weight: bold; |
| |
} |
| |
|
| |
div.LC_left_float { |
| |
float: left; |
| |
padding-right: 5%; |
| |
padding-bottom: 4px; |
| |
} |
| |
|
| |
div.LC_clear_float_header { |
| |
padding-bottom: 2px; |
| |
} |
| |
|
| |
div.LC_clear_float_footer { |
| |
padding-top: 10px; |
| |
clear: both; |
| |
} |
| |
|
| |
|
| |
div.LC_grade_select_mode { |
| |
float: left; |
| |
font-family: $sans; |
| |
} |
| |
div.LC_grade_select_mode div div { |
| |
margin: 5px; |
| |
} |
| |
div.LC_grade_select_mode_selector { |
| |
margin: 5px; |
| |
float: left; |
| |
} |
| |
div.LC_grade_select_mode_selector_header { |
| |
font: bold medium $sans; |
| |
} |
| |
div.LC_grade_select_mode_type { |
| |
clear: left; |
| |
} |
| |
|
| |
div.LC_grade_show_user { |
| |
margin-top: 20px; |
| |
border: 1px solid black; |
| |
} |
| |
div.LC_grade_user_name { |
| |
background: #DDDDEE; |
| |
border-bottom: 1px solid black; |
| |
font: bold large $sans; |
| |
} |
| |
div.LC_grade_show_user_odd_row div.LC_grade_user_name { |
| |
background: #DDEEDD; |
| |
} |
| |
|
| |
div.LC_grade_show_problem, |
| |
div.LC_grade_submissions, |
| |
div.LC_grade_message_center, |
| |
div.LC_grade_info_links, |
| |
div.LC_grade_assign { |
| |
margin: 5px; |
| |
width: 99%; |
| |
background: #FFFFFF; |
| |
} |
| |
div.LC_grade_show_problem_header, |
| |
div.LC_grade_submissions_header, |
| |
div.LC_grade_message_center_header, |
| |
div.LC_grade_assign_header { |
| |
font: bold large $sans; |
| |
} |
| |
div.LC_grade_show_problem_problem, |
| |
div.LC_grade_submissions_body, |
| |
div.LC_grade_message_center_body, |
| |
div.LC_grade_assign_body { |
| |
border: 1px solid black; |
| |
width: 99%; |
| |
background: #FFFFFF; |
| |
} |
| |
span.LC_grade_check_note { |
| |
font: normal medium $sans; |
| |
display: inline; |
| |
position: absolute; |
| |
right: 1em; |
| |
} |
| |
|
| |
|
| |
div.LC_edit_problem_header { |
| |
font: normal medium $sans; |
| |
margin: 2px; |
| |
} |
| |
div.LC_edit_problem_header, |
| |
div.LC_edit_problem_header div, |
| |
div.LC_edit_problem_editxml_header, |
| |
div.LC_edit_problem_editxml_header div { |
| |
margin-top: 5px; |
| |
} |
| |
div.LC_edit_problem_header_edit_row { |
| |
background: $tabbg; |
| |
padding: 3px; |
| |
margin-bottom: 5px; |
| |
} |
| |
div.LC_edit_problem_header_title { |
| |
font: larger bold $sans; |
| |
background: $tabbg; |
| |
padding: 3px; |
| |
} |
| |
table.LC_edit_problem_header_title { |
| |
font: larger bold $sans; |
| |
width: 100%; |
| |
border-color: $pgbg; |
| |
border-style: solid; |
| |
border-width: $border; |
| |
|
| |
background: $tabbg; |
| |
border-collapse: collapse; |
| |
padding: 0px |
| |
} |
| |
|
| |
div.LC_edit_problem_discards { |
| |
float: left; |
| |
padding-bottom: 5px; |
| |
} |
| |
div.LC_edit_problem_saves { |
| |
float: right; |
| |
padding-bottom: 5px; |
| |
} |
| |
hr.LC_edit_problem_divide { |
| |
clear: both; |
| |
color: $tabbg; |
| |
background-color: $tabbg; |
| |
height: 3px; |
| |
border: 0px; |
| |
} |
| END |
END |
| } |
} |
| |
|
|
Line 4698 Inputs: none
|
Line 5260 Inputs: none
|
| sub xml_begin { |
sub xml_begin { |
| my $output=''; |
my $output=''; |
| |
|
| &Apache::lonhtmlcommon::init_htmlareafields(); |
if ($env{'internal.start_page'}==1) { |
| |
&Apache::lonhtmlcommon::init_htmlareafields(); |
| |
} |
| |
|
| if ($env{'browser.mathml'}) { |
if ($env{'browser.mathml'}) { |
| $output='<?xml version="1.0"?>' |
$output='<?xml version="1.0"?>' |
|
Line 4947 sub simple_error_page {
|
Line 5511 sub simple_error_page {
|
| } |
} |
| |
|
| { |
{ |
| my $row_count; |
my @row_count; |
| sub start_data_table { |
sub start_data_table { |
| my ($add_class) = @_; |
my ($add_class) = @_; |
| my $css_class = (join(' ','LC_data_table',$add_class)); |
my $css_class = (join(' ','LC_data_table',$add_class)); |
| undef($row_count); |
unshift(@row_count,0); |
| return '<table class="'.$css_class.'">'."\n"; |
return '<table class="'.$css_class.'">'."\n"; |
| } |
} |
| |
|
| sub end_data_table { |
sub end_data_table { |
| undef($row_count); |
shift(@row_count); |
| return '</table>'."\n";; |
return '</table>'."\n";; |
| } |
} |
| |
|
| sub start_data_table_row { |
sub start_data_table_row { |
| my ($add_class) = @_; |
my ($add_class) = @_; |
| $row_count++; |
$row_count[0]++; |
| my $css_class = ($row_count % 2)?'':'LC_even_row'; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
| $css_class = (join(' ',$css_class,$add_class)); |
$css_class = (join(' ',$css_class,$add_class)); |
| return '<tr class="'.$css_class.'">'."\n";; |
return '<tr class="'.$css_class.'">'."\n";; |
| } |
} |
| |
|
| sub continue_data_table_row { |
sub continue_data_table_row { |
| my ($add_class) = @_; |
my ($add_class) = @_; |
| my $css_class = ($row_count % 2)?'':'LC_even_row'; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
| $css_class = (join(' ',$css_class,$add_class)); |
$css_class = (join(' ',$css_class,$add_class)); |
| return '<tr class="'.$css_class.'">'."\n";; |
return '<tr class="'.$css_class.'">'."\n";; |
| } |
} |
|
Line 4980 sub simple_error_page {
|
Line 5544 sub simple_error_page {
|
| } |
} |
| |
|
| sub start_data_table_empty_row { |
sub start_data_table_empty_row { |
| $row_count++; |
$row_count[0]++; |
| return '<tr class="LC_empty_row" >'."\n";; |
return '<tr class="LC_empty_row" >'."\n";; |
| } |
} |
| |
|
|
Line 5252 previous, future, or all.
|
Line 5816 previous, future, or all.
|
| 5. reference to array of section restrictions (optional) |
5. reference to array of section restrictions (optional) |
| 6. reference to results object (hash of hashes). |
6. reference to results object (hash of hashes). |
| 7. reference to optional userdata hash |
7. reference to optional userdata hash |
| Keys of top level hash are roles. |
8. reference to optional statushash |
| |
Keys of top level results hash are roles. |
| Keys of inner hashes are username:domain, with |
Keys of inner hashes are username:domain, with |
| values set to access type. |
values set to access type. |
| Optional userdata hash returns an array with arguments in the |
Optional userdata hash returns an array with arguments in the |
| same order as loncoursedata::get_classlist() for student data. |
same order as loncoursedata::get_classlist() for student data. |
| |
|
| |
Optional statushash returns |
| |
|
| Entries for end, start, section and status are blank because |
Entries for end, start, section and status are blank because |
| of the possibility of multiple values for non-student roles. |
of the possibility of multiple values for non-student roles. |
| |
|
|
Line 5266 of the possibility of multiple values fo
|
Line 5833 of the possibility of multiple values fo
|
| ############################################### |
############################################### |
| |
|
| sub get_course_users { |
sub get_course_users { |
| my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata) = @_; |
my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata,$statushash) = @_; |
| my %idx = (); |
my %idx = (); |
| my %seclists; |
my %seclists; |
| |
|
|
Line 5283 sub get_course_users {
|
Line 5850 sub get_course_users {
|
| my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist($cdom,$cnum); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist($cdom,$cnum); |
| my $now = time; |
my $now = time; |
| foreach my $student (keys(%{$classlist})) { |
foreach my $student (keys(%{$classlist})) { |
| |
my $status; |
| my $match = 0; |
my $match = 0; |
| my $secmatch = 0; |
my $secmatch = 0; |
| my $section = $$classlist{$student}[$idx{section}]; |
my $section = $$classlist{$student}[$idx{section}]; |
| |
my $status = $$classlist{$student}[$idx{status}]; |
| if ($section eq '') { |
if ($section eq '') { |
| $section = 'none'; |
$section = 'none'; |
| } |
} |
|
Line 5305 sub get_course_users {
|
Line 5874 sub get_course_users {
|
| next; |
next; |
| } |
} |
| } |
} |
| push(@{$seclists{$student}},$section); |
|
| if (defined($$types{'active'})) { |
if (defined($$types{'active'})) { |
| if ($$classlist{$student}[$idx{status}] eq 'Active') { |
if ($$classlist{$student}[$idx{status}] eq 'Active') { |
| push(@{$$users{st}{$student}},'active'); |
push(@{$$users{st}{$student}},'active'); |
|
Line 5313 sub get_course_users {
|
Line 5881 sub get_course_users {
|
| } |
} |
| } |
} |
| if (defined($$types{'previous'})) { |
if (defined($$types{'previous'})) { |
| if ($$classlist{$student}[$idx{end}] <= $now) { |
if ($$classlist{$student}[$idx{status}] eq 'Expired') { |
| push(@{$$users{st}{$student}},'previous'); |
push(@{$$users{st}{$student}},'previous'); |
| $match = 1; |
$match = 1; |
| } |
} |
| } |
} |
| if (defined($$types{'future'})) { |
if (defined($$types{'future'})) { |
| if (($$classlist{$student}[$idx{start}] > $now) && ($$classlist{$student}[$idx{end}] > $now) || ($$classlist{$student}[$idx{end}] == 0) || ($$classlist{$student}[$idx{end}] eq '')) { |
if ($$classlist{$student}[$idx{status}] eq 'Future') { |
| push(@{$$users{st}{$student}},'future'); |
push(@{$$users{st}{$student}},'future'); |
| $match = 1; |
$match = 1; |
| } |
} |
| } |
} |
| if ($match && ref($userdata) eq 'HASH') { |
if ($match) { |
| $$userdata{$student} = $$classlist{$student}; |
push(@{$seclists{$student}},$section); |
| |
if (ref($userdata) eq 'HASH') { |
| |
$$userdata{$student} = $$classlist{$student}; |
| |
} |
| |
if (ref($statushash) eq 'HASH') { |
| |
$statushash->{$student}{'st'}{$section} = $status; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| if ((@{$roles} > 1) || ((@{$roles} == 1) && ($$roles[0] ne "st"))) { |
if ((@{$roles} > 1) || ((@{$roles} == 1) && ($$roles[0] ne "st"))) { |
| my %coursepersonnel = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum); |
my %coursepersonnel = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum); |
| my $now = time; |
my $now = time; |
| |
my %displaystatus = ( previous => 'Expired', |
| |
active => 'Active', |
| |
future => 'Future', |
| |
); |
| foreach my $person (sort(keys(%coursepersonnel))) { |
foreach my $person (sort(keys(%coursepersonnel))) { |
| my $match = 0; |
my $match = 0; |
| my $secmatch = 0; |
my $secmatch = 0; |
|
Line 5387 sub get_course_users {
|
Line 5965 sub get_course_users {
|
| if (!grep(/^\Q$usec\E$/,@{$seclists{$uname.':'.$udom}})) { |
if (!grep(/^\Q$usec\E$/,@{$seclists{$uname.':'.$udom}})) { |
| push(@{$seclists{$uname.':'.$udom}},$usec); |
push(@{$seclists{$uname.':'.$udom}},$usec); |
| } |
} |
| |
if (ref($statushash) eq 'HASH') { |
| |
$statushash->{$uname.':'.$udom}{$role}{$usec} = $displaystatus{$status}; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 5396 sub get_course_users {
|
Line 5977 sub get_course_users {
|
| my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum); |
my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum); |
| if ( defined($csettings{'internal.courseowner'}) ) { |
if ( defined($csettings{'internal.courseowner'}) ) { |
| my $owner = $csettings{'internal.courseowner'}; |
my $owner = $csettings{'internal.courseowner'}; |
| if ($owner !~ /^[^:]+:[^:]+$/) { |
next if ($owner eq ''); |
| $owner = $owner.':'.$cdom; |
my ($ownername,$ownerdom); |
| |
if ($owner =~ /^([^:]+):([^:]+)$/) { |
| |
$ownername = $1; |
| |
$ownerdom = $2; |
| |
} else { |
| |
$ownername = $owner; |
| |
$ownerdom = $cdom; |
| |
$owner = $ownername.':'.$ownerdom; |
| } |
} |
| @{$$users{'ow'}{$owner}} = 'any'; |
@{$$users{'ow'}{$owner}} = 'any'; |
| if (defined($userdata) && |
if (defined($userdata) && |
| !exists($$userdata{$owner.':'.$cdom})) { |
!exists($$userdata{$owner})) { |
| &get_user_info($cdom,$owner,\%idx,$userdata); |
&get_user_info($ownerdom,$ownername,\%idx,$userdata); |
| if (!grep(/^none$/,@{$seclists{$owner.':'.$cdom}})) { |
if (!grep(/^none$/,@{$seclists{$owner}})) { |
| push(@{$seclists{$owner.':'.$cdom}},'none'); |
push(@{$seclists{$owner}},'none'); |
| |
} |
| |
if (ref($statushash) eq 'HASH') { |
| |
$statushash->{$owner}{'ow'}{'none'} = 'Any'; |
| } |
} |
| } |
} |
| } |
} |
|
Line 5424 sub get_user_info {
|
Line 6015 sub get_user_info {
|
| &plainname($uname,$udom,'lastname'); |
&plainname($uname,$udom,'lastname'); |
| $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname; |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname; |
| $$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom; |
$$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom; |
| |
my %idhash = &Apache::lonnet::idrget($udom,($uname)); |
| |
$$userdata{$uname.':'.$udom}[$$idx{id}] = $idhash{$uname}; |
| return; |
return; |
| } |
} |
| |
|
|
Line 5613 sub get_secgrprole_info {
|
Line 6206 sub get_secgrprole_info {
|
| } |
} |
| |
|
| sub user_picker { |
sub user_picker { |
| my ($dom,$srch,$forcenewuser) = @_; |
my ($dom,$srch,$forcenewuser,$caller) = @_; |
| my $currdom = $dom; |
my $currdom = $dom; |
| my %curr_selected = ( |
my %curr_selected = ( |
| srchin => 'dom', |
srchin => 'dom', |
| srchby => 'uname', |
srchby => 'lastname', |
| ); |
); |
| my $srchterm; |
my $srchterm; |
| if (ref($srch) eq 'HASH') { |
if (ref($srch) eq 'HASH') { |
|
Line 5636 sub user_picker {
|
Line 6229 sub user_picker {
|
| $srchterm = $srch->{'srchterm'}; |
$srchterm = $srch->{'srchterm'}; |
| } |
} |
| my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
| |
'usr' => 'Search criteria', |
| 'doma' => 'Domain/institution to search', |
'doma' => 'Domain/institution to search', |
| 'uname' => 'username', |
'uname' => 'username', |
| 'lastname' => 'last name', |
'lastname' => 'last name', |
| 'lastfirst' => 'last name, first name', |
'lastfirst' => 'last name, first name', |
| 'crs' => 'in this course', |
'crs' => 'in this course', |
| 'dom' => 'in this domain', |
'dom' => 'in selected LON-CAPA domain', |
| 'alc' => 'all LON-CAPA', |
'alc' => 'all LON-CAPA', |
| 'instd' => 'in institutional directory', |
'instd' => 'in institutional directory for selected domain', |
| 'exact' => 'is', |
'exact' => 'is', |
| 'contains' => 'contains', |
'contains' => 'contains', |
| |
'begins' => 'begins with', |
| |
'youm' => "You must include some text to search for.", |
| |
'thte' => "The text you are searching for must contain at least two characters when using a 'begins' type search.", |
| |
'thet' => "The text you are searching for must contain at least three characters when using a 'contains' type search.", |
| |
'yomc' => "You must choose a domain when using an institutional directory search.", |
| |
'ymcd' => "You must choose a domain when using a domain search.", |
| |
'whus' => "When using searching by last,first you must include a comma as separator between last name and first name.", |
| |
'whse' => "When searching by last,first you must include at least one character in the first name.", |
| |
'thfo' => "The following need to be corrected before the search can be run:", |
| ); |
); |
| my $domform = &select_dom_form($currdom,'srchdomain',1,1); |
my $domform = &select_dom_form($currdom,'srchdomain',1,1); |
| my $srchinsel = ' <select name="srchin">'; |
my $srchinsel = ' <select name="srchin">'; |
|
Line 5669 sub user_picker {
|
Line 6272 sub user_picker {
|
| $srchinsel .= "\n </select>\n"; |
$srchinsel .= "\n </select>\n"; |
| |
|
| my $srchbysel = ' <select name="srchby">'; |
my $srchbysel = ' <select name="srchby">'; |
| foreach my $option ('uname','lastname','lastfirst') { |
foreach my $option ('lastname','lastfirst','uname') { |
| if ($curr_selected{'srchby'} eq $option) { |
if ($curr_selected{'srchby'} eq $option) { |
| $srchbysel .= ' |
$srchbysel .= ' |
| <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
|
Line 5681 sub user_picker {
|
Line 6284 sub user_picker {
|
| $srchbysel .= "\n </select>\n"; |
$srchbysel .= "\n </select>\n"; |
| |
|
| my $srchtypesel = ' <select name="srchtype">'; |
my $srchtypesel = ' <select name="srchtype">'; |
| foreach my $option ('exact','contains') { |
foreach my $option ('begins','contains','exact') { |
| if ($curr_selected{'srchtype'} eq $option) { |
if ($curr_selected{'srchtype'} eq $option) { |
| $srchtypesel .= ' |
$srchtypesel .= ' |
| <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
|
Line 5695 sub user_picker {
|
Line 6298 sub user_picker {
|
| my ($newuserscript,$new_user_create); |
my ($newuserscript,$new_user_create); |
| |
|
| if ($forcenewuser) { |
if ($forcenewuser) { |
| $new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\');" /> </p>'; |
if (ref($srch) eq 'HASH') { |
| |
if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) { |
| |
$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>'; |
| |
} |
| |
} |
| |
|
| $newuserscript = <<"ENDSCRIPT"; |
$newuserscript = <<"ENDSCRIPT"; |
| |
|
| function setSearch(createnew) { |
function setSearch(createnew,callingForm) { |
| if (createnew == 1) { |
if (createnew == 1) { |
| for (var i=0; i<document.crtuser.srchby.length; i++) { |
for (var i=0; i<callingForm.srchby.length; i++) { |
| if (document.crtuser.srchby.options[i].value == 'uname') { |
if (callingForm.srchby.options[i].value == 'uname') { |
| document.crtuser.srchby.selectedIndex = i; |
callingForm.srchby.selectedIndex = i; |
| } |
} |
| } |
} |
| for (var i=0; i<document.crtuser.srchin.length; i++) { |
for (var i=0; i<callingForm.srchin.length; i++) { |
| if ( document.crtuser.srchin.options[i].value == 'dom') { |
if ( callingForm.srchin.options[i].value == 'dom') { |
| document.crtuser.srchin.selectedIndex = i; |
callingForm.srchin.selectedIndex = i; |
| } |
} |
| } |
} |
| for (var i=0; i<document.crtuser.srchtype.length; i++) { |
for (var i=0; i<callingForm.srchtype.length; i++) { |
| if (document.crtuser.srchtype.options[i].value == 'exact') { |
if (callingForm.srchtype.options[i].value == 'exact') { |
| document.crtuser.srchtype.selectedIndex = i; |
callingForm.srchtype.selectedIndex = i; |
| } |
} |
| } |
} |
| for (var i=0; i<document.crtuser.srchdomain.length; i++) { |
for (var i=0; i<callingForm.srchdomain.length; i++) { |
| if (document.crtuser.srchdomain.options[i].value == '$env{'request.role.domain'}') { |
if (callingForm.srchdomain.options[i].value == '$env{'request.role.domain'}') { |
| document.crtuser.srchdomain.selectedIndex = i; |
callingForm.srchdomain.selectedIndex = i; |
| } |
} |
| } |
} |
| } |
} |
|
Line 5728 ENDSCRIPT
|
Line 6336 ENDSCRIPT
|
| |
|
| my $output = <<"END_BLOCK"; |
my $output = <<"END_BLOCK"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| function validateEntry() { |
function validateEntry(callingForm) { |
| |
|
| var checkok = 1; |
var checkok = 1; |
| var srchin; |
var srchin; |
| for (var i=0; i<document.crtuser.srchin.length; i++) { |
for (var i=0; i<callingForm.srchin.length; i++) { |
| if ( document.crtuser.srchin[i].checked ) { |
if ( callingForm.srchin[i].checked ) { |
| srchin = document.crtuser.srchin[i].value; |
srchin = callingForm.srchin[i].value; |
| } |
} |
| } |
} |
| |
|
| var srchtype = document.crtuser.srchtype.options[document.crtuser.srchtype.selectedIndex].value; |
var srchtype = callingForm.srchtype.options[callingForm.srchtype.selectedIndex].value; |
| var srchby = document.crtuser.srchby.options[document.crtuser.srchby.selectedIndex].value; |
var srchby = callingForm.srchby.options[callingForm.srchby.selectedIndex].value; |
| var srchdomain = document.crtuser.srchdomain.options[document.crtuser.srchdomain.selectedIndex].value; |
var srchdomain = callingForm.srchdomain.options[callingForm.srchdomain.selectedIndex].value; |
| var srchterm = document.crtuser.srchterm.value; |
var srchterm = callingForm.srchterm.value; |
| var srchin = document.crtuser.srchin.options[document.crtuser.srchin.selectedIndex].value; |
var srchin = callingForm.srchin.options[callingForm.srchin.selectedIndex].value; |
| var msg = ""; |
var msg = ""; |
| |
|
| if (srchterm == "") { |
if (srchterm == "") { |
| checkok = 0; |
checkok = 0; |
| msg += "You must include some text to search for.\\n"; |
msg += "$lt{'youm'}\\n"; |
| |
} |
| |
|
| |
if (srchtype== 'begins') { |
| |
if (srchterm.length < 2) { |
| |
checkok = 0; |
| |
msg += "$lt{'thte'}\\n"; |
| |
} |
| } |
} |
| |
|
| if (srchtype== 'contains') { |
if (srchtype== 'contains') { |
| if (srchterm.length < 3) { |
if (srchterm.length < 3) { |
| checkok = 0; |
checkok = 0; |
| msg += "The text you are searching for must contain at least three characters when using a 'contains' type search.\\n"; |
msg += "$lt{'thet'}\\n"; |
| } |
} |
| } |
} |
| if (srchin == 'instd') { |
if (srchin == 'instd') { |
| if (srchdomain == '') { |
if (srchdomain == '') { |
| checkok = 0; |
checkok = 0; |
| msg += "You must choose a domain when using an institutional directory search.\\n"; |
msg += "$lt{'yomc'}\\n"; |
| } |
} |
| } |
} |
| if (srchin == 'dom') { |
if (srchin == 'dom') { |
| if (srchdomain == '') { |
if (srchdomain == '') { |
| checkok = 0; |
checkok = 0; |
| msg += "You must choose a domain when using a domain search.\\n"; |
msg += "$lt{'ymcd'}\\n"; |
| } |
} |
| } |
} |
| if (srchby == 'lastfirst') { |
if (srchby == 'lastfirst') { |
| if (srchterm.indexOf(",") == -1) { |
if (srchterm.indexOf(",") == -1) { |
| checkok = 0; |
checkok = 0; |
| msg += "When using searching by last,first you must include a comma as separator between last name and first name.\\n"; |
msg += "$lt{'whus'}\\n"; |
| } |
} |
| if (srchterm.indexOf(",") == srchterm.length -1) { |
if (srchterm.indexOf(",") == srchterm.length -1) { |
| checkok = 0; |
checkok = 0; |
| msg += "When searching by last,first you must include at least one character in the first name.\\n"; |
msg += "$lt{'whse'}\\n"; |
| } |
} |
| } |
} |
| if (checkok == 0) { |
if (checkok == 0) { |
| alert("The following need to be corrected before the search can be run:\\n"+msg); |
alert("$lt{'thfo'}\\n"+msg); |
| return; |
return; |
| } |
} |
| if (checkok == 1) { |
if (checkok == 1) { |
| document.crtuser.submit(); |
callingForm.submit(); |
| } |
} |
| } |
} |
| |
|
|
Line 5795 $new_user_create
|
Line 6410 $new_user_create
|
| |
|
| <table> |
<table> |
| <tr> |
<tr> |
| |
<td>$lt{'doma'}:</td> |
| |
<td>$domform</td> |
| |
</td> |
| |
</tr> |
| |
<tr> |
| |
<td>$lt{'usr'}:</td> |
| <td>$srchbysel |
<td>$srchbysel |
| $srchtypesel |
$srchtypesel |
| <input type="text" size="15" name="srchterm" value="$srchterm" /> |
<input type="text" size="15" name="srchterm" value="$srchterm" /> |
| $srchinsel |
$srchinsel |
| </td> |
</td> |
| </tr> |
</tr> |
| <tr> |
|
| <td>$lt{'doma'}: $domform</td> |
|
| </td> |
|
| </tr> |
|
| </table> |
</table> |
| <br /> |
<br /> |
| END_BLOCK |
END_BLOCK |
|
Line 5812 END_BLOCK
|
Line 6429 END_BLOCK
|
| return $output; |
return $output; |
| } |
} |
| |
|
| |
sub username_rule_check { |
| |
my ($srch,$caller) = @_; |
| |
my ($response,@curr_rules,%inst_results,$rulematch); |
| |
my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($srch->{'srchdomain'}); |
| |
if (ref($srch) eq 'HASH') { |
| |
(my $inst_response,%inst_results) = |
| |
&Apache::lonnet::get_instuser($srch->{'srchdomain'}, |
| |
$srch->{'srchterm'}); |
| |
my %domconfig = &Apache::lonnet::get_dom('configuration', |
| |
['usercreation'],$srch->{'srchdomain'}); |
| |
if (ref($domconfig{'usercreation'}) eq 'HASH') { |
| |
if (ref($domconfig{'usercreation'}{'username_rule'}) eq 'ARRAY') { |
| |
@curr_rules = @{$domconfig{'usercreation'}{'username_rule'}}; |
| |
} |
| |
} |
| |
if (@curr_rules > 0) { |
| |
my $domdesc = &Apache::lonnet::domain($srch->{'srchdomain'},'description'); |
| |
my $instuser_reqd; |
| |
my %rule_check = &Apache::lonnet::inst_rulecheck($srch->{'srchdomain'},$srch->{'srchterm'},\@curr_rules); |
| |
foreach my $rule (@curr_rules) { |
| |
if ($rule_check{$rule}) { |
| |
$rulematch = $rule; |
| |
if ($inst_response eq 'ok') { |
| |
if (keys(%inst_results) == 0) { |
| |
if ($caller eq 'new') { |
| |
$response = &mt('The username you chose matches the format of usernames defined for <span class="LC_cusr_emph">[_1]</span>, but the user does not exist in the institutional directory.',$domdesc).'<br />'.&mt("You must choose a username with a different format -- one that will not conflict with 'official' institutional usernames."); |
| |
} |
| |
} |
| |
} |
| |
last; |
| |
} |
| |
} |
| |
if ($response) { |
| |
if ((ref($rules) eq 'HASH') && (ref($ruleorder) eq 'ARRAY')) { |
| |
if (@{$ruleorder} > 0) { |
| |
$response .= '<br />'.&mt('Usernames with the following format(s) may <span class="LC_cusr_emph">only</span> be used for verified users at [_1]:',$domdesc).' <ul>'; |
| |
foreach my $rule (@{$ruleorder}) { |
| |
if (grep(/^\Q$rule\E$/,@curr_rules)) { |
| |
if (ref($rules->{$rule}) eq 'HASH') { |
| |
$response .= '<li>'.$rules->{$rule}{'name'}.': '. |
| |
$rules->{$rule}{'desc'}.'</li>'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$response .= '</ul>'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return ($response,$rulematch,$rules,%inst_results); |
| |
} |
| |
|
| =pod |
=pod |
| |
|
|
Line 6185 sub csv_print_samples {
|
Line 6853 sub csv_print_samples {
|
| my ($r,$records) = @_; |
my ($r,$records) = @_; |
| my $samples = &get_samples($records,3); |
my $samples = &get_samples($records,3); |
| |
|
| $r->print(&mt('Samples').'<br /><table border="2"><tr>'); |
$r->print(&mt('Samples').'<br />'.&start_data_table(). |
| |
&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('</tr>'); |
$r->print(&end_data_table_header_row()); |
| foreach my $hash (@$samples) { |
foreach my $hash (@$samples) { |
| $r->print('<tr>'); |
$r->print(&start_data_table_row()); |
| foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { |
| $r->print('<td>'); |
$r->print('<td>'); |
| if (defined($$hash{$sample})) { $r->print($$hash{$sample}); } |
if (defined($$hash{$sample})) { $r->print($$hash{$sample}); } |
| $r->print('</td>'); |
$r->print('</td>'); |
| } |
} |
| $r->print('</tr>'); |
$r->print(&end_data_table_row()); |
| } |
} |
| $r->print('</tr></table><br />'."\n"); |
$r->print(&end_data_table().'<br />'."\n"); |
| } |
} |
| |
|
| ###################################################### |
###################################################### |
|
Line 6223 sub csv_print_select_table {
|
Line 6892 sub csv_print_select_table {
|
| my $i=0; |
my $i=0; |
| my $samples = &get_samples($records,1); |
my $samples = &get_samples($records,1); |
| $r->print(&mt('Associate columns with student attributes.')."\n". |
$r->print(&mt('Associate columns with student attributes.')."\n". |
| '<table border="2"><tr>'. |
&start_data_table().&start_data_table_header_row(). |
| '<th>'.&mt('Attribute').'</th>'. |
'<th>'.&mt('Attribute').'</th>'. |
| '<th>'.&mt('Column').'</th></tr>'."\n"); |
'<th>'.&mt('Column').'</th>'. |
| |
&end_data_table_header_row()."\n"); |
| foreach my $array_ref (@$d) { |
foreach my $array_ref (@$d) { |
| my ($value,$display,$defaultcol)=@{ $array_ref }; |
my ($value,$display,$defaultcol)=@{ $array_ref }; |
| $r->print('<tr><td>'.$display.'</td>'); |
$r->print(&start_data_table_row().'<tr><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.');">'); |
|
Line 6238 sub csv_print_select_table {
|
Line 6908 sub csv_print_select_table {
|
| ($sample eq $defaultcol ? ' selected="selected" ' : ''). |
($sample eq $defaultcol ? ' selected="selected" ' : ''). |
| '>Column '.($sample+1).'</option>'); |
'>Column '.($sample+1).'</option>'); |
| } |
} |
| $r->print('</select></td></tr>'."\n"); |
$r->print('</select></td>'.&end_data_table_row()."\n"); |
| $i++; |
$i++; |
| } |
} |
| |
$r->print(&end_data_table()); |
| $i--; |
$i--; |
| return $i; |
return $i; |
| } |
} |
|
Line 6267 sub csv_samples_select_table {
|
Line 6938 sub csv_samples_select_table {
|
| my $i=0; |
my $i=0; |
| # |
# |
| my $samples = &get_samples($records,3); |
my $samples = &get_samples($records,3); |
| $r->print('<table border=2><tr><th>'. |
$r->print(&start_data_table(). |
| &mt('Field').'</th><th>'.&mt('Samples').'</th></tr>'); |
&start_data_table_header_row().'<th>'. |
| |
&mt('Field').'</th><th>'.&mt('Samples').'</th>'. |
| |
&end_data_table_header_row()); |
| |
|
| foreach my $key (sort(keys(%{ $samples->[0] }))) { |
foreach my $key (sort(keys(%{ $samples->[0] }))) { |
| $r->print('<tr><td><select name="f'.$i.'"'. |
$r->print(&start_data_table_row().'<td><select name="f'.$i.'"'. |
| ' onchange="javascript:flip(this.form,'.$i.');">'); |
' onchange="javascript:flip(this.form,'.$i.');">'); |
| foreach my $option (@$d) { |
foreach my $option (@$d) { |
| my ($value,$display,$defaultcol)=@{ $option }; |
my ($value,$display,$defaultcol)=@{ $option }; |
|
Line 6285 sub csv_samples_select_table {
|
Line 6958 sub csv_samples_select_table {
|
| $r->print($samples->[$line]{$key}."<br />\n"); |
$r->print($samples->[$line]{$key}."<br />\n"); |
| } |
} |
| } |
} |
| $r->print('</td></tr>'); |
$r->print('</td>'.&end_data_table_row()); |
| $i++; |
$i++; |
| } |
} |
| |
$r->print(&end_data_table()); |
| $i--; |
$i--; |
| return($i); |
return($i); |
| } |
} |
|
Line 6974 sub commit_studentrole {
|
Line 7648 sub commit_studentrole {
|
| ############################################################ |
############################################################ |
| |
|
| sub check_clone { |
sub check_clone { |
| my ($args) = @_; |
my ($args,$linefeed) = @_; |
| my $cloneid='/'.$args->{'clonedomain'}.'/'.$args->{'clonecourse'}; |
my $cloneid='/'.$args->{'clonedomain'}.'/'.$args->{'clonecourse'}; |
| my ($clonecrsudom,$clonecrsunum)= &LONCAPA::split_courseid($cloneid); |
my ($clonecrsudom,$clonecrsunum)= &LONCAPA::split_courseid($cloneid); |
| my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom); |
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom); |
|
Line 6982 sub check_clone {
|
Line 7656 sub check_clone {
|
| my $can_clone = 0; |
my $can_clone = 0; |
| |
|
| if ($clonehome eq 'no_host') { |
if ($clonehome eq 'no_host') { |
| $clonemsg = &mt('Attempting to clone non-existing [_1]', |
$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
| $args->{'crstype'}); |
|
| } else { |
} else { |
| my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
| if ($env{'request.role.domain'} eq $args->{'form.clonedomain'}) { |
if ($env{'request.role.domain'} eq $args->{'clonedomain'}) { |
| $can_clone = 1; |
$can_clone = 1; |
| } else { |
} else { |
| my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
| $args->{'clonedomain'},$args->{'clonecourse'}); |
$args->{'clonedomain'},$args->{'clonecourse'}); |
| my @cloners = split(/,/,$clonehash{'cloners'}); |
my @cloners = split(/,/,$clonehash{'cloners'}); |
| my %roleshash = |
if (grep(/^\*$/,@cloners)) { |
| &Apache::lonnet::get_my_roles($args->{'ccuname'}, |
$can_clone = 1; |
| $args->{'ccdomain'},'userroles',['active'],['cc'], |
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
| [$args->{'clonedomain'}]); |
$can_clone = 1; |
| if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) { |
} else { |
| $can_clone = 1; |
my %roleshash = |
| } else { |
&Apache::lonnet::get_my_roles($args->{'ccuname'}, |
| $clonemsg = &mt('The new course was not cloned from an existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
$args->{'ccdomain'}, |
| |
'userroles',['active'],['cc'], |
| |
[$args->{'clonedomain'}]); |
| |
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) { |
| |
$can_clone = 1; |
| |
} else { |
| |
$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| |
|
| return ($can_clone, $clonemsg, $cloneid, $clonehome); |
return ($can_clone, $clonemsg, $cloneid, $clonehome); |
| } |
} |
| |
|
|
Line 7020 sub construct_course {
|
Line 7699 sub construct_course {
|
| # |
# |
| my ($can_clone, $clonemsg, $cloneid, $clonehome); |
my ($can_clone, $clonemsg, $cloneid, $clonehome); |
| if (($args->{'clonecourse'}) && ($args->{'clonedomain'})) { |
if (($args->{'clonecourse'}) && ($args->{'clonedomain'})) { |
| ($can_clone, $clonemsg, $cloneid, $clonehome) = &check_clone($args); |
($can_clone, $clonemsg, $cloneid, $clonehome) = &check_clone($args,$linefeed); |
| if ($context ne 'auto') { |
if ($context ne 'auto') { |
| $clonemsg = '<span class="LC_error">'.$clonemsg.'</span>'; |
if ($clonemsg ne '') { |
| |
$clonemsg = '<span class="LC_error">'.$clonemsg.'</span>'; |
| |
} |
| } |
} |
| $outcome .= $clonemsg.$linefeed; |
$outcome .= $clonemsg.$linefeed; |
| |
|
|
Line 7366 sub icon {
|
Line 8047 sub icon {
|
| return &lonhttpdurl($iconname); |
return &lonhttpdurl($iconname); |
| } |
} |
| |
|
| sub lonhttpdurl { |
sub lonhttpd_port { |
| my ($url)=@_; |
|
| my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
| if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; } |
if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; } |
| |
# IE doesn't like a secure page getting images from a non-secure |
| |
# port (when logging we haven't parsed the browser type so default |
| |
# back to secure |
| |
if ((!exists($env{'browser.type'}) || $env{'browser.type'} eq 'explorer') |
| |
&& $ENV{'SERVER_PORT'} == 443) { |
| |
return 443; |
| |
} |
| |
return $lonhttpd_port; |
| |
|
| |
} |
| |
|
| |
sub lonhttpdurl { |
| |
my ($url)=@_; |
| |
|
| |
my $lonhttpd_port = &lonhttpd_port(); |
| |
if ($lonhttpd_port == 443) { |
| |
return 'https://'.$ENV{'SERVER_NAME'}.$url; |
| |
} |
| return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url; |
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface