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

Diff for /loncom/publisher/loncfile.pm between versions 1.100 and 1.100.2.2

version 1.100, 2009/05/26 18:01:39 version 1.100.2.2, 2009/08/28 14:32:26
Line 855  sub NewFile1 { Line 855  sub NewFile1 {
             $extension = $1;              $extension = $1;
         }          }
   
         my @okexts = qw(xml html xhtml htm xhtm problem page sequence rights sty library js css txt);          my @okexts = qw(xml html xhtml htm xhtm problem page sequence rights sty task library js css txt);
   
         if (($extension eq '') || (!grep(/^\Q$extension\E/,@okexts))) {          if (($extension eq '') || (!grep(/^\Q$extension\E/,@okexts))) {
             my $validexts = '.'.join(', .',@okexts);              my $validexts = '.'.join(', .',@okexts);
             $request->print('<p class="LC_warning">'.              $request->print('<p class="LC_warning">'.
Line 1446  function writeDone() { Line 1447  function writeDone() {
  $loaditem{'onload'} = "writeDone()";   $loaditem{'onload'} = "writeDone()";
     }      }
           
     # Breadcrumbs  
     &Apache::lonhtmlcommon::clear_breadcrumbs();  
     &Apache::lonhtmlcommon::add_breadcrumb({  
         'text'  => 'Construction Space',  
         'href'  => '', # FIXME Add link to /priv/[user]  
     });  
     &Apache::lonhtmlcommon::add_breadcrumb({  
         'text'  => 'File Operation',  
         'title' => 'Construction Space File Operation',  
         'href'  => '',  
     });  
   
     $r->print(&Apache::loncommon::start_page('Construction Space File Operation',      $r->print(&Apache::loncommon::start_page('Construction Space File Operation',
      $js,       $js,
      {'add_entries' => \%loaditem,})       {'add_entries' => \%loaditem,}));
              .&Apache::lonhtmlcommon::breadcrumbs()  
              .&Apache::loncommon::head_subbox(  
                   &Apache::loncommon::CSTR_pageheader())  
     );  
     
     $r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');      $r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');
       
     if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {      if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
Removed from v.1.100  
changed lines
  Added in v.1.100.2.2

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