version 1.108, 2003/07/16 14:21:56
|
version 1.111, 2003/08/13 20:40:31
|
Line 311 END
|
Line 311 END
|
} |
} |
|
|
sub studentbrowser_javascript { |
sub studentbrowser_javascript { |
unless ($ENV{'request.course.id'}) { return ''; } |
unless ( |
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
(($ENV{'request.course.id'}) && |
return ''; |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) |
} |
|| ($ENV{'request.role'}=~/^(au|dc|su)/) |
|
) { return ''; } |
return (<<'ENDSTDBRW'); |
return (<<'ENDSTDBRW'); |
<script type="text/javascript" language="Javascript" > |
<script type="text/javascript" language="Javascript" > |
var stdeditbrowser; |
var stdeditbrowser; |
function openstdbrowser(formname,uname,udom) { |
function openstdbrowser(formname,uname,udom,roleflag) { |
var url = '/adm/pickstudent?'; |
var url = '/adm/pickstudent?'; |
var filter; |
var filter; |
eval('filter=document.'+formname+'.'+uname+'.value;'); |
eval('filter=document.'+formname+'.'+uname+'.value;'); |
Line 329 sub studentbrowser_javascript {
|
Line 330 sub studentbrowser_javascript {
|
} |
} |
url += 'form=' + formname + '&unameelement='+uname+ |
url += 'form=' + formname + '&unameelement='+uname+ |
'&udomelement='+udom; |
'&udomelement='+udom; |
|
if (roleflag) { url+="&roles=1"; } |
var title = 'Student_Browser'; |
var title = 'Student_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 340 ENDSTDBRW
|
Line 342 ENDSTDBRW
|
} |
} |
|
|
sub selectstudent_link { |
sub selectstudent_link { |
my ($form,$unameele,$udomele)=@_; |
my ($form,$unameele,$udomele)=@_; |
unless ($ENV{'request.course.id'}) { return ''; } |
if ($ENV{'request.course.id'}) { |
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
return ''; |
return ''; |
} |
} |
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
'","'.$udomele.'");'."'>Select User</a>"; |
'","'.$udomele.'");'."'>Select User</a>"; |
|
} |
|
if ($ENV{'request.role'}=~/^(au|dc|su)/) { |
|
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
|
'","'.$udomele.'",1);'."'>Select User</a>"; |
|
} |
|
return ''; |
} |
} |
|
|
sub coursebrowser_javascript { |
sub coursebrowser_javascript { |
Line 1353 sub aboutmewrapper {
|
Line 1361 sub aboutmewrapper {
|
|
|
|
|
sub syllabuswrapper { |
sub syllabuswrapper { |
my ($link,$un,$do,$tf)=@_; |
my ($linktext,$coursedir,$domain,$fontcolor)=@_; |
if ($tf) { $link='<font color="'.$tf.'">'.$link.'</font>'; } |
if ($fontcolor) { |
return "<a href='/public/$do/$un/syllabus'>$link</a>"; |
$linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>'; |
|
} |
|
return "<a href='/public/$domain/$coursedir/syllabus'>$linktext</a>"; |
} |
} |
|
|
# ---------------------------------------------------------------- Language IDs |
# ---------------------------------------------------------------- Language IDs |
Line 1719 Returns: value of designparamter $which
|
Line 1729 Returns: value of designparamter $which
|
############################################## |
############################################## |
sub designparm { |
sub designparm { |
my ($which,$domain)=@_; |
my ($which,$domain)=@_; |
|
if ($ENV{'browser.blackwhite'} eq 'on') { |
|
if ($which=~/\.(font|alink|vlink|link)$/) { |
|
return '#000000'; |
|
} |
|
if ($which=~/\.(pgbg|sidebg)$/) { |
|
return '#FFFFFF'; |
|
} |
|
if ($which=~/\.tabbg$/) { |
|
return '#CCCCCC'; |
|
} |
|
} |
if ($ENV{'environment.color.'.$which}) { |
if ($ENV{'environment.color.'.$which}) { |
return $ENV{'environment.color.'.$which}; |
return $ENV{'environment.color.'.$which}; |
} |
} |
Line 1783 sub bodytag {
|
Line 1804 sub bodytag {
|
my $alink=&designparm($function.'.alink',$domain); |
my $alink=&designparm($function.'.alink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
|
# Accessibility font enhance |
|
unless ($addentries) { $addentries=''; } |
|
if ($ENV{'browser.fontenhance'} eq 'on') { |
|
$addentries.=' style="font-size: x-large"'; |
|
} |
# role and realm |
# role and realm |
my ($role,$realm) |
my ($role,$realm) |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |