Diff for /loncom/publisher/Attic/lonconstruct.pm between versions 1.35 and 1.36

version 1.35, 2008/11/19 19:15:02 version 1.36, 2010/03/10 21:26:04
Line 117  sub handler { Line 117  sub handler {
        $lowerframe.='?editmode=Edit&problemmode=edit';         $lowerframe.='?editmode=Edit&problemmode=edit';
    }     }
   
 #  
 # Checking to see if we should display the topframe  
 #  
    my $toprows = 0;  
    my $topsrc = '';  
    if ($env{'environment.remote'} ne 'off') {  
        $toprows = '110';  
        $topsrc = '/adm/localize/adm/publisher.html';  
    }  
   
    my $js=qq|     my $js=qq|
 <script type="text/javascript">  <script type="text/javascript">
 var lastknownpriv="$lowerframe";  var lastknownpriv="$lowerframe";
Line 137  var lastknownpriv="$lowerframe"; Line 127  var lastknownpriv="$lowerframe";
        &Apache::loncommon::start_page('Construction Space',$js,         &Apache::loncommon::start_page('Construction Space',$js,
       {'frameset'    => 1,        {'frameset'    => 1,
        'add_entries' => {         'add_entries' => {
    'rows'   => "$toprows,*",     'rows'   => "0,*",
    'border' => "0",}});     'border' => "0",}});
    my $end_page=     my $end_page=
        &Apache::loncommon::end_page({'frameset' => 1});         &Apache::loncommon::end_page({'frameset' => 1});
   
   
   #SD this entire frameset should be obsolete?!
    $r->print(<<ENDPAGE);     $r->print(<<ENDPAGE);
 $start_page  $start_page
 <frame src='$topsrc' />  <frame src='' />
 <frame src="$lowerframe" name="LONCAPAToBePublished" />  <frame src="$lowerframe" name="LONCAPAToBePublished" />
 $end_page  $end_page
 ENDPAGE  ENDPAGE

Removed from v.1.35  
changed lines
  Added in v.1.36


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>