version 1.44, 2002/07/05 16:12:31
|
version 1.45, 2002/07/09 17:15:58
|
Line 41
|
Line 41
|
|
|
# POD header: |
# POD header: |
|
|
|
=pod |
|
|
=head1 NAME |
=head1 NAME |
|
|
Apache::loncommon - pile of common routines |
Apache::loncommon - pile of common routines |
Line 105 my $theavecount;
|
Line 107 my $theavecount;
|
=item BEGIN() |
=item BEGIN() |
|
|
Initialize values from language.tab, copyright.tab, filetypes.tab, |
Initialize values from language.tab, copyright.tab, filetypes.tab, |
and filecategories.tab. |
thesaurus.tab, and filecategories.tab. |
|
|
=cut |
=cut |
|
|
# ----------------------------------------------------------------------- BEGIN |
# ----------------------------------------------------------------------- BEGIN |
|
|
BEGIN { |
BEGIN { |
Line 342 my %menu = ( A1 => { text =>"Choice A1"
|
Line 345 my %menu = ( A1 => { text =>"Choice A1"
|
} |
} |
); |
); |
|
|
=back |
|
|
|
=cut |
=cut |
|
|
# ------------------------------------------------ |
# ------------------------------------------------ |
Line 428 END
|
Line 429 END
|
|
|
############################################################### |
############################################################### |
|
|
|
=pod |
|
|
=item help_open_topic($topic, $stayOnPage, $width, $height) |
=item help_open_topic($topic, $stayOnPage, $width, $height) |
|
|
Line 471 ENDTEMPLATE
|
Line 473 ENDTEMPLATE
|
|
|
} |
} |
|
|
|
=pod |
|
|
=item csv_translate($text) |
=item csv_translate($text) |
|
|
Translate $text to allow it to be output as a 'comma seperated values' |
Translate $text to allow it to be output as a 'comma seperated values' |
Line 492 sub csv_translate {
|
Line 496 sub csv_translate {
|
############################################################### |
############################################################### |
#------------------------------------------- |
#------------------------------------------- |
|
|
|
=pod |
|
|
=item get_domains() |
=item get_domains() |
|
|
Returns an array containing each of the domains listed in the hosts.tab |
Returns an array containing each of the domains listed in the hosts.tab |
Line 512 sub get_domains {
|
Line 518 sub get_domains {
|
|
|
#------------------------------------------- |
#------------------------------------------- |
|
|
|
=pod |
|
|
=item select_dom_form($defdom,$name) |
=item select_dom_form($defdom,$name) |
|
|
Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
Line 536 sub select_dom_form {
|
Line 544 sub select_dom_form {
|
|
|
#------------------------------------------- |
#------------------------------------------- |
|
|
|
=pod |
|
|
=item get_home_servers($domain) |
=item get_home_servers($domain) |
|
|
Returns a hash which contains keys like '103l3' and values like |
Returns a hash which contains keys like '103l3' and values like |
Line 558 sub get_home_servers {
|
Line 568 sub get_home_servers {
|
|
|
#------------------------------------------- |
#------------------------------------------- |
|
|
|
=pod |
|
|
=item home_server_option_list($domain) |
=item home_server_option_list($domain) |
|
|
returns a string which contains an <option> list to be used in a |
returns a string which contains an <option> list to be used in a |
Line 590 sub home_server_option_list {
|
Line 602 sub home_server_option_list {
|
## formname = the name given in the <form> tag. |
## formname = the name given in the <form> tag. |
#------------------------------------------- |
#------------------------------------------- |
|
|
|
=pod |
|
|
=item authform_xxxxxx |
=item authform_xxxxxx |
|
|
The authform_xxxxxx subroutines provide javascript and html forms which |
The authform_xxxxxx subroutines provide javascript and html forms which |
Line 1079 sub add_to_env {
|
Line 1093 sub add_to_env {
|
|
|
=pod |
=pod |
|
|
|
=back |
|
|
=head2 CSV Upload/Handling functions |
=head2 CSV Upload/Handling functions |
|
|
=over 4 |
=over 4 |