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.
19 lines
714 B
19 lines
714 B
4 months ago
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Source File: likert.pl
|
||
|
|
# $Header$
|
||
|
|
|
||
|
|
print "<HTML>\n";
|
||
|
|
print "<HEAD></HEAD>\n";
|
||
|
|
print "<FRAMESET frameborder=0 rows=\"60,*\">\n";
|
||
|
|
print "\t<FRAME noresize scrolling=\"no\" name=\"rptindx003\" frameborder=0 src=\"$urlroot/likert.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=1&rptno=$FORM{'rptno'}\">\n";
|
||
|
|
print "\t<FRAMESET frameborder=0 cols=\"230,*\">\n";
|
||
|
|
print "\t\t<FRAME name=\"rpttidx003\" frameborder=0 src=\"$urlroot/likert.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
|
||
|
|
print "\t\t<FRAME name=\"rptdtl003\" frameborder=0 src=\"$urlroot/likert.pl?lang=$SESSION{'lang'}&tid=$SESSION{'tid'}&frm=0\">\n";
|
||
|
|
print "\t</FRAMESET>\n";
|
||
|
|
print "</FRAMESET>\n";
|
||
|
|
print "</HTML>\n";
|
||
|
|
|
||
|
|
1 ;
|
||
|
|
|