--- loncom/publisher/loncfile.pm 2010/01/27 15:05:21 1.100.2.3 +++ loncom/publisher/loncfile.pm 2010/12/14 16:26:04 1.105 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.100.2.3 2010/01/27 15:05:21 raeburn Exp $ +# $Id: loncfile.pm,v 1.105 2010/12/14 16:26:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -553,7 +553,7 @@ sub Rename1 { .$newfilename.'" />' .'

' .&mt($action.' [_1] to [_2]?', - &display($fn) + &display($fn), &display($newfilename)) .'

' ); @@ -690,15 +690,14 @@ sub Copy1 { $request->print('
'.&mt('Cancel').''); return; } - - $request->print( - '' - .'

' - .&mt('Copy [_1] to [_2]?', - &display($fn), - &display($newfilename)) - .'

' + $request->print( + '' + .'

' + .&mt('Copy [_1] to [_2]?', + &display($fn), + &display($newfilename)) + .'

' ); &CloseForm1($request, $fn); } else { @@ -757,10 +756,9 @@ sub NewDir1 { if ($type eq 'error') { $request->print(''); } else { - if ($mode eq 'testbank') { - $request->print(''); - } elsif ($mode eq 'imsimport') { - $request->print(''); + if (($mode eq 'testbank') || ($mode eq 'imsimport')) { + $request->print(''."\n". + ''); } $request->print('' @@ -859,7 +857,6 @@ sub NewFile1 { } 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))) { my $validexts = '.'.join(', .',@okexts); $request->print('

'. @@ -1073,10 +1070,11 @@ sub Rename2 { unlink $tmp2; } } else { - $request->print('

' - .&mt('No such file: [_1]', - &display($oldfile)) - .'

' + $request->print( + '

' + .&mt('No such file: [_1]', + &display($oldfile)) + .'

' ); return 0; } @@ -1450,14 +1448,30 @@ function writeDone() { $loaditem{'onload'} = "writeDone()"; } + # Breadcrumbs + &Apache::lonhtmlcommon::clear_breadcrumbs(); + &Apache::lonhtmlcommon::add_breadcrumb({ + 'text' => 'Construction Space', + 'href' => &Apache::loncommon::authorspace(), + }); + &Apache::lonhtmlcommon::add_breadcrumb({ + 'text' => 'File Operation', + 'title' => 'Construction Space File Operation', + 'href' => '', + }); + $r->print(&Apache::loncommon::start_page('Construction Space File Operation', $js, - {'add_entries' => \%loaditem,})); - + {'add_entries' => \%loaditem,}) + .&Apache::lonhtmlcommon::breadcrumbs() + .&Apache::loncommon::head_subbox( + &Apache::loncommon::CSTR_pageheader()) + ); + $r->print('

'.&mt('Location').': '.&display($fn).'

'); if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { - $r->print('

' + $r->print('

' .&mt('Co-Author [_1]',$uname.':'.$udom) .'

' );