|
version 1.258, 2005/04/07 06:56:22
|
version 1.297, 2005/11/21 21:06:59
|
|
Line 152 BEGIN {
|
Line 152 BEGIN {
|
| my $designdir=$Apache::lonnet::perlvar{'lonTabDir'}.'/lonDomColors'; |
my $designdir=$Apache::lonnet::perlvar{'lonTabDir'}.'/lonDomColors'; |
| opendir(DIR,$designdir); |
opendir(DIR,$designdir); |
| while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
| |
if ($filename!~/\.tab$/) { next; } |
| my ($domain)=($filename=~/^(\w+)\./); |
my ($domain)=($filename=~/^(\w+)\./); |
| { |
{ |
| my $designfile = $designdir.'/'.$filename; |
my $designfile = $designdir.'/'.$filename; |
| if ( open (my $fh,"<$designfile") ) { |
if ( open (my $fh,"<$designfile") ) { |
| while (<$fh>) { |
while (<$fh>) { |
| next if /^\#/; |
next if /^\#/; |
| chomp; |
chomp; |
| my ($key,$val)=(split(/\=/,$_)); |
my ($key,$val)=(split(/\=/,$_)); |
| if ($val) { $designhash{$domain.'.'.$key}=$val; } |
if ($val) { $designhash{$domain.'.'.$key}=$val; } |
| } |
} |
| close($fh); |
close($fh); |
| } |
} |
| } |
} |
| |
|
| } |
} |
| closedir(DIR); |
closedir(DIR); |
|
Line 379 sub coursebrowser_javascript {
|
Line 380 sub coursebrowser_javascript {
|
| return (<<ENDSTDBRW); |
return (<<ENDSTDBRW); |
| <script type="text/javascript" language="Javascript" > |
<script type="text/javascript" language="Javascript" > |
| var stdeditbrowser; |
var stdeditbrowser; |
| function opencrsbrowser(formname,uname,udom,desc,extra_element) { |
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag) { |
| var url = '/adm/pickcourse?'; |
var url = '/adm/pickcourse?'; |
| var filter; |
var filter; |
| if (filter != null) { |
if (filter != null) { |
|
Line 402 sub coursebrowser_javascript {
|
Line 403 sub coursebrowser_javascript {
|
| url += '&domainfilter='+extra_element; |
url += '&domainfilter='+extra_element; |
| } |
} |
| } |
} |
| |
if (multflag !=null && multflag != '') { |
| |
url += '&multiple='+multflag; |
| |
} |
| var title = 'Course_Browser'; |
var title = 'Course_Browser'; |
| var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
| options += ',width=700,height=600'; |
options += ',width=700,height=600'; |
|
Line 413 ENDSTDBRW
|
Line 417 ENDSTDBRW
|
| } |
} |
| |
|
| sub selectcourse_link { |
sub selectcourse_link { |
| my ($form,$unameele,$udomele,$desc,$extra_element)=@_; |
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag)=@_; |
| return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele. |
return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele. |
| '","'.$udomele.'","'.$desc.'","'.$extra_element.'");'."'>".&mt('Select Course')."</a>"; |
'","'.$udomele.'","'.$desc.'","'.$extra_element.'","'.$multflag.'");'."'>".&mt('Select Course')."</a>"; |
| } |
} |
| |
|
| |
sub check_uncheck_jscript { |
| |
my $jscript = <<"ENDSCRT"; |
| |
function checkAll(field) { |
| |
if (field.length > 0) { |
| |
for (i = 0; i < field.length; i++) { |
| |
field[i].checked = true ; |
| |
} |
| |
} else { |
| |
field.checked = true |
| |
} |
| |
} |
| |
|
| |
function uncheckAll(field) { |
| |
if (field.length > 0) { |
| |
for (i = 0; i < field.length; i++) { |
| |
field[i].checked = false ; |
| |
} } else { |
| |
field.checked = false ; |
| |
} |
| |
} |
| |
ENDSCRT |
| |
return $jscript; |
| |
} |
| |
|
| |
|
| =pod |
=pod |
| |
|
| =item * linked_select_forms(...) |
=item * linked_select_forms(...) |
|
Line 673 sub help_open_menu {
|
Line 702 sub help_open_menu {
|
| foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { |
foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { |
| $$_ = &Apache::lonnet::escape($$_); |
$$_ = &Apache::lonnet::escape($$_); |
| } |
} |
| |
|
| if (!$stayOnPage) { |
if (!$stayOnPage) { |
| $link = "javascript:helpMenu('open')"; |
$link = "javascript:helpMenu('open')"; |
| } else { |
} else { |
|
Line 684 sub help_open_menu {
|
Line 712 sub help_open_menu {
|
| my $template; |
my $template; |
| if ($text ne "") { |
if ($text ne "") { |
| $template .= |
$template .= |
| "<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<table bgcolor='#CC3300' cellspacing='1' cellpadding='1' border='0'><tr>". |
| "<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
"<td bgcolor='#CC6600'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
| } |
} |
| |
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
| my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
| my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
| $template .= <<"ENDTEMPLATE"; |
$template .= <<"ENDTEMPLATE"; |
|
Line 698 function helpMenu(target) {
|
Line 727 function helpMenu(target) {
|
| if (target == 'open') { |
if (target == 'open') { |
| var newWindow = null; |
var newWindow = null; |
| try { |
try { |
| newWindow = window.open("/adm/rat/empty.html","helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
newWindow = window.open($nothing,"helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
| } |
} |
| catch(error) { |
catch(error) { |
| writeHelp(caller); |
writeHelp(caller); |
|
Line 712 function helpMenu(target) {
|
Line 741 function helpMenu(target) {
|
| return; |
return; |
| } |
} |
| function writeHelp(caller) { |
function writeHelp(caller) { |
| caller.document.write('$html<head><title>LON-CAPA Help Menu</title><meta http-equiv="pragma" content="no-cache"></head>') |
caller.document.writeln('$html<head><title>LON-CAPA Help Menu</title><meta http-equiv="pragma" content="no-cache"></head>') |
| caller.document.write("<frameset rows='105,*' border='0'><frame name='bannerframe' src='$banner_link'><frame name='bodyframe' src='$details_link'></frameset>") |
caller.document.writeln("<frameset rows='105,*' border='0'><frame name='bannerframe' src='$banner_link'><frame name='bodyframe' src='$details_link'></frameset>") |
| caller.document.write("</html>") |
caller.document.writeln("</html>") |
| caller.document.close() |
caller.document.close() |
| caller.focus() |
caller.focus() |
| } |
} |
|
Line 1123 sub domain_select {
|
Line 1152 sub domain_select {
|
| } &get_domains; |
} &get_domains; |
| if ($multiple) { |
if ($multiple) { |
| $domains{''}=&mt('Any domain'); |
$domains{''}=&mt('Any domain'); |
| return &multiple_select_form($name,$value,4,%domains); |
return &multiple_select_form($name,$value,4,\%domains); |
| } else { |
} else { |
| return &select_form($name,$value,%domains); |
return &select_form($name,$value,%domains); |
| } |
} |
| } |
} |
| |
|
| |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| |
=item * multiple_select_form($name,$value,$size,$hash,$order) |
| |
|
| |
Returns a string containing a <select> element int multiple mode |
| |
|
| |
|
| |
Args: |
| |
$name - name of the <select> element |
| |
$value - sclara or array ref of values that should already be selected |
| |
$size - number of rows long the select element is |
| |
$hash - the elements should be 'option' => 'shown text' |
| |
(shown text should already have been &mt()) |
| |
$order - (optional) array ref of the order to show the elments in |
| |
|
| |
=cut |
| |
|
| |
#------------------------------------------- |
| sub multiple_select_form { |
sub multiple_select_form { |
| my ($name,$value,$size,%hash)=@_; |
my ($name,$value,$size,$hash,$order)=@_; |
| my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
| my $output=''; |
my $output=''; |
| if (! defined($size)) { |
if (! defined($size)) { |
| $size = 4; |
$size = 4; |
| if (scalar(keys(%hash))<4) { |
if (scalar(keys(%$hash))<4) { |
| $size = scalar(keys(%hash)); |
$size = scalar(keys(%$hash)); |
| } |
} |
| } |
} |
| $output.="\n<select name='$name' size='$size' multiple='1'>"; |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
| foreach (sort(keys(%hash))) { |
my @order = ref($order) ? @$order |
| $output.='<option value="'.$_.'" '; |
: sort(keys(%$hash)); |
| $output.='selected="selected" ' if ($selected{$_}); |
foreach my $key (@order) { |
| $output.='>'.$hash{$_}."</option>\n"; |
$output.='<option value="'.$key.'" '; |
| |
$output.='selected="selected" ' if ($selected{$key}); |
| |
$output.='>'.$hash->{$key}."</option>\n"; |
| } |
} |
| $output.="</select>\n"; |
$output.="</select>\n"; |
| return $output; |
return $output; |
|
Line 1539 sub authform_nochange{
|
Line 1590 sub authform_nochange{
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my $result = &mt('[_1] Do not change login data', |
my $result = '<label>'.&mt('[_1] Do not change login data', |
| '<input type="radio" name="login" value="nochange" '. |
'<input type="radio" name="login" value="nochange" '. |
| 'checked="checked" onclick="'. |
'checked="checked" onclick="'. |
| "javascript:changed_radio('nochange',$in{'formname'});".'" />'); |
"javascript:changed_radio('nochange',$in{'formname'});".'" />'). |
| |
'</label>'; |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 1574 sub authform_kerberos{
|
Line 1626 sub authform_kerberos{
|
| my $jscall = "javascript:changed_radio('krb',$in{'formname'});"; |
my $jscall = "javascript:changed_radio('krb',$in{'formname'});"; |
| my $result .= &mt |
my $result .= &mt |
| ('[_1] Kerberos authenticated with domain [_2] '. |
('[_1] Kerberos authenticated with domain [_2] '. |
| '[_3] Version 4 [_4] Version 5', |
'[_3] Version 4 [_4] Version 5 [_5]', |
| '<input type="radio" name="login" value="krb" '. |
'<label><input type="radio" name="login" value="krb" '. |
| 'onclick="'.$jscall.'" onchange="'.$jscall.'"'.$krbcheck.' />', |
'onclick="'.$jscall.'" onchange="'.$jscall.'"'.$krbcheck.' />', |
| '<input type="text" size="10" name="krbarg" '. |
'</label><input type="text" size="10" name="krbarg" '. |
| 'value="'.$krbarg.'" '. |
'value="'.$krbarg.'" '. |
| 'onchange="'.$jscall.'" />', |
'onchange="'.$jscall.'" />', |
| '<input type="radio" name="krbver" value="4" '.$check4.' />', |
'<label><input type="radio" name="krbver" value="4" '.$check4.' />', |
| '<input type="radio" name="krbver" value="5" '.$check5.' />'); |
'</label><label><input type="radio" name="krbver" value="5" '.$check5.' />', |
| |
'</label>'); |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 1606 sub authform_internal{
|
Line 1659 sub authform_internal{
|
| my $jscall = "javascript:changed_radio('int',$args{'formname'});"; |
my $jscall = "javascript:changed_radio('int',$args{'formname'});"; |
| my $result.=&mt |
my $result.=&mt |
| ('[_1] Internally authenticated (with initial password [_2])', |
('[_1] Internally authenticated (with initial password [_2])', |
| '<input type="radio" name="login" value="int" '.$intcheck. |
'<label><input type="radio" name="login" value="int" '.$intcheck. |
| ' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
| '<input type="text" size="10" name="intarg" '.$intarg. |
'</label><input type="text" size="10" name="intarg" '.$intarg. |
| ' onchange="'.$jscall.'" />'); |
' onchange="'.$jscall.'" />'); |
| return $result; |
return $result; |
| } |
} |
|
Line 1633 sub authform_local{
|
Line 1686 sub authform_local{
|
| |
|
| my $jscall = "javascript:changed_radio('loc',$in{'formname'});"; |
my $jscall = "javascript:changed_radio('loc',$in{'formname'});"; |
| my $result.=&mt('[_1] Local Authentication with argument [_2]', |
my $result.=&mt('[_1] Local Authentication with argument [_2]', |
| '<input type="radio" name="login" value="loc" '.$loccheck. |
'<label><input type="radio" name="login" value="loc" '.$loccheck. |
| ' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
' onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
| '<input type="text" size="10" name="locarg" '.$locarg. |
'</label><input type="text" size="10" name="locarg" '.$locarg. |
| ' onchange="'.$jscall.'" />'); |
' onchange="'.$jscall.'" />'); |
| return $result; |
return $result; |
| } |
} |
|
Line 1649 sub authform_filesystem{
|
Line 1702 sub authform_filesystem{
|
| my $jscall = "javascript:changed_radio('fsys',$in{'formname'});"; |
my $jscall = "javascript:changed_radio('fsys',$in{'formname'});"; |
| my $result.= &mt |
my $result.= &mt |
| ('[_1] Filesystem Authenticated (with initial password [_2])', |
('[_1] Filesystem Authenticated (with initial password [_2])', |
| '<input type="radio" name="login" value="fsys" '. |
'<label><input type="radio" name="login" value="fsys" '. |
| 'onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
'onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
| '<input type="text" size="10" name="fsysarg" value="" '. |
'</label><input type="text" size="10" name="fsysarg" value="" '. |
| 'onchange="'.$jscall.'" />'); |
'onchange="'.$jscall.'" />'); |
| return $result; |
return $result; |
| } |
} |
|
Line 1867 if $first is set to 'lastname' then it r
|
Line 1920 if $first is set to 'lastname' then it r
|
| |
|
| =cut |
=cut |
| |
|
| |
|
| ############################################################### |
############################################################### |
| sub plainname { |
sub plainname { |
| my ($uname,$udom,$first)=@_; |
my ($uname,$udom,$first)=@_; |
| my %names=&Apache::lonnet::get('environment', |
my %names=&getnames($uname,$udom); |
| ['firstname','middlename','lastname','generation'], |
|
| $udom,$uname); |
|
| my $name=&Apache::lonnet::format_name($names{'firstname'}, |
my $name=&Apache::lonnet::format_name($names{'firstname'}, |
| $names{'middlename'}, |
$names{'middlename'}, |
| $names{'lastname'}, |
$names{'lastname'}, |
|
Line 1903 if the user does not
|
Line 1955 if the user does not
|
| |
|
| sub nickname { |
sub nickname { |
| my ($uname,$udom)=@_; |
my ($uname,$udom)=@_; |
| my %names; |
my %names=&getnames($uname,$udom); |
| if ($uname eq $env{'user.name'} && |
|
| $udom eq $env{'user.domain'}) { |
|
| %names=('nickname' => $env{'environment.nickname'} , |
|
| 'firstname' => $env{'environment.firstname'} , |
|
| 'middlename' => $env{'environment.middlename'}, |
|
| 'lastname' => $env{'environment.lastname'} , |
|
| 'generation' => $env{'environment.generation'}); |
|
| } else { |
|
| %names=&Apache::lonnet::get('environment', |
|
| ['nickname','firstname','middlename', |
|
| 'lastname','generation'],$udom,$uname); |
|
| } |
|
| my $name=$names{'nickname'}; |
my $name=$names{'nickname'}; |
| if ($name) { |
if ($name) { |
| $name='"'.$name.'"'; |
$name='"'.$name.'"'; |
|
Line 1928 sub nickname {
|
Line 1968 sub nickname {
|
| return $name; |
return $name; |
| } |
} |
| |
|
| |
sub getnames { |
| |
my ($uname,$udom)=@_; |
| |
my $id=$uname.':'.$udom; |
| |
my ($names,$cached)=&Apache::lonnet::is_cached_new('namescache',$id); |
| |
if ($cached) { |
| |
return %{$names}; |
| |
} else { |
| |
my %loadnames=&Apache::lonnet::get('environment', |
| |
['firstname','middlename','lastname','generation','nickname'], |
| |
$udom,$uname); |
| |
&Apache::lonnet::do_cache_new('namescache',$id,\%loadnames); |
| |
return %loadnames; |
| |
} |
| |
} |
| |
|
| # ------------------------------------------------------------------ Screenname |
# ------------------------------------------------------------------ Screenname |
| |
|
|
Line 1984 sub syllabuswrapper {
|
Line 2038 sub syllabuswrapper {
|
| } |
} |
| |
|
| sub track_student_link { |
sub track_student_link { |
| my ($linktext,$sname,$sdom,$target) = @_; |
my ($linktext,$sname,$sdom,$target,$start) = @_; |
| my $link ="/adm/trackstudent"; |
my $link ="/adm/trackstudent?"; |
| my $title = 'View recent activity'; |
my $title = 'View recent activity'; |
| if (defined($sname) && $sname !~ /^\s*$/ && |
if (defined($sname) && $sname !~ /^\s*$/ && |
| defined($sdom) && $sdom !~ /^\s*$/) { |
defined($sdom) && $sdom !~ /^\s*$/) { |
| $link .= "?selected_student=$sname:$sdom"; |
$link .= "selected_student=$sname:$sdom"; |
| $title .= ' of this student'; |
$title .= ' of this student'; |
| } |
} |
| if (defined($target) && $target !~ /^\s*$/) { |
if (defined($target) && $target !~ /^\s*$/) { |
| $target = qq{target="$target"}; |
$target = qq{target="$target"}; |
| } else { |
} else { |
| $target = ''; |
$target = ''; |
| } |
} |
| |
if ($start) { $link.='&start='.$start; } |
| return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
| } |
} |
| |
|
| |
|
| |
|
| =pod |
=pod |
| |
|
| =back |
=back |
|
Line 2484 sub pgrdlink {
|
Line 2537 sub pgrdlink {
|
| Inputs: $text $uname $udom $symb $target |
Inputs: $text $uname $udom $symb $target |
| |
|
| Returns: A link to parmset.pm such as to see the PPRM view of a |
Returns: A link to parmset.pm such as to see the PPRM view of a |
| student andn resource |
student and a specific resource |
| |
|
| =cut |
=cut |
| |
|
|
Line 2689 other decorations will be returned.
|
Line 2742 other decorations will be returned.
|
| =cut |
=cut |
| |
|
| sub bodytag { |
sub bodytag { |
| my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle)=@_; |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,$notopbar)=@_; |
| $title=&mt($title); |
$title=&mt($title); |
| $function = &get_users_function() if (!$function); |
$function = &get_users_function() if (!$function); |
| my $img=&designparm($function.'.img',$domain); |
my $img=&designparm($function.'.img',$domain); |
|
Line 2725 sub bodytag {
|
Line 2778 sub bodytag {
|
| <style type="text/css"> |
<style type="text/css"> |
| h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
| a:focus { color: red; background: yellow } |
a:focus { color: red; background: yellow } |
| |
table.thinborder { border-collapse: collapse; } |
| |
table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px} |
| |
form, .inline { display: inline; } |
| |
.center { text-align: center; } |
| </style> |
</style> |
| <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
| style="margin-top: 0px;$addstyle" $addentries> |
style="margin-top: 0px;$addstyle" $addentries> |
| END |
END |
| |
&Apache::lontexconvert::jsMath_reset(); |
| if ($env{'environment.texengine'} eq 'jsMath') { |
if ($env{'environment.texengine'} eq 'jsMath') { |
| $bodytag.='<script type="text/javascript"> |
$bodytag.=&Apache::lontexconvert::jsMath_header(); |
| function NoFontMessage () {} |
|
| </script>'."\n". |
|
| '<script src="/adm/jsMath/jsMath.js"></script>'."\n"; |
|
| } |
} |
| |
|
| my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'. |
my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'. |
|
Line 2796 ENDROLE
|
Line 2851 ENDROLE
|
| } |
} |
| my $titletable = '<table bgcolor="'.$pgbg.'" width="100%" border="0" '. |
my $titletable = '<table bgcolor="'.$pgbg.'" width="100%" border="0" '. |
| 'cellspacing="3" cellpadding="3">'. |
'cellspacing="3" cellpadding="3">'. |
| '<tr><td rowspan="3" bgcolor="'.$tabbg.'">'. |
'<tr><td bgcolor="'.$tabbg.'">'. |
| $titleinfo.'</td>'.$roleinfo.'</tr></table>'; |
$titleinfo.'</td>'.$roleinfo.'</tr></table>'; |
| if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
| $bodytag .= &Apache::lonmenu::menubuttons($forcereg,'web',$forcereg,$titletable); |
if ($notopbar) { |
| |
$bodytag .= $titletable; |
| |
} else { |
| |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,'web',$forcereg,$titletable); |
| |
} |
| } else { |
} else { |
| $bodytag .= &Apache::lonmenu::menubuttons($forcereg,'web',$forcereg). |
if ($notopbar) { |
| |
$bodytag .= $titletable; |
| |
} else { |
| |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,'web',$forcereg). |
| $titletable; |
$titletable; |
| |
} |
| } |
} |
| return $bodytag; |
return $bodytag; |
| } |
} |
|
Line 2880 Returns: A uniform footer for LON-CAPA w
|
Line 2943 Returns: A uniform footer for LON-CAPA w
|
| |
|
| sub endbodytag { |
sub endbodytag { |
| my $endbodytag='</body>'; |
my $endbodytag='</body>'; |
| if ($env{'environment.texengine'} eq 'jsMath') { |
$endbodytag=&Apache::lontexconvert::jsMath_process()."\n".$endbodytag; |
| $endbodytag='<script type="text/javascript">jsMath.Process()</script>'. |
|
| "\n".$endbodytag; |
|
| } |
|
| return $endbodytag; |
return $endbodytag; |
| } |
} |
| |
|
|
Line 2918 sub get_users_function {
|
Line 2978 sub get_users_function {
|
| |
|
| =pod |
=pod |
| |
|
| |
=item check_user_status |
| |
|
| |
Determines current status of supplied role for a |
| |
specific user. Roles can be active, previous or future. |
| |
|
| |
Inputs: |
| |
user's domain, user's username, course's domain, |
| |
course's number, optional section/group. |
| |
|
| |
Outputs: |
| |
role status: active, previous or future. |
| |
|
| |
=cut |
| |
|
| |
sub check_user_status { |
| |
my ($udom,$uname,$cdom,$crs,$role,$secgrp) = @_; |
| |
my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname); |
| |
my @uroles = keys %userinfo; |
| |
my $srchstr; |
| |
my $active_chk = 'none'; |
| |
if (@uroles > 0) { |
| |
if (($role eq 'cc') || ($secgrp eq '') || (!defined($secgrp))) { |
| |
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role; |
| |
} else { |
| |
$srchstr = '/'.$cdom.'/'.$crs.'/'.$secgrp.'_'.$role; } |
| |
if (grep/^$srchstr$/,@uroles) { |
| |
my $role_end = 0; |
| |
my $role_start = 0; |
| |
$active_chk = 'active'; |
| |
if ($userinfo{$srchstr} =~ m/^($role)_(\d+)/) { |
| |
$role_end = $2; |
| |
if ($userinfo{$srchstr} =~ m/^($role)_($role_end)_(\d+)$/) { |
| |
$role_start = $3; |
| |
} |
| |
} |
| |
if ($role_start > 0) { |
| |
if (time < $role_start) { |
| |
$active_chk = 'future'; |
| |
} |
| |
} |
| |
if ($role_end > 0) { |
| |
if (time > $role_end) { |
| |
$active_chk = 'previous'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return $active_chk; |
| |
} |
| |
|
| |
############################################### |
| |
|
| |
=pod |
| |
|
| =item get_sections |
=item get_sections |
| |
|
| Determines all the sections for a course including |
Determines all the sections for a course including |
|
Line 2936 Returns number of sections.
|
Line 3050 Returns number of sections.
|
| sub get_sections { |
sub get_sections { |
| my ($cdom,$cnum,$sectioncount,$possible_roles) = @_; |
my ($cdom,$cnum,$sectioncount,$possible_roles) = @_; |
| if (!($cdom && $cnum)) { return 0; } |
if (!($cdom && $cnum)) { return 0; } |
| my $cid = $cdom.'_'.$cnum; |
|
| my $numsections = 0; |
my $numsections = 0; |
| |
|
| if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) { |
if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) { |
| my ($classlist) = &Apache::loncoursedata::get_classlist($cid,$cdom,$cnum); |
my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum); |
| my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
| my $status_index = &Apache::loncoursedata::CL_STATUS(); |
my $status_index = &Apache::loncoursedata::CL_STATUS(); |
| while (my ($student,$data) = each %$classlist) { |
while (my ($student,$data) = each %$classlist) { |
|
Line 2970 sub get_sections {
|
Line 3083 sub get_sections {
|
| return $numsections; |
return $numsections; |
| } |
} |
| |
|
| |
############################################### |
| |
|
| |
=pod |
| |
|
| |
=item get_group_settings |
| |
|
| |
Uses TokeParser to extract group information from the |
| |
XML used to describe course groups. |
| |
|
| |
Input: |
| |
Scalar containing XML (as retrieved from &lonnet::get_coursegroups). |
| |
|
| |
Output: |
| |
Hash containing group information as key=values for (a), and |
| |
hash of hashes for (b) |
| |
|
| |
Keys (in two categories): |
| |
(a) groupname, creator, creation, modified, startdate,enddate. |
| |
Corresponding values are name of the group, creator of the group |
| |
(username:domain), UNIX time for date group was created, and |
| |
settings were last modified, and default start and end access |
| |
times for group members. |
| |
|
| |
(b) functions returned in hash of hashes. |
| |
Outer hash key is functions. |
| |
Inner hash keys are chat,discussion,email,files,homepage,roster. |
| |
Corresponding values are either on or off, depending on |
| |
whther this type of functionality is available for the group. |
| |
|
| |
=cut |
| |
|
| |
############################################### |
| |
|
| |
sub get_group_settings { |
| |
my ($groupinfo)=@_; |
| |
my $parser=HTML::TokeParser->new(\$groupinfo); |
| |
my $token; |
| |
my $tool = ''; |
| |
my %content=(); |
| |
while ($token=$parser->get_token) { |
| |
if ($token->[0] eq 'S') { |
| |
my $entry=$token->[1]; |
| |
if ($entry eq 'functions') { |
| |
%{$content{$entry}} = (); |
| |
$tool = $entry; |
| |
} else { |
| |
my $value=$parser->get_text('/'.$entry); |
| |
if ($entry eq 'name') { |
| |
if ($tool eq 'functions') { |
| |
my $function = $token->[2]{id}; |
| |
$content{$tool}{$function} = $value; |
| |
} |
| |
} elsif ($entry eq 'groupname') { |
| |
$content{$entry}=&Apache::lonnet::unescape($value); |
| |
} else { |
| |
$content{$entry}=$value; |
| |
} |
| |
} |
| |
} elsif ($token->[0] eq 'E') { |
| |
if ($token->[1] eq 'functions') { |
| |
$tool = ''; |
| |
} |
| |
} |
| |
} |
| |
return %content; |
| |
} |
| |
|
| |
sub check_group_access { |
| |
my ($group) = @_; |
| |
my $access = 1; |
| |
my $now = time; |
| |
my ($start,$end) = split(/\./,$env{'user.role.gr/'.$env{'request.course,id'}.'/'.$group}); |
| |
if (($end!=0) && ($end<$now)) { $access = 0; } |
| |
if (($start!=0) && ($start>$now)) { $access=0; } |
| |
return $access; |
| |
} |
| |
|
| |
############################################### |
| |
|
| |
=pod |
| |
|
| |
=item get_course_users |
| |
|
| |
Retrieves usernames:domains for users in the specified course |
| |
with specific role(s), and access status. |
| |
|
| |
Incoming parameters: |
| |
1. course domain |
| |
2. course number |
| |
3. access status: users must have - either active, |
| |
previous, future, or all. |
| |
4. reference to array of permissible roles |
| |
5. reference to array of section restrictions (optional) |
| |
6. reference to results object (hash of hashes). |
| |
7. reference to optional userdata hash |
| |
Keys of top level hash are roles. |
| |
Keys of inner hashes are username:domain, with |
| |
values set to access type. |
| |
Optional userdata hash returns an array with arguments in the |
| |
same order as loncoursedata::get_classlist() for student data. |
| |
|
| |
Entries for end, start, section and status are blank because |
| |
of the possibility of multiple values for non-student roles. |
| |
|
| |
=cut |
| |
|
| |
############################################### |
| |
|
| |
sub get_course_users { |
| |
my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata) = @_; |
| |
my %idx = (); |
| |
|
| |
$idx{udom} = &Apache::loncoursedata::CL_SDOM(); |
| |
$idx{uname} = &Apache::loncoursedata::CL_SNAME(); |
| |
$idx{end} = &Apache::loncoursedata::CL_END(); |
| |
$idx{start} = &Apache::loncoursedata::CL_START(); |
| |
$idx{id} = &Apache::loncoursedata::CL_ID(); |
| |
$idx{section} = &Apache::loncoursedata::CL_SECTION(); |
| |
$idx{fullname} = &Apache::loncoursedata::CL_FULLNAME(); |
| |
$idx{status} = &Apache::loncoursedata::CL_STATUS(); |
| |
|
| |
if (grep(/^st$/,@{$roles})) { |
| |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist($cdom,$cnum); |
| |
my $now = time; |
| |
foreach my $student (keys(%{$classlist})) { |
| |
my $match = 0; |
| |
if ((ref($sections) eq 'ARRAY') && (@{$sections} > 0)) { |
| |
unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/, |
| |
@{$sections})) { |
| |
next; |
| |
} |
| |
} |
| |
if (defined($$types{'active'})) { |
| |
if ($$classlist{$student}[$idx{status}] eq 'Active') { |
| |
push(@{$$users{st}{$student}},'active'); |
| |
$match = 1; |
| |
} |
| |
} |
| |
if (defined($$types{'previous'})) { |
| |
if ($$classlist{$student}[$idx{end}] <= $now) { |
| |
push(@{$$users{st}{$student}},'previous'); |
| |
$match = 1; |
| |
} |
| |
} |
| |
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 '')) { |
| |
push(@{$$users{st}{$student}},'future'); |
| |
$match = 1; |
| |
} |
| |
} |
| |
if ($match && defined($userdata)) { |
| |
$$userdata{$student} = $$classlist{$student}; |
| |
} |
| |
} |
| |
} |
| |
if ((@{$roles} > 0) && (@{$roles} ne "st")) { |
| |
my @coursepersonnel = &Apache::lonnet::getkeys('nohist_userroles',$cdom,$cnum); |
| |
foreach my $person (@coursepersonnel) { |
| |
my $match = 0; |
| |
my ($role,$user) = ($person =~ /^([^:]*):([^:]+:[^:]+)/); |
| |
$user =~ s/:$//; |
| |
if (($role) && (grep(/^\Q$role\E$/,@{$roles}))) { |
| |
my ($uname,$udom,$usec) = split(/:/,$user); |
| |
if ($usec ne '' && (ref($sections) eq 'ARRAY') && |
| |
@{$sections} > 0) { |
| |
unless(grep(/^\Q$usec\E$/,@{$sections})) { |
| |
next; |
| |
} |
| |
} |
| |
if ($uname ne '' && $udom ne '') { |
| |
my $status = &check_user_status($udom,$uname,$cdom,$cnum,$role); |
| |
foreach my $type (keys(%{$types})) { |
| |
if ($status eq $type) { |
| |
@{$$users{$role}{$user}} = $type; |
| |
$match = 1; |
| |
} |
| |
} |
| |
if ($match && defined($userdata) && |
| |
!exists($$userdata{$uname.':'.$udom})) { |
| |
&get_user_info($udom,$uname,\%idx,$userdata); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (grep(/^ow$/,@{$roles})) { |
| |
if ((defined($cdom)) && (defined($cnum))) { |
| |
my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum); |
| |
if ( defined($csettings{'internal.courseowner'}) ) { |
| |
my $owner = $csettings{'internal.courseowner'}; |
| |
@{$$users{'ow'}{$owner.':'.$cdom}} = 'any'; |
| |
if (defined($userdata) && |
| |
!exists($$userdata{$owner.':'.$cdom})) { |
| |
&get_user_info($cdom,$owner,\%idx,$userdata); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub get_user_info { |
| |
my ($udom,$uname,$idx,$userdata) = @_; |
| |
$$userdata{$uname.':'.$udom}[$$idx{fullname}] = |
| |
&plainname($uname,$udom,'lastname'); |
| |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname; |
| |
$$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom; |
| |
return; |
| |
} |
| |
|
| |
############################################### |
| |
|
| sub get_posted_cgi { |
sub get_posted_cgi { |
| my $r=shift; |
my $r=shift; |
| |
|
| my $buffer; |
my $buffer; |
| |
if ($r->header_in('Content-length')) { |
| $r->read($buffer,$r->header_in('Content-length'),0); |
$r->read($buffer,$r->header_in('Content-length'),0); |
| |
} |
| unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) { |
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) { |
| my @pairs=split(/&/,$buffer); |
my @pairs=split(/&/,$buffer); |
| my $pair; |
my $pair; |
|
Line 3064 sub get_unprocessed_cgi {
|
Line 3389 sub get_unprocessed_cgi {
|
| if (!defined($possible_names) || (grep {$_ eq $name} @$possible_names)) { |
if (!defined($possible_names) || (grep {$_ eq $name} @$possible_names)) { |
| $value =~ tr/+/ /; |
$value =~ tr/+/ /; |
| $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
| &Apache::lonxml::debug("Seting :$name: to :$value:"); |
|
| unless (defined($env{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; |
unless (defined($env{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; |
| } |
} |
| } |
} |
|
Line 3107 sub no_cache {
|
Line 3431 sub no_cache {
|
| |
|
| sub content_type { |
sub content_type { |
| my ($r,$type,$charset) = @_; |
my ($r,$type,$charset) = @_; |
| |
&no_cache($r); |
| if ($env{'browser.mathml'} && $type eq 'text/html') { $type='text/xml'; } |
if ($env{'browser.mathml'} && $type eq 'text/html') { $type='text/xml'; } |
| unless ($charset) { |
unless ($charset) { |
| $charset=&Apache::lonlocal::current_encoding; |
$charset=&Apache::lonlocal::current_encoding; |
|
Line 3135 sub add_to_env {
|
Line 3460 sub add_to_env {
|
| if (ref($env{$name})) { |
if (ref($env{$name})) { |
| #already have multiple values |
#already have multiple values |
| push(@{ $env{$name} },$value); |
push(@{ $env{$name} },$value); |
| push(@{ $ENV{$name} },$value); |
|
| } else { |
} else { |
| #first time seeing multiple values, convert hash entry to an arrayref |
#first time seeing multiple values, convert hash entry to an arrayref |
| my $first=$env{$name}; |
my $first=$env{$name}; |
| undef($env{$name}); |
undef($env{$name}); |
| undef($ENV{$name}); |
|
| push(@{ $env{$name} },$first,$value); |
push(@{ $env{$name} },$first,$value); |
| push(@{ $ENV{$name} },$first,$value); |
|
| } |
} |
| } else { |
} else { |
| $env{$name}=$value; |
$env{$name}=$value; |
| $ENV{$name}=$value; |
|
| } |
} |
| } |
} |
| |
|
|
Line 3266 Separate a record into fields $record sh
|
Line 3587 Separate a record into fields $record sh
|
| |
|
| =cut |
=cut |
| |
|
| |
sub takeleft { |
| |
my $index=shift; |
| |
return substr('0000'.$index,-4,4); |
| |
} |
| |
|
| sub record_sep { |
sub record_sep { |
| my $record=shift; |
my $record=shift; |
| my %components=(); |
my %components=(); |
|
Line 3276 sub record_sep {
|
Line 3602 sub record_sep {
|
| my $field=$_; |
my $field=$_; |
| $field=~s/^(\"|\')//; |
$field=~s/^(\"|\')//; |
| $field=~s/(\"|\')$//; |
$field=~s/(\"|\')$//; |
| $components{$i}=$field; |
$components{&takeleft($i)}=$field; |
| $i++; |
$i++; |
| } |
} |
| } elsif ($env{'form.upfiletype'} eq 'tab') { |
} elsif ($env{'form.upfiletype'} eq 'tab') { |
|
Line 3285 sub record_sep {
|
Line 3611 sub record_sep {
|
| my $field=$_; |
my $field=$_; |
| $field=~s/^(\"|\')//; |
$field=~s/^(\"|\')//; |
| $field=~s/(\"|\')$//; |
$field=~s/(\"|\')$//; |
| $components{$i}=$field; |
$components{&takeleft($i)}=$field; |
| $i++; |
$i++; |
| } |
} |
| } else { |
} else { |
|
Line 3303 sub record_sep {
|
Line 3629 sub record_sep {
|
| $field=~s/^\s*$delimiter//; |
$field=~s/^\s*$delimiter//; |
| $field=~s/$delimiter\s*$//; |
$field=~s/$delimiter\s*$//; |
| } |
} |
| $components{$i}=$field; |
$components{&takeleft($i)}=$field; |
| $i++; |
$i++; |
| } |
} |
| } |
} |
|
Line 3460 sub csv_samples_select_table {
|
Line 3786 sub csv_samples_select_table {
|
| $display.'</option>'); |
$display.'</option>'); |
| } |
} |
| $r->print('</select></td><td>'); |
$r->print('</select></td><td>'); |
| if (defined($sone{$_})) { $r->print($sone{$_}."</br>\n"); } |
if (defined($sone{$_})) { $r->print($sone{$_}."<br />\n"); } |
| if (defined($stwo{$_})) { $r->print($stwo{$_}."</br>\n"); } |
if (defined($stwo{$_})) { $r->print($stwo{$_}."<br />\n"); } |
| if (defined($sthree{$_})) { $r->print($sthree{$_}."</br>\n"); } |
if (defined($sthree{$_})) { $r->print($sthree{$_}."<br />\n"); } |
| $r->print('</td></tr>'); |
$r->print('</td></tr>'); |
| $i++; |
$i++; |
| } |
} |
|
Line 3551 the routine &Apache::lonnet::transfer_pr
|
Line 3877 the routine &Apache::lonnet::transfer_pr
|
| my $uniq=0; |
my $uniq=0; |
| sub get_cgi_id { |
sub get_cgi_id { |
| $uniq=($uniq+1)%100000; |
$uniq=($uniq+1)%100000; |
| return (time.'_'.$uniq); |
return (time.'_'.$$.'_'.$uniq); |
| } |
} |
| |
|
| ############################################################ |
############################################################ |
![[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