version 1.258, 2005/04/07 06:56:22
|
version 1.261, 2005/05/25 21:45:07
|
Line 687 sub help_open_menu {
|
Line 687 sub help_open_menu {
|
"<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
"<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
} |
} |
|
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
$template .= <<"ENDTEMPLATE"; |
$template .= <<"ENDTEMPLATE"; |
Line 698 function helpMenu(target) {
|
Line 699 function helpMenu(target) {
|
if (target == 'open') { |
if (target == 'open') { |
var newWindow = null; |
var newWindow = null; |
try { |
try { |
newWindow = window.open("/adm/rat/empty.html","helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
newWindow = window.open("$nothing","helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
} |
} |
catch(error) { |
catch(error) { |
writeHelp(caller); |
writeHelp(caller); |
Line 2975 sub get_posted_cgi {
|
Line 2976 sub get_posted_cgi {
|
my $r=shift; |
my $r=shift; |
|
|
my $buffer; |
my $buffer; |
|
if ($r->header_in('Content-length')) { |
$r->read($buffer,$r->header_in('Content-length'),0); |
$r->read($buffer,$r->header_in('Content-length'),0); |
|
} |
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) { |
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) { |
my @pairs=split(/&/,$buffer); |
my @pairs=split(/&/,$buffer); |
my $pair; |
my $pair; |
Line 3135 sub add_to_env {
|
Line 3137 sub add_to_env {
|
if (ref($env{$name})) { |
if (ref($env{$name})) { |
#already have multiple values |
#already have multiple values |
push(@{ $env{$name} },$value); |
push(@{ $env{$name} },$value); |
push(@{ $ENV{$name} },$value); |
|
} else { |
} else { |
#first time seeing multiple values, convert hash entry to an arrayref |
#first time seeing multiple values, convert hash entry to an arrayref |
my $first=$env{$name}; |
my $first=$env{$name}; |
undef($env{$name}); |
undef($env{$name}); |
undef($ENV{$name}); |
|
push(@{ $env{$name} },$first,$value); |
push(@{ $env{$name} },$first,$value); |
push(@{ $ENV{$name} },$first,$value); |
|
} |
} |
} else { |
} else { |
$env{$name}=$value; |
$env{$name}=$value; |
$ENV{$name}=$value; |
|
} |
} |
} |
} |
|
|