version 1.46, 2002/07/12 14:36:16
|
version 1.57, 2002/08/22 21:02:49
|
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 439 END
|
Line 439 END
|
|
|
=pod |
=pod |
|
|
=item help_open_topic($topic, $stayOnPage, $width, $height) |
=item help_open_topic($topic, $text, $stayOnPage, $width, $height) |
|
|
Returns a string corresponding to an HTML link to the given help $topic, where $topic corresponds to the name of a .tex file in /home/httpd/html/adm/help/tex, with underscores replaced by spaces. |
Returns a string corresponding to an HTML link to the given help $topic, where $topic corresponds to the name of a .tex file in /home/httpd/html/adm/help/tex, with underscores replaced by spaces. |
|
|
|
$text will optionally be linked to the same topic, allowing you to link text in addition to the graphic. If you do not want to link text, but wish to specify one of the later parameters, pass an empty string. |
|
|
$stayOnPage is a value that will be interpreted as a boolean. If true, the link will not open a new window. If false, the link will open a new window using Javascript. (Default is false.) |
$stayOnPage is a value that will be interpreted as a boolean. If true, the link will not open a new window. If false, the link will open a new window using Javascript. (Default is false.) |
|
|
$width and $height are optional numerical parameters that will override the width and height of the popped up window, which may be useful for certain help topics with big pictures included. |
$width and $height are optional numerical parameters that will override the width and height of the popped up window, which may be useful for certain help topics with big pictures included. |
Line 450 $width and $height are optional numerica
|
Line 452 $width and $height are optional numerica
|
=cut |
=cut |
|
|
sub help_open_topic { |
sub help_open_topic { |
my ($topic, $stayOnPage, $width, $height) = @_; |
my ($topic, $text, $stayOnPage, $width, $height) = @_; |
|
$text = "" if (not defined $text); |
$stayOnPage = 0 if (not defined $stayOnPage); |
$stayOnPage = 0 if (not defined $stayOnPage); |
$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; |
$filename =~ s/ /_/g; |
$filename =~ s/ /_/g; |
|
|
my $template; |
my $template = ""; |
|
my $link; |
|
|
if (!$stayOnPage) |
if (!$stayOnPage) |
{ |
{ |
$template = <<"ENDTEMPLATE"; |
$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height'))"; |
<a href="javascript:void(open('/adm/help/${filename}.hlp', 'Help for $topic', 'menubar=0,s |
|
crollbars=1,width=$width,height=$height'))"><image |
|
src="/adm/help/gif/smallHelp.gif" |
|
border="0" alt="(Help: $topic)"></a> |
|
ENDTEMPLATE |
|
} |
} |
else |
else |
{ |
{ |
$template = <<"ENDTEMPLATE"; |
$link = "/adm/help/${filename}.hlp"; |
<a href="/adm/help/${filename}.hlp"><image |
} |
src="/adm/help/gif/smallHelp.gif" |
|
border="0" alt="(Help: $topic)"></a> |
# Add the text |
ENDTEMPLATE |
if ($text ne "") |
|
{ |
|
$template .= "<a href=\"$link\">$text</a> "; |
} |
} |
|
|
|
# Add the graphic |
|
$template .= <<"ENDTEMPLATE"; |
|
<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a> |
|
ENDTEMPLATE |
|
|
return $template; |
return $template; |
|
|
} |
} |
Line 552 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 561 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 586 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 729 sub authform_nochange{
|
Line 735 sub authform_nochange{
|
my $result=''; |
my $result=''; |
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="nochange" checked="checked" |
<input type="radio" name="login" value="nochange" checked="checked" |
onclick="javascript:changed_radio('nochange',$in{'formname'});"> |
onclick="javascript:changed_radio('nochange',$in{'formname'});" /> |
Do not change login data |
Do not change login data |
END |
END |
return $result; |
return $result; |
Line 745 sub authform_kerberos{
|
Line 751 sub authform_kerberos{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="krb" |
<input type="radio" name="login" value="krb" |
onclick="javascript:changed_radio('krb',$in{'formname'});" |
onclick="javascript:changed_radio('krb',$in{'formname'});" |
onchange="javascript:changed_radio('krb',$in{'formname'});"> |
onchange="javascript:changed_radio('krb',$in{'formname'});" /> |
Kerberos authenticated with domain |
Kerberos authenticated with domain |
<input type="text" size="10" name="krbarg" value="" |
<input type="text" size="10" name="krbarg" value="" |
onchange="javascript:changed_text('krb',$in{'formname'});"> |
onchange="javascript:changed_text('krb',$in{'formname'});" /> |
END |
END |
return $result; |
return $result; |
} |
} |
Line 763 sub authform_internal{
|
Line 769 sub authform_internal{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="int" |
<input type="radio" name="login" value="int" |
onchange="javascript:changed_radio('int',$args{'formname'});" |
onchange="javascript:changed_radio('int',$args{'formname'});" |
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 781 sub authform_local{
|
Line 787 sub authform_local{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="loc" |
<input type="radio" name="login" value="loc" |
onchange="javascript:changed_radio('loc',$in{'formname'});" |
onchange="javascript:changed_radio('loc',$in{'formname'});" |
onclick="javascript:changed_radio('loc',$in{'formname'});"> |
onclick="javascript:changed_radio('loc',$in{'formname'});" /> |
Local Authentication with argument |
Local Authentication with argument |
<input type="text" size="10" name="locarg" value="" |
<input type="text" size="10" name="locarg" value="" |
onchange="javascript:changed_text('loc',$in{'formname'});"> |
onchange="javascript:changed_text('loc',$in{'formname'});" /> |
END |
END |
return $result; |
return $result; |
} |
} |
Line 799 sub authform_filesystem{
|
Line 805 sub authform_filesystem{
|
$result.=<<"END"; |
$result.=<<"END"; |
<input type="radio" name="login" value="fsys" |
<input type="radio" name="login" value="fsys" |
onchange="javascript:changed_radio('fsys',$in{'formname'});" |
onchange="javascript:changed_radio('fsys',$in{'formname'});" |
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'});"> |
Line 838 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 879 sub keyword {
|
Line 885 sub keyword {
|
return exists($Keywords{$word}); |
return exists($Keywords{$word}); |
} |
} |
|
|
################################################### |
|
# Old code, to be removed soon # |
|
################################################### |
|
# -------------------------------------------------------- Return related words |
|
#sub related { |
|
# my $newword=shift; |
|
# $newword=~s/\W//g; |
|
# $newword=~tr/A-Z/a-z/; |
|
# my $tindex=$theindex{$newword}; |
|
# if ($tindex) { |
|
# my %found=(); |
|
# foreach (split(/\,/,$therelated[$tindex])) { |
|
## - Related word found |
|
# my ($ridx,$rcount)=split(/\:/,$_); |
|
## - Direct relation index |
|
# my $directrel=$rcount/$thecount[$tindex]; |
|
# if ($directrel>$thethreshold) { |
|
# foreach (split(/\,/,$therelated[$ridx])) { |
|
# my ($rridx,$rrcount)=split(/\:/,$_); |
|
# if ($rridx==$tindex) { |
|
## - Determine reverse relation index |
|
# my $revrel=$rrcount/$thecount[$ridx]; |
|
## - Calculate full index |
|
# $found{$ridx}=$directrel*$revrel; |
|
# if ($found{$ridx}>$thethreshold) { |
|
# foreach (split(/\,/,$therelated[$ridx])) { |
|
# my ($rrridx,$rrrcount)=split(/\:/,$_); |
|
# unless ($found{$rrridx}) { |
|
# my $revrevrel=$rrrcount/$thecount[$ridx]; |
|
# if ( |
|
# $directrel*$revrel*$revrevrel>$thethreshold |
|
# ) { |
|
# $found{$rrridx}= |
|
# $directrel*$revrel*$revrevrel; |
|
# } |
|
# } |
|
# } |
|
# } |
|
# } |
|
# } |
|
# } |
|
# } |
|
# } |
|
# return (); |
|
#} |
|
|
|
############################################################### |
############################################################### |
|
|
=pod |
=pod |
Line 941 Uses global $thesaurus_db_file.
|
Line 901 Uses global $thesaurus_db_file.
|
=cut |
=cut |
|
|
############################################################### |
############################################################### |
|
|
sub get_related_words { |
sub get_related_words { |
my $keyword = shift; |
my $keyword = shift; |
my %thesaurus_db; |
my %thesaurus_db; |
Line 951 sub get_related_words {
|
Line 910 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 1087 sub get_previous_attempt {
|
Line 1046 sub get_previous_attempt {
|
} else { |
} else { |
$value=$lasthash{$_}; |
$value=$lasthash{$_}; |
} |
} |
if ($_ =~/$regexp$/) {$value = &$gradesub($value)} |
if ($_ =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)} |
$prevattempts.='<td>'.$value.' </td>'; |
$prevattempts.='<td>'.$value.' </td>'; |
} |
} |
$prevattempts.='</tr></table></td></tr></table>'; |
$prevattempts.='</tr></table></td></tr></table>'; |
Line 1145 sub get_student_answers {
|
Line 1104 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 { |
Line 1230 sub upfile_store {
|
Line 1323 sub upfile_store {
|
return $datatoken; |
return $datatoken; |
} |
} |
|
|
|
=pod |
|
|
=item load_tmp_file($r) |
=item load_tmp_file($r) |
|
|
Load uploaded file from tmp, $r should be the HTTP Request object, |
Load uploaded file from tmp, $r should be the HTTP Request object, |
Line 1251 sub load_tmp_file {
|
Line 1346 sub load_tmp_file {
|
$ENV{'form.upfile'}=join('',@studentdata); |
$ENV{'form.upfile'}=join('',@studentdata); |
} |
} |
|
|
|
=pod |
|
|
=item upfile_record_sep() |
=item upfile_record_sep() |
|
|
Separate uploaded file into records |
Separate uploaded file into records |
Line 1266 sub upfile_record_sep {
|
Line 1363 sub upfile_record_sep {
|
} |
} |
} |
} |
|
|
|
=pod |
|
|
=item record_sep($record) |
=item record_sep($record) |
|
|
Separate a record into fields $record should be an item from the upfile_record_sep(), needs $ENV{'form.upfiletype'} |
Separate a record into fields $record should be an item from the upfile_record_sep(), needs $ENV{'form.upfiletype'} |
Line 1316 sub record_sep {
|
Line 1415 sub record_sep {
|
return %components; |
return %components; |
} |
} |
|
|
|
=pod |
|
|
=item upfile_select_html() |
=item upfile_select_html() |
|
|
return HTML code to select file and specify its type |
return HTML code to select file and specify its type |
Line 1324 return HTML code to select file and spec
|
Line 1425 return HTML code to select file and spec
|
|
|
sub upfile_select_html { |
sub upfile_select_html { |
return (<<'ENDUPFORM'); |
return (<<'ENDUPFORM'); |
<input type="file" name="upfile" size="50"> |
<input type="file" name="upfile" size="50" /> |
<br />Type: <select name="upfiletype"> |
<br />Type: <select name="upfiletype"> |
<option value="csv">CSV (comma separated values, spreadsheet)</option> |
<option value="csv">CSV (comma separated values, spreadsheet)</option> |
<option value="space">Space separated</option> |
<option value="space">Space separated</option> |
Line 1334 sub upfile_select_html {
|
Line 1435 sub upfile_select_html {
|
ENDUPFORM |
ENDUPFORM |
} |
} |
|
|
|
=pod |
|
|
=item csv_print_samples($r,$records) |
=item csv_print_samples($r,$records) |
|
|
Prints a table of sample values from each column uploaded $r is an |
Prints a table of sample values from each column uploaded $r is an |
Line 1364 sub csv_print_samples {
|
Line 1467 sub csv_print_samples {
|
$r->print('</tr></table><br />'."\n"); |
$r->print('</tr></table><br />'."\n"); |
} |
} |
|
|
|
=pod |
|
|
=item csv_print_select_table($r,$records,$d) |
=item csv_print_select_table($r,$records,$d) |
|
|
Prints a table to create associations between values and table columns. |
Prints a table to create associations between values and table columns. |
Line 1396 sub csv_print_select_table {
|
Line 1501 sub csv_print_select_table {
|
return $i; |
return $i; |
} |
} |
|
|
|
=pod |
|
|
=item csv_samples_select_table($r,$records,$d) |
=item csv_samples_select_table($r,$records,$d) |
|
|
Prints a table of sample values from the upload and can make associate samples to internal names. |
Prints a table of sample values from the upload and can make associate samples to internal names. |