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
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 ;
|
|
|
|
|