[BACK]Return to lonpubdir.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.120 and 1.121

version 1.120, 2009/05/19 10:16:02 version 1.121, 2009/05/19 22:52:29
Line 199  sub startpage { Line 199  sub startpage {
   
     my $formaction='/priv/'.$uname.$thisdisfn.'/';      my $formaction='/priv/'.$uname.$thisdisfn.'/';
     $formaction=~s|/+|/|g;      $formaction=~s|/+|/|g;
     my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring').  
         '<font face="Arial, Helvetica, sans-serif" size="+1"><b>'.&mt('Construction Space').'</b>:</font>&nbsp;'.  
         '<form name="dirs" method="post" action="'.$formaction.  
         '" target="_parent"><tt><b>'.  
         &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />".  
         &Apache::lonhtmlcommon::select_recent('construct','recent',  
                  'this.form.action=this.form.recent.value;this.form.submit()').  
               '</form>';  
     &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);      &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
  $env{'request.noversionuri'}=$currdir.'/';          $env{'request.noversionuri'}=$currdir.'/';
  $r->print(&Apache::loncommon::start_page('Construction Space',undef,          $r->print(&Apache::loncommon::start_page('Construction Space',undef));
  {'body_title' =>  
       $pagetitle,}));  
     } else {      } else {
  $r->print(&Apache::loncommon::start_page('Construction Space',undef,          $r->print(&Apache::loncommon::start_page('Construction Space',undef,
  { 'only_body' => 1,}));                                                   { 'only_body' => 1,}));
  $r->print($pagetitle);  
     }      }
   
       $r->print(&Apache::lonhtmlcommon::breadcrumbs()); # FIXME add breadcrumbs
   
       $r->print(&Apache::loncommon::head_subbox(
                   &Apache::loncommon::CSTR_pageheader(1)));
   
     my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);      my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
     my $doctitle = 'LON-CAPA '.&mt('Construction Space');      my $doctitle = 'LON-CAPA '.&mt('Construction Space');
     my $newname = &mt('New Name');      my $newname = &mt('New Name');
Removed from v.1.120  
changed lines
  Added in v.1.121

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