version 1.49, 2002/08/07 15:39:58
|
version 1.55, 2002/08/21 17:18:08
|
Line 80 package Apache::loncommon;
|
Line 80 package Apache::loncommon;
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
use GDBM_File; |
use GDBM_File; |
use POSIX qw(strftime); |
use POSIX qw(strftime mktime); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsg(); |
my $readit; |
my $readit; |
Line 242 of the element the selection from the se
|
Line 242 of the element the selection from the se
|
############################################################### |
############################################################### |
sub browser_and_searcher_javascript { |
sub browser_and_searcher_javascript { |
return <<END; |
return <<END; |
var editbrowser; |
var editbrowser = null; |
function openbrowser(formname,elementname,only,omit) { |
function openbrowser(formname,elementname,only,omit) { |
var url = '/res/?'; |
var url = '/res/?'; |
if (editbrowser == null) { |
if (editbrowser == null) { |
Line 558 sub select_dom_form {
|
Line 558 sub select_dom_form {
|
|
|
=pod |
=pod |
|
|
=item get_home_servers($domain) |
=item get_library_servers($domain) |
|
|
Returns a hash which contains keys like '103l3' and values like |
Returns a hash which contains keys like '103l3' and values like |
'kirk.lite.msu.edu'. All of the keys will be for machines in the |
'kirk.lite.msu.edu'. All of the keys will be for machines in the |
Line 567 given $domain.
|
Line 567 given $domain.
|
=cut |
=cut |
|
|
#------------------------------------------- |
#------------------------------------------- |
sub get_home_servers { |
sub get_library_servers { |
my $domain = shift; |
my $domain = shift; |
my %home_servers; |
my %library_servers; |
foreach (keys(%Apache::lonnet::libserv)) { |
foreach (keys(%Apache::lonnet::libserv)) { |
if ($Apache::lonnet::hostdom{$_} eq $domain) { |
if ($Apache::lonnet::hostdom{$_} eq $domain) { |
$home_servers{$_} = $Apache::lonnet::hostname{$_}; |
$library_servers{$_} = $Apache::lonnet::hostname{$_}; |
} |
} |
} |
} |
return %home_servers; |
return %library_servers; |
} |
} |
|
|
#------------------------------------------- |
#------------------------------------------- |
Line 592 returns a string which contains an <opti
|
Line 592 returns a string which contains an <opti
|
#------------------------------------------- |
#------------------------------------------- |
sub home_server_option_list { |
sub home_server_option_list { |
my $domain = shift; |
my $domain = shift; |
my %servers = &get_home_servers($domain); |
my %servers = &get_library_servers($domain); |
my $result = ''; |
my $result = ''; |
foreach (sort keys(%servers)) { |
foreach (sort keys(%servers)) { |
$result.= |
$result.= |
Line 844 sub initialize_keywords {
|
Line 844 sub initialize_keywords {
|
# Set up the hash as a database |
# Set up the hash as a database |
my %thesaurus_db; |
my %thesaurus_db; |
if (! tie(%thesaurus_db,'GDBM_File', |
if (! tie(%thesaurus_db,'GDBM_File', |
$thesaurus_db_file,&GDBM_READER,0640)){ |
$thesaurus_db_file,&GDBM_READER(),0640)){ |
&Apache::lonnet::logthis("Could not tie \%thesaurus_db to ". |
&Apache::lonnet::logthis("Could not tie \%thesaurus_db to ". |
$thesaurus_db_file); |
$thesaurus_db_file); |
return 0; |
return 0; |
Line 957 sub get_related_words {
|
Line 957 sub get_related_words {
|
return (); |
return (); |
} |
} |
if (! tie(%thesaurus_db,'GDBM_File', |
if (! tie(%thesaurus_db,'GDBM_File', |
$thesaurus_db_file,&GDBM_READER,0640)){ |
$thesaurus_db_file,&GDBM_READER(),0640)){ |
return (); |
return (); |
} |
} |
my @Words=(); |
my @Words=(); |
Line 1151 sub get_student_answers {
|
Line 1151 sub get_student_answers {
|
|
|
############################################### |
############################################### |
|
|
|
|
|
sub timehash { |
|
my @ltime=localtime(shift); |
|
return ( 'seconds' => $ltime[0], |
|
'minutes' => $ltime[1], |
|
'hours' => $ltime[2], |
|
'day' => $ltime[3], |
|
'month' => $ltime[4]+1, |
|
'year' => $ltime[5]+1900, |
|
'weekday' => $ltime[6], |
|
'dayyear' => $ltime[7]+1, |
|
'dlsav' => $ltime[8] ); |
|
} |
|
|
|
sub maketime { |
|
my %th=@_; |
|
return POSIX::mktime( |
|
($th{'seconds'},$th{'minutes'},$th{'hours'}, |
|
$th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,$th{'dlsav'})); |
|
} |
|
|
|
|
|
sub findallcourses { |
|
my %courses=(); |
|
my $now=time; |
|
foreach (keys %ENV) { |
|
if ($_=~/^user\.role\.\w+\.\/(\w+)\/(\w+)/) { |
|
my ($starttime,$endtime)=$ENV{$_}; |
|
my $active=1; |
|
if ($starttime) { |
|
if ($now<$starttime) { $active=0; } |
|
} |
|
if ($endtime) { |
|
if ($now>$endtime) { $active=0; } |
|
} |
|
if ($active) { $courses{$1.'_'.$2}=1; } |
|
} |
|
} |
|
return keys %courses; |
|
} |
|
|
|
############################################### |
|
|
|
sub bodytag { |
|
my ($title,$function,$addentries)=@_; |
|
unless ($function) { |
|
$function='student'; |
|
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
|
$function='coordinator'; |
|
} |
|
if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { |
|
$function='admin'; |
|
} |
|
if (($ENV{'request.role'}=~/^(au|ca)/) || |
|
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
|
$function='author'; |
|
} |
|
} |
|
my $img=''; |
|
my $pgbg=''; |
|
my $tabbg=''; |
|
my $font=''; |
|
my $link=''; |
|
my $alink='#CC0000'; |
|
my $vlink=''; |
|
if ($function eq 'admin') { |
|
$img='admin'; |
|
$pgbg='#FFFFCC'; |
|
$tabbg='#CCCC99'; |
|
$font='#772200'; |
|
$link='#663300'; |
|
$vlink='#666600'; |
|
} elsif ($function eq 'coordinator') { |
|
$img='coordinator'; |
|
$pgbg='#CCFFFF'; |
|
$tabbg='#CCCCFF'; |
|
$font='#000044'; |
|
$link='#003333'; |
|
$vlink='#006633'; |
|
} elsif ($function eq 'author') { |
|
$img='author'; |
|
$pgbg='#CCFFFF'; |
|
$tabbg='#CCFFCC'; |
|
$font='#004400'; |
|
$link='#003333'; |
|
$vlink='#006666'; |
|
} else { |
|
$img='student'; |
|
$pgbg='#FFFFAA'; |
|
$tabbg='#FF9900'; |
|
$font='#991100'; |
|
$link='#993300'; |
|
$vlink='#996600'; |
|
} |
|
# role and realm |
|
my ($role,$realm) |
|
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
|
# realm |
|
if ($ENV{'request.course.id'}) { |
|
$realm= |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
|
} |
|
unless ($realm) { $realm=' '; } |
|
# Set messages |
|
my $messages=localtime(); |
|
# Output |
|
return(<<ENDBODY); |
|
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
|
$addentries> |
|
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
|
<tr><td bgcolor="$font"> |
|
<img src="/adm/lonInterFace/$img.jpg" /></td> |
|
<td bgcolor="$font"><font color='$pgbg'>$messages</font></td> |
|
</tr> |
|
<tr> |
|
<td rowspan="3" bgcolor="$tabbg"> |
|
<font size="5"><b>$title</b></font> |
|
<td bgcolor="$tabbg" align="right"> |
|
<font size="2"> |
|
$ENV{'environment.firstname'} |
|
$ENV{'environment.middlename'} |
|
$ENV{'environment.lastname'} |
|
$ENV{'environment.generation'} |
|
</font> |
|
</td> |
|
</tr> |
|
<tr><td bgcolor="$tabbg" align="right"> |
|
<font size="2">$role</font> |
|
</td></tr> |
|
<tr> |
|
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
|
</table><br> |
|
ENDBODY |
|
} |
############################################### |
############################################### |
|
|
sub get_unprocessed_cgi { |
sub get_unprocessed_cgi { |