You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

28 lines
1.2 KiB

#!/usr/bin/perl
#
# Source File: likert_rep_wall_106.pl
# This perl script creates the frames for a custom report for TG Wall.
# The report is the follow up report for killer Presentation Skills.
print "<HTML>\n";
print "<HEAD></HEAD>\n";
print "<FRAMESET frameborder=0 rows=\"90,230,*\">\n";
print "\t<FRAME noresize scrolling=\"no\" name=\"rptindx003\" frameborder=0 src=\"$urlroot/likert_wall_106.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=1&rptno=$FORM{'rptno'}\">\n";
print "\t\t<FRAMESET frameborder=0 cols=\"350,*\">\n";
print "\t\t\t<FRAME name=\"rpttidx003\" frameborder=0 src=\"$urlroot/likert_wall_106.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
print "\t\t\t<FRAME name=\"rptdtl003\" frameborder=0 src=\"$urlroot/likert_wall_106.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
print "\t\t</FRAMESET>\n";
print "\t\t<FRAMESET frameborder=0 cols=\"350,*\">\n";
print "\t\t\t<FRAME name=\"rpttidx004\" frameborder=0 src=\"$urlroot/likert_wall_106.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
print "\t\t\t<FRAME name=\"rptdtl004\" frameborder=0 src=\"$urlroot/likert_wall_106.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
print "\t\t</FRAMESET>\n";
print "</FRAMESET>\n";
print "</HTML>\n";
1 ;