version 1.69, 2002/09/17 15:21:51
|
version 1.79, 2003/02/13 18:11:26
|
Line 27
|
Line 27
|
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 2/13-12/7 Guy Albertelli |
# 2/13-12/7 Guy Albertelli |
# 12/11,12/12,12/17 Scott Harrison |
|
# 12/21 Gerd Kortemeyer |
# 12/21 Gerd Kortemeyer |
# 12/21 Scott Harrison |
|
# 12/25,12/28 Gerd Kortemeyer |
# 12/25,12/28 Gerd Kortemeyer |
# YEAR=2002 |
# YEAR=2002 |
# 1/4 Gerd Kortemeyer |
# 1/4 Gerd Kortemeyer |
Line 311 sub browser_and_searcher_javascript {
|
Line 309 sub browser_and_searcher_javascript {
|
END |
END |
} |
} |
|
|
|
sub studentbrowser_javascript { |
|
unless ($ENV{'request.course.id'}) { return ''; } |
|
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
return ''; |
|
} |
|
return (<<'ENDSTDBRW'); |
|
<script type="text/javascript" language="Javascript" > |
|
var stdeditbrowser; |
|
function openstdbrowser(formname,uname,udom) { |
|
var url = '/adm/pickstudent?'; |
|
var filter; |
|
eval('filter=document.'+formname+'.'+uname+'.value;'); |
|
if (filter != null) { |
|
if (filter != '') { |
|
url += 'filter='+filter+'&'; |
|
} |
|
} |
|
url += 'form=' + formname + '&unameelement='+uname+ |
|
'&udomelement='+udom; |
|
var title = 'Student Browser'; |
|
var options = 'scrollbars=1,resizable=1,menubar=0'; |
|
options += ',width=700,height=600'; |
|
stdeditbrowser = open(url,title,options,'1'); |
|
stdeditbrowser.focus(); |
|
} |
|
</script> |
|
ENDSTDBRW |
|
} |
|
|
|
sub selectstudent_link { |
|
my ($form,$unameele,$udomele)=@_; |
|
unless ($ENV{'request.course.id'}) { return ''; } |
|
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
return ''; |
|
} |
|
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele. |
|
'","'.$udomele.'");'."'>Select</a>"; |
|
} |
|
|
############################################################### |
############################################################### |
|
|
Line 483 sub help_open_topic {
|
Line 518 sub help_open_topic {
|
my ($topic, $text, $stayOnPage, $width, $height) = @_; |
my ($topic, $text, $stayOnPage, $width, $height) = @_; |
$text = "" if (not defined $text); |
$text = "" if (not defined $text); |
$stayOnPage = 0 if (not defined $stayOnPage); |
$stayOnPage = 0 if (not defined $stayOnPage); |
|
if ($ENV{'browser.interface'} eq 'textual') { |
|
$stayOnPage=1; |
|
} |
$width = 350 if (not defined $width); |
$width = 350 if (not defined $width); |
$height = 400 if (not defined $height); |
$height = 400 if (not defined $height); |
my $filename = $topic; |
my $filename = $topic; |
Line 493 sub help_open_topic {
|
Line 531 sub help_open_topic {
|
|
|
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'))"; |
$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 |
{ |
{ |
Line 503 sub help_open_topic {
|
Line 541 sub help_open_topic {
|
# Add the text |
# Add the text |
if ($text ne "") |
if ($text ne "") |
{ |
{ |
$template .= "<a href=\"$link\">$text</a> "; |
$template .= |
|
"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>". |
|
"<td bgcolor='#5555FF'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
} |
} |
|
|
# Add the graphic |
# Add the graphic |
$template .= <<"ENDTEMPLATE"; |
$template .= <<"ENDTEMPLATE"; |
<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a> |
<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a> |
ENDTEMPLATE |
ENDTEMPLATE |
|
if ($text ne '') { $template.='</td></tr></table>' }; |
return $template; |
return $template; |
|
|
} |
} |
Line 802 sub authform_internal{
|
Line 842 sub authform_internal{
|
onclick="javascript:changed_radio('int',$args{'formname'});" /> |
onclick="javascript:changed_radio('int',$args{'formname'});" /> |
Internally authenticated (with initial password |
Internally authenticated (with initial password |
<input type="text" size="10" name="intarg" value="" |
<input type="text" size="10" name="intarg" value="" |
onchange="javascript:changed_text('int',$args{'formname'});" /> |
onchange="javascript:changed_text('int',$args{'formname'});" />) |
END |
END |
return $result; |
return $result; |
} |
} |
Line 838 sub authform_filesystem{
|
Line 878 sub authform_filesystem{
|
onclick="javascript:changed_radio('fsys',$in{'formname'});" /> |
onclick="javascript:changed_radio('fsys',$in{'formname'});" /> |
Filesystem authenticated (with initial password |
Filesystem authenticated (with initial password |
<input type="text" size="10" name="fsysarg" value="" |
<input type="text" size="10" name="fsysarg" value="" |
onchange="javascript:changed_text('fsys',$in{'formname'});"> |
onchange="javascript:changed_text('fsys',$in{'formname'});">) |
END |
END |
return $result; |
return $result; |
} |
} |
Line 1010 sub messagewrapper {
|
Line 1050 sub messagewrapper {
|
return |
return |
"<a href='/adm/email?compose=individual&recname=$un&recdom=$do'>$link</a>"; |
"<a href='/adm/email?compose=individual&recname=$un&recdom=$do'>$link</a>"; |
} |
} |
|
# --------------------------------------------------------------- Notes Wrapper |
|
|
|
sub noteswrapper { |
|
my ($link,$un,$do)=@_; |
|
return |
|
"<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>"; |
|
} |
# ------------------------------------------------------------- Aboutme Wrapper |
# ------------------------------------------------------------- Aboutme Wrapper |
|
|
sub aboutmewrapper { |
sub aboutmewrapper { |
Line 1021 sub aboutmewrapper {
|
Line 1068 sub aboutmewrapper {
|
|
|
|
|
sub syllabuswrapper { |
sub syllabuswrapper { |
my ($link,$un,$do)=@_; |
my ($link,$un,$do,$tf)=@_; |
|
if ($tf) { $link='<font color="'.$tf.'">'.$link.'</font>'; } |
return "<a href='/public/$do/$un/syllabus'>$link</a>"; |
return "<a href='/public/$do/$un/syllabus'>$link</a>"; |
} |
} |
|
|
Line 1222 sub maketime {
|
Line 1270 sub maketime {
|
} |
} |
|
|
|
|
|
######################################### |
|
# |
|
# Retro-fixing of un-backward-compatible time format |
|
|
|
sub unsqltime { |
|
my $timestamp=shift; |
|
if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) { |
|
$timestamp=&maketime( |
|
'year'=>$1,'month'=>$2,'day'=>$3, |
|
'hours'=>$4,'minutes'=>$5,'seconds'=>$6); |
|
} |
|
return $timestamp; |
|
} |
|
|
|
######################################### |
|
|
sub findallcourses { |
sub findallcourses { |
my %courses=(); |
my %courses=(); |
my $now=time; |
my $now=time; |
Line 1283 sub domainlogo {
|
Line 1347 sub domainlogo {
|
my $domain = &determinedomain(shift); |
my $domain = &determinedomain(shift); |
# See if there is a logo |
# See if there is a logo |
if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') { |
if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') { |
return '<img src="/adm/lonDomLogos/'.$domain.'.gif" />'; |
return '<img src="http://'.$ENV{'HTTP_HOST'}.':8080/adm/lonDomLogos/'. |
|
$domain.'.gif" />'; |
} elsif(exists($Apache::lonnet::domaindescription{$domain})) { |
} elsif(exists($Apache::lonnet::domaindescription{$domain})) { |
return $Apache::lonnet::domaindescription{$domain}; |
return $Apache::lonnet::domaindescription{$domain}; |
} else { |
} else { |
Line 1382 $addentries>
|
Line 1447 $addentries>
|
END |
END |
if ($bodyonly) { |
if ($bodyonly) { |
return $bodytag; |
return $bodytag; |
|
} elsif ($ENV{'browser.interface'} eq 'textual') { |
|
return $bodytag.'<h1>LON-CAPA: '.$title. |
|
'</h1><a href="/adm/menu">Main Menu</a><hr />'; |
} else { |
} else { |
return(<<ENDBODY); |
return(<<ENDBODY); |
$bodytag |
$bodytag |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<tr><td bgcolor="$font"> |
<tr><td bgcolor="$font"> |
<img src="$img" /></td> |
<img src="http://$ENV{'HTTP_HOST'}:8080/$img" /></td> |
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td> |
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td> |
</tr> |
</tr> |
<tr> |
<tr> |