can someone explain this- wierd...

They have: 447 posts

Joined: Oct 1999

why does this:

sub STYLE
{ local $style;

$style .=<<END_STYLE;

<STYLE>

TD.lclDark
{ background-color: #737373;
}

TD.lclHead
{ background-color: #AFAFAF;
}

TD.lclCell
{ background-color: #E1E1E1;
}

SPAN.lclCell
{ color: #646464;
font-family: \"comic sans ms\", sanserif;
font-weight: 400;
font-size: 11pt;
margin-left: 2em;
}

SPAN.lclCellc
{ color: #646464;
font-family: \"comic sans ms\", sanserif;
font-weight: 400;
font-size: 11pt;
text-align: center;
}
A.lclLink
{ color: #617999;
font-family: \"comic sans ms\", sanserif;
font-size: 10pt;
margin-left: 2em;
}

SPAN.lclLight
{ color: #C8C8C8;
font-weight: 700;
font-size: 13pt;
margin-left: 1.5em;
}

</STYLE>

END_STYLE

return $style;
}

return this:

<STYLE>

TD.lclDark
{ background-color: #737373;
}

TD.lclHead
{ background-color: #AFAFAF;
}

TD.lclCell
{ background-color: #E1E1E1;
}

SPAN.lclCell
{ color: #646464;
font-family: "comic sans ms", sanserif;
43= 44; &sspb_step0(0); font-weight: 400;
43= 45; &sspb_step0(0); font-size: 11pt;
43= 46; &sspb_step0(0); margin-left: 2em;
}

SPAN.lclCellc
{ color: #646464;
font-family: "comic sans ms", sanserif;
43= 47; &sspb_step0(0); font-weight: 400;
43= 48; &sspb_step0(0); font-size: 11pt;
43= 49; &sspb_step0(0); text-align: center;
}
A.lclLink
{ color: #617999;
font-family: "comic sans ms", sanserif;
43= 50; &sspb_step0(0); font-size: 10pt;
43= 51; &sspb_step0(0); margin-left: 2em;
}
SPAN.lclLight
{ color: #C8C8C8;
font-weight: 700;
43= 52; &sspb_step0(0); font-size: 13pt;
43= 53; &sspb_step0(0); margin-left: 1.5em;
}
</STYLE>

i think it may have something to do with the quotes ", i have tried them escaped and unescaped and get the same results.

They have: 1,587 posts

Joined: Mar 1999

sorry, that's over my head. clearly, i've still got lots to learn about perl.

------------------
Earn $1 + CPM NOW from bottom of the page banners! CLICK 4 CASH

Traffic-Website.com free traffic, affiliate programs, hosting, & domain names.
My Site got hacked, but i'm coming back?

Suzanne's picture

She has: 5,507 posts

Joined: Feb 2000

Just a suggestion, but perhaps the semi-colon after the quotes is causing some issues?

Quick question, too -- why are you adding the CSS in the Perl? Would it not be easier (especially for such a great length) to have it as an included file instead? Or even use a global style sheet and call to that?

I am tremendously curious, please let me know!

Suzanne

------------------
Zero Cattle
Suzanne
Tables DeMystified

They have: 568 posts

Joined: Nov 1999

try using

code:

$style = qq|
STYLE HERE
|;
[/code] 

They have: 122 posts

Joined: Jun 2000

I copied and pasted your stuff on to one of my machines, and it worked fine. Perhaps you are doing some other manipulation to the return value of STYLE somewhere? BTW, what version of perl are you using? Me, I've got version 5.005_03 built for i686-linux-thread.

Rob Radez
OSInvestor.com

They have: 447 posts

Joined: Oct 1999

well, the page does use an external style sheet, however these are styles local, specific to the page being generated and not included in the external style sheet.

return <<END_STYLE; #produces identical results

i havnt tried
print <<END_STYLE;
but i assume it will give me the same results.

this is not actually the entire subroutine, just a piece of it i wrote for the purpose of debugging this thing. granted there are many other ways to achieve what i want to do but this is the easiest way.

They have: 447 posts

Joined: Oct 1999

roBofh, i have a current version of perl installed, but i am using perlbuilder which seems to be kind of buggy. maybe the problem is in perlbuilder. ill try running it from a prompt when i get home

They have: 447 posts

Joined: Oct 1999

ok, i guess it works fine. must be a bug in perlbuilder1.0.

thanks for the replies everyone

Want to join the discussion? Create an account or log in if you already have one. Joining is fast, free and painless! We’ll even whisk you back here when you’ve finished.