|
version 1.270, 2005/07/12 15:54:19
|
version 1.271, 2005/09/08 22:37:06
|
|
Line 152 BEGIN {
|
Line 152 BEGIN {
|
| my $designdir=$Apache::lonnet::perlvar{'lonTabDir'}.'/lonDomColors'; |
my $designdir=$Apache::lonnet::perlvar{'lonTabDir'}.'/lonDomColors'; |
| opendir(DIR,$designdir); |
opendir(DIR,$designdir); |
| while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
| |
if ($filename!~/\.tab$/) { next; } |
| my ($domain)=($filename=~/^(\w+)\./); |
my ($domain)=($filename=~/^(\w+)\./); |
| { |
{ |
| my $designfile = $designdir.'/'.$filename; |
my $designfile = $designdir.'/'.$filename; |
| if ( open (my $fh,"<$designfile") ) { |
if ( open (my $fh,"<$designfile") ) { |
| while (<$fh>) { |
while (<$fh>) { |
| next if /^\#/; |
next if /^\#/; |
| chomp; |
chomp; |
| my ($key,$val)=(split(/\=/,$_)); |
my ($key,$val)=(split(/\=/,$_)); |
| if ($val) { $designhash{$domain.'.'.$key}=$val; } |
if ($val) { $designhash{$domain.'.'.$key}=$val; } |
| } |
} |
| close($fh); |
close($fh); |
| } |
} |
| } |
} |
| |
|
| } |
} |
| closedir(DIR); |
closedir(DIR); |
|
Line 3059 sub get_unprocessed_cgi {
|
Line 3060 sub get_unprocessed_cgi {
|
| if (!defined($possible_names) || (grep {$_ eq $name} @$possible_names)) { |
if (!defined($possible_names) || (grep {$_ eq $name} @$possible_names)) { |
| $value =~ tr/+/ /; |
$value =~ tr/+/ /; |
| $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
| &Apache::lonxml::debug("Seting :$name: to :$value:"); |
|
| unless (defined($env{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; |
unless (defined($env{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface