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.
40 lines
1.1 KiB
40 lines
1.1 KiB
#!/usr/bin/perl
|
|
#
|
|
# Source File: likert_rep_wall_103.pl
|
|
# $Header$
|
|
|
|
my $HBI_Debug_likert_rep_wall_103 = 0 ;
|
|
|
|
warn "INFO: " . __FILE__ . " running.\n" if ($HBI_Debug_likert_rep_wall_103) ;
|
|
|
|
print "<HTML>\n";
|
|
print "<HEAD></HEAD>\n";
|
|
|
|
print "<FRAMESET frameborder=0 rows=\"60,300,*\">\n";
|
|
|
|
print "\t<FRAME noresize scrolling=\"no\" name=\"rptindx003\" frameborder=0 " ;
|
|
print " src=\"$urlroot/likert_wall_103.pl?lang=$SESSION{'lang'}" .
|
|
"&tid=$SESSION{'tid'}&frm=1&rptno=$FORM{'rptno'}\">\n";
|
|
|
|
print "\t<FRAMESET frameborder=0 cols=\"230,230\">\n";
|
|
|
|
print "\t\t<FRAME name=\"rpttidx003\" frameborder=0 src=\"$urlroot/likert_wall_103.pl?" .
|
|
"lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
|
|
|
|
print "\t\t<FRAME name=\"rptdtl003\" frameborder=0 src=\"$urlroot/likert_wall_103.pl?" .
|
|
"lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
|
|
|
|
print "\t</FRAMESET>\n";
|
|
|
|
print "\t<FRAMESET frameborder=0 cols=\"*\">\n";
|
|
|
|
print "\t\t<FRAME name=\"rptTstGroups003\" frameborder=0 src=\"$urlroot/likert_wall_103.pl?" .
|
|
"lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
|
|
|
|
print "\t</FRAMESET>\n";
|
|
|
|
print "</FRAMESET>\n";
|
|
print "</HTML>\n";
|
|
|
|
1 ;
|
|
|
|
|