loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.35, 2008/11/19 19:15:02
+version 1.37, 2010/04/12 15:05:51
  Line 117  sub handler {
         $lowerframe.='?editmode=Edit&problemmode=edit';
     }
- #
+    # when the remote control existed we used to force the
- # Checking to see if we should display the topframe
+    # pages of construction space into a frameset.
- #
+    # without remote control, we can elimnate this frameset
-    my $toprows = 0;
+    # and redirect to the url of the content frame.
-    my $topsrc = '';
+    # This keeps all URLs intact.
-    if ($env{'environment.remote'} ne 'off') {
+    $r->internal_redirect($lowerframe);
-        $toprows = '110';
-        $topsrc = '/adm/localize/adm/publisher.html';
-    }
-    my $js=qq|
- <script type="text/javascript">
- var lastknownpriv="$lowerframe";
- </script>
-     |;
-    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="$lowerframe" name="LONCAPAToBePublished" />
- $end_page
- ENDPAGE
     return OK;
  }
 ;