loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.148, 2003/11/10 15:15:08
+version 1.149, 2003/11/10 16:33:57
  Line 2366  sub add_to_env {
  =pod
+ =item * get_env_multiple($name)
+ gets $name from the %ENV hash, it seemlessly handles the cases where multiple
+ values may be defined and end up as an array ref.
+ returns an array of values
+ =cut
+ sub get_env_multiple {
+     my ($name) = @_;
+     my @values;
+     if (defined($ENV{$name})) {
+         # exists is it an array
+         if (ref($ENV{$name})) {
+             @values=@{ $ENV{$name} };
+         } else {
+             $values[0]=$ENV{$name};
+         }
+     }
+     return(@values);
+ }
+ =pod
  =back
  =head1 CSV Upload/Handling functions