[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason
Subject:    [Mason] Text::Autoformat
From:       Brian Avis <brian.avis () searhc ! org>
Date:       2002-06-21 18:05:29
[Download RAW message or body]

I am trying to use Text::Autoformat within my mason page to print out a 
report.

So I call the report within a <PRE></PRE> section of my web page.

This is the report I am trying to do.

% print Text::Autoformat::form q {
%
%+----------------------+                  SEARHC Personnel Action
%/  CURRENT INFORMATION   \
%+-------------------------+----------------------------------------------------------
%| Demographic Information | ID        NAME                            PHONE
%+-------------------------+ <<<<<<<   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
<<<<<<<<<<<<<<
%
%  MAILING   <<<<<<<<<<<<<<<<<<<<<<<<<<   PHYSICAL   
<<<<<<<<<<<<<<<<<<<<<<<<
%  ADDRESS   <<<<<<<<<<<<<<<<<<<<<<<<<<   ADDRESS    
<<<<<<<<<<<<<<<<<<<<<<<<
%            <<<<<<<<<<<<<<<<<<<<<<<<<<              
<<<<<<<<<<<<<<<<<<<<<<<<
%
%+-------------------------+----------------------------------------------------------
%| Position Information    |  ID        TITLE
%+-------------------------+  <<<<<<<   
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%
%  EMPLOYEE CLASS   DESCRIPTION
%  <<<<<<<<<<<<<    
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<               <<<<<<<<
%
%  FUND/ORGN/ACCT/PROG     ORGN %        ORGN DESCRIPTION
%  <<<<<<<<<<<<<<<<<<<<    <<<<<         
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%  <<<<<<<<<<<<<<<<<<<<    <<<<<         
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%  <<<<<<<<<<<<<<<<<<<<    <<<<<         
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%
%+-------------------------+----------------------------------------------------------
%| Employment Dates        |  *ADJ SERVICE:  <<<<<<<<      FIRST WORK 
DAY: <<<<<<<<<
%+-------------------------+ **SENIORITY:    <<<<<<<<      LAST  WORK 
DAY: <<<<<<<<<
%  CURRENT  HIRE: <<<<<<<<<    AL ACCRUAL RATE:  <<<<<<<
%  ORIGINAL HIRE: <<<<<<<<<    SL ACCRUAL RATE:  <<<<<<<
%
%+-------------------------+----------------------------------------------------------
%| Salary Information      |  HOURLY: ]]]]]].[[  DATE: <<<<<<<<    
GRADE/STEP: <<<<
%+-------------------------+  ANNUAL: ]]]]]].[[                    
GROUP/TABLE: <<<<
%
%+-------------------------+----------------------------------------------------------
%| Evaluation Information  |  NEXT ASI DUE:       <<<<<<<<   NEXT EVAL 
DUE: <<<<<<<<
%+-------------------------+  NEXT ASI EFFECTIVE: <<<<<<<<
%  LAST ASI DATE: <<<<<<<<<   LAST EVAL DATE:     <<<<<<<<          
RATING: <<<<<<<<
%
%+-------------------------+----------------------------------------------------------
%| Termination Information |  
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%+-------------------------+----------------------------------------------------------
%
%
%SUPERVISOR - Complete Changes Only                        (See attached 
instructions)
%
%  Date Due ____________  Effective Date ___________  Grade/Step 
_______   o Primary
%                                                                          
o Secondary
%  Position Title ______________________________________________________
%
%  Employee Class Code _________   Term/Resignation Reason 
___________________________
%
%  Orgn/Acct _________    Orgn % __________
%
%  Other:
%
%
%Route for Signatures / Date
%
%  Employee ____________________________         Supervisor  
___________________
%
%  Division Director ___________________         HR Director 
___________________
%
%
%}, $dem{id}, $dem{name}, $dem{phone}, $dem{mail1}, $dem{phys1}, 
$dem{mail2}, $dem{phys2}, $dem{mail3}, $dem{phys3}, $pi{id}, $pi{title}, 
$pi{ec}, $pi{desc}, $pi{prisec}, $pi{foa1}, $pi{per1}, $pi{org_desc1}, 
$pi{foa2}, $pi{per2}, $pi{org_desc2}, $pi{foa3}, $pi{per3}, 
$pi{org_desc3}, $dates{as}, $dates{fwd}, $dates{sen}, $dates{lwd}, 
$dates{ch}, $dates{alar}, $dates{oh}, $dates{slar}, $sal{hourly}, 
$sal{date}, $sal{gs}, $sal{annual}, $sal{gt}, $eval{asidue}, 
$eval{evaldue}, $eval{asieff}, $eval{lastasidate}, $eval{lastevaldate}, 
$eval{rating}, $termination;

For testing I have set all the variables to N/A for now.

This is all that prints out on the web page for some reason.

SUPERVISOR - Complete Changes Only                        (See attached 
instructions)

  Date Due ____________  Effective Date ___________  Grade/Step 
_______   o Primary
                                                                          
o Secondary
  Position Title ______________________________________________________

  Employee Class Code _________   Term/Resignation Reason 
___________________________
 
  Orgn/Acct _________    Orgn % __________

  Other:


Route for Signatures / Date

  Employee ____________________________         Supervisor  
___________________

  Division Director ___________________         HR Director 
___________________
HTTP/1.1 200 OK
Date: Fri, 21 Jun 2002 17:45:33 GMT
Server: Apache/1.3.20 (Unix) mod_perl/1.26
Set-Cookie: AF_SID=aa31d6239a778bcea9b59c2c560a5d84; path=/
Connection: close
Content-Type: text/html



<HTML>
  <HEAD>
    <TITLE>Banner PA</TITLE>
  </HEAD>

  <BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EE" VLINK="#551A8B" 
ALINK="#FF0000">








    <PRE>














    </PRE>



  </BODY>
</HTML>


As you can see only the parts of the report that don't actually have a 
variable assigned to them have printed out and none of it showed up in 
the <PRE></PRE> section.

So does anyone have any idea what I am doing wrong here?



-- 
Brian Avis
SEARHC Medical Clinic
Juneau, AK 99801
(907) 463-4049
Have a nice diurnal anomaly!




-------------------------------------------------------
Sponsored by:
ThinkGeek at http://www.ThinkGeek.com/
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
[prev in list] [next in list] [prev in thread] [next in thread]