version 1.38, 2002/06/24 19:06:05
|
version 1.39, 2002/06/24 20:17:55
|
Line 85 my $readit;
|
Line 85 my $readit;
|
my %language; |
my %language; |
my %cprtag; |
my %cprtag; |
my %fe; my %fd; |
my %fe; my %fd; |
my %fc; |
my %category_extensions; |
|
|
# -------------------------------------------------------------- Thesaurus data |
# -------------------------------------------------------------- Thesaurus data |
my @therelated; |
my @therelated; |
Line 146 BEGIN {
|
Line 146 BEGIN {
|
while (<$fh>) { |
while (<$fh>) { |
next if /^\#/; |
next if /^\#/; |
chomp; |
chomp; |
my ($key,$val)=(split(/\s+/,$_,2)); |
my ($extension,$category)=(split(/\s+/,$_,2)); |
push @{$fc{$key}},$val; |
push @{$category_extensions{lc($category)}},$extension; |
} |
} |
} |
} |
} |
} |
Line 215 linked_select_forms takes the following
|
Line 215 linked_select_forms takes the following
|
|
|
=item $hashref, a reference to a hash containing the data for the menus. |
=item $hashref, a reference to a hash containing the data for the menus. |
|
|
|
=back |
|
|
Below is an example of such a hash. Only the 'text', 'default', and |
Below is an example of such a hash. Only the 'text', 'default', and |
'select2' keys must appear as stated. keys(%menu) are the possible |
'select2' keys must appear as stated. keys(%menu) are the possible |
values for the first select menu. The text that coincides with the |
values for the first select menu. The text that coincides with the |
first menu values is given in $menu{$choice1}->{'text'}. The values |
first menu value is given in $menu{$choice1}->{'text'}. The values |
and text for the second menu are given in the hash pointed to by |
and text for the second menu are given in the hash pointed to by |
$menu{$choice1}->{'select2'}. |
$menu{$choice1}->{'select2'}. |
|
|
my %menu = ( A1 => { text =>"Choice A1" , |
my %menu = ( A1 => { text =>"Choice A1" , |
default => "B3", |
default => "B3", |
select2 => { |
select2 => { |
B1 => "Choice B1", |
B1 => "Choice B1", |
Line 741 sub copyrightdescription {
|
Line 743 sub copyrightdescription {
|
|
|
# ------------------------------------------------------------- File Categories |
# ------------------------------------------------------------- File Categories |
sub filecategories { |
sub filecategories { |
return sort(keys(%fc)); |
return sort(keys(%category_extensions)); |
} |
} |
|
|
# -------------------------------------- File Types within a specified category |
# -------------------------------------- File Types within a specified category |
sub filecategorytypes { |
sub filecategorytypes { |
return @{$fc{lc(shift(@_))}}; |
return @{$category_extensions{lc($_[0])}}; |
} |
} |
|
|
# ------------------------------------------------------------------ File Types |
# ------------------------------------------------------------------ File Types |
Line 930 sub add_to_env {
|
Line 932 sub add_to_env {
|
|
|
=pod |
=pod |
|
|
=back |
|
|
|
=head2 CSV Upload/Handling functions |
=head2 CSV Upload/Handling functions |
|
|
=over 4 |
=over 4 |