version 1.55, 2002/08/21 17:18:08
|
version 1.58, 2002/08/22 21:05:25
|
Line 480 sub help_open_topic {
|
Line 480 sub help_open_topic {
|
|
|
# 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 |
|
|
return $template; |
return $template; |
Line 735 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 751 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'});" /> |
|
<input type="radio" name="krbver" value="4" checked="on" />Version 4 |
|
<input type="radio" name="krbver" value="5" />Version 5 |
END |
END |
return $result; |
return $result; |
} |
} |
Line 769 sub authform_internal{
|
Line 771 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 787 sub authform_local{
|
Line 789 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 805 sub authform_filesystem{
|
Line 807 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 885 sub keyword {
|
Line 887 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 947 Uses global $thesaurus_db_file.
|
Line 903 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 1370 sub upfile_store {
|
Line 1325 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 1391 sub load_tmp_file {
|
Line 1348 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 1406 sub upfile_record_sep {
|
Line 1365 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 1456 sub record_sep {
|
Line 1417 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 1464 return HTML code to select file and spec
|
Line 1427 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 1474 sub upfile_select_html {
|
Line 1437 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 1504 sub csv_print_samples {
|
Line 1469 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 1536 sub csv_print_select_table {
|
Line 1503 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. |