version 1.31, 2005/11/08 17:58:35
|
version 1.34, 2008/02/03 01:11:01
|
Line 92 sub handler {
|
Line 92 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceedit']); |
($ENV{'QUERY_STRING'},['forceedit']); |
if ($env{'form.forceedit'}) { |
if ($env{'form.forceedit'}) { |
$lowerframe.='?editmode=Edit&problemmode=EditXML'; |
$lowerframe.='?editmode=Edit&problemmode=editxml'; |
} |
} |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceColoredit']); |
($ENV{'QUERY_STRING'},['forceColoredit']); |
if ($env{'form.forceColoredit'}) { |
if ($env{'form.forceColoredit'}) { |
$lowerframe.='?editmode=Edit&problemmode=Edit'; |
$lowerframe.='?editmode=Edit&problemmode=edit'; |
} |
} |
|
|
# |
# |
Line 109 sub handler {
|
Line 109 sub handler {
|
$toprows = '110'; |
$toprows = '110'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
} |
} |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<ENDPAGE); |
my $js=qq| |
$html |
|
<head><title>LON-CAPA Construction Space</title> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
var lastknownpriv="$lowerframe"; |
var lastknownpriv="$lowerframe"; |
</script> |
</script> |
</head> |
|; |
<frameset rows="$toprows,*" border="0"> |
|
|
my $start_page= |
|
&Apache::loncommon::start_page('Construction Space',$js, |
|
{'frameset' => 1, |
|
'add_entries' => { |
|
'rows' => "$toprows,*", |
|
'border' => "0",}}); |
|
my $end_page= |
|
&Apache::loncommon::end_page({'frameset' => 1}); |
|
|
|
$r->print(<<ENDPAGE); |
|
$start_page |
<frame src='$topsrc' /> |
<frame src='$topsrc' /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
</frameset> |
$end_page |
</html> |
|
ENDPAGE |
ENDPAGE |
return OK; |
return OK; |
} |
} |