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

Diff for /loncom/interface/londocs.pm between versions 1.480 and 1.483

version 1.480, 2012/04/05 15:22:39 version 1.483, 2012/05/06 22:09:14
Line 437  sub log_docs { Line 437  sub log_docs {
 sub docs_change_log {  sub docs_change_log {
     my ($r)=@_;      my ($r)=@_;
     my $folder=$env{'form.folder'};      my $folder=$env{'form.folder'};
     $r->print(&Apache::loncommon::start_page('Course Document Change Log'));      my $js = '<script type="text/javascript">'."\n".
                '// <![CDATA['."\n".
                &Apache::loncommon::display_filter_js('docslog')."\n".
                &history_tab_js()."\n".
                '// ]]>'."\n".
                '</script>'."\n";
       $r->print(&Apache::loncommon::start_page('Course Document Change Log',$js));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));
     my %docslog=&Apache::lonnet::dump('nohist_docslog',      my %docslog=&Apache::lonnet::dump('nohist_docslog',
                                       $env{'course.'.$env{'request.course.id'}.'.domain'},                                        $env{'course.'.$env{'request.course.id'}.'.domain'},
Line 461  sub docs_change_log { Line 467  sub docs_change_log {
     'randomorder'    => 'Randomly ordered',      'randomorder'    => 'Randomly ordered',
     'set'            => 'set to',      'set'            => 'set to',
     'del'            => 'deleted');      'del'            => 'deleted');
     $r->print(&Apache::loncommon::display_filter().      $r->print(&Apache::loncommon::display_filter('docslog').
               '<input type="hidden" name="folder" value="'.$folder.'" />'.                '<input type="hidden" name="folder" value="'.$folder.'" />'.
               '<input type="submit" value="'.&mt('Display').'" /></form>');                '<input type="submit" value="'.&mt('Display').'" /></form>');
     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().      $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
Line 2432  sub handler { Line 2438  sub handler {
           my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};            my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
           my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};            my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
           my ($destination,$dir_root) = &embedded_destination();            my ($destination,$dir_root) = &embedded_destination();
           $r->print(&Apache::loncommon::modify_html_refs('coursedoc',$destination,            my $result = 
                                                          $docuname,$docudom,undef,                &Apache::loncommon::modify_html_refs('coursedoc',$destination,
                                                          $dir_root).                                                     $docuname,$docudom,undef,
                    &return_to_editor());                                                     $dir_root);
             $r->print($result.&return_to_editor());   
       } elsif ($env{'form.phase'} eq 'decompress_uploaded') {        } elsif ($env{'form.phase'} eq 'decompress_uploaded') {
           $uploadphase = 'decompress_phase_one';            $uploadphase = 'decompress_phase_one';
           $r->print(&decompression_phase_one().            $r->print(&decompression_phase_one().
Line 3047  sub decompression_phase_one { Line 3054  sub decompression_phase_one {
         $error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});          $error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});
     } else {      } else {
         my $file = $1;          my $file = $1;
         $output = &Apache::loncommon::process_decompression($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem);          $output = 
               &Apache::loncommon::process_decompression($docudom,$docuname,$file,
                                                         $destination,$dir_root,
                                                         $hiddenelem);
           if ($env{'form.autoextract_camtasia'}) {
               $output .= &remove_archive($docudom,$docuname,$container);
           }
     }      }
     if ($error) {      if ($error) {
         $output .= '<p class="LC_error">'.&mt('Not extracted.').'<br />'.          $output .= '<p class="LC_error">'.&mt('Not extracted.').'<br />'.
Line 3062  sub decompression_phase_one { Line 3075  sub decompression_phase_one {
 sub decompression_phase_two {  sub decompression_phase_two {
     my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=      my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)=
         &decompression_info();          &decompression_info();
     my ($output,$url);      my $output;
     if ($env{'form.archivedelete'}) {      if ($env{'form.archivedelete'}) {
         ($output,$url) = &remove_archive($docudom,$docuname,$container);          $output = &remove_archive($docudom,$docuname,$container);
     }      }
     $output .=       $output .= 
         &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname,$url,          &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname,
                                                     $destination,$dir_root,$hiddenelem);                                                      $destination,$dir_root,$hiddenelem);
     return $output;      return $output;
 }  }
Line 3075  sub decompression_phase_two { Line 3088  sub decompression_phase_two {
 sub remove_archive {  sub remove_archive {
     my ($docudom,$docuname,$container) = @_;      my ($docudom,$docuname,$container) = @_;
     my $map = $env{'form.folder'}.'.'.$container;      my $map = $env{'form.folder'}.'.'.$container;
     my ($output,$delwarning,$delresult,$url,$outcome);      my ($output,$delwarning,$delresult,$url);
     my ($errtext,$fatal) = &mapread($docuname,$docudom,$map);      my ($errtext,$fatal) = &mapread($docuname,$docudom,$map);
     if ($fatal) {      if ($fatal) {
         if ($container eq 'page') {          if ($container eq 'page') {
Line 3100  sub remove_archive { Line 3113  sub remove_archive {
                         $delwarning = &mt('An error occurred updating the contents of the current folder.');                          $delwarning = &mt('An error occurred updating the contents of the current folder.');
                     }                      }
                 } else {                  } else {
                     $outcome = 'ok';                       $delresult = &mt('Archive file removed.');
                 }                  }
                 $delresult = &mt('Archive file removed.');  
             }              }
         }          }
         $env{'form.cmd'} = $currcmd;          $env{'form.cmd'} = $currcmd;
Line 3117  sub remove_archive { Line 3129  sub remove_archive {
                    $delresult.                     $delresult.
                    '</p>';                     '</p>';
     }      }
     return ($output,$url,$outcome);      return $output;
 }  }
   
 sub generate_admin_options {  sub generate_admin_options {
Line 3166  sub generate_edit_table { Line 3178  sub generate_edit_table {
         $activetab = $env{'form.active'};          $activetab = $env{'form.active'};
     }      }
     my $backicon = $iconpath.'clickhere.gif';      my $backicon = $iconpath.'clickhere.gif';
     my $backtext = &mt('Back to Overview');      my $backtext = &mt('To Overview');
     $form = '<div class="LC_Box" style="margin:0;">'.      $form = '<div class="LC_Box" style="margin:0;">'.
              '<ul id="navigation'.$tid.'" class="LC_TabContent">'.               '<ul id="navigation'.$tid.'" class="LC_TabContent">'.
              '<li class="goback">'.               '<li class="goback">'.
Line 3576  function toContents(jumpto) { Line 3588  function toContents(jumpto) {
 ENDNEWSCRIPT  ENDNEWSCRIPT
 }  }
   
   sub history_tab_js {
       return <<"ENDHIST";
   function toggleHistoryDisp(choice) {
       document.docslogform.docslog.value = choice;
       document.docslogform.submit();
       return;
   }
   
   ENDHIST
   }
   
 sub resize_contentdiv_js {  sub resize_contentdiv_js {
     my ($tabidstr) = @_;      my ($tabidstr) = @_;
     my $viewport_js = &Apache::loncommon::viewport_geometry_js();      my $viewport_js = &Apache::loncommon::viewport_geometry_js();
Removed from v.1.480  
changed lines
  Added in v.1.483

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