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

Diff for /loncom/interface/londocs.pm between versions 1.252 and 1.253

version 1.252, 2006/11/13 22:32:56 version 1.253, 2006/11/15 14:33:46
Line 1078  sub docs_change_log { Line 1078  sub docs_change_log {
     &Apache::loncommon::restore_course_settings('docs_log',      &Apache::loncommon::restore_course_settings('docs_log',
                                                 \%saveable_parameters);                                                  \%saveable_parameters);
     if (!$env{'form.show'}) { $env{'form.show'}=10; }      if (!$env{'form.show'}) { $env{'form.show'}=10; }
                                                                                                                                   my %lt=&Apache::lonlocal::texthash('hiddenresource' => 'Resources hidden',
                                          'encrypturl' => 'URL hidden',
                                          'randompick' => 'Randomly pick',
                                          'set' => 'set to',
                                          'del' => 'deleted');
                                                                                                                        
     my $countselect =      my $countselect =
         &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,          &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
                                     (&mt('all'),10,20,50,100,1000,10000));                                      (&mt('all'),10,20,50,100,1000,10000));
Line 1151  sub docs_change_log { Line 1156  sub docs_change_log {
  $r->print('</ul>');   $r->print('</ul>');
  if ($docslog{$id}{'logentry'}{'parameter_res'}) {   if ($docslog{$id}{'logentry'}{'parameter_res'}) {
     $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');      $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
     foreach my $parameter ('randompick','hiddenresource','encrypturl]') {      foreach my $parameter ('randompick','hiddenresource','encrypturl') {
  if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {   if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
     $r->print('<li>'.$parameter.' '.$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}.' '.      $r->print('<li>'.$lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' '.
       $docslog{$id}{'logentry'}{'parameter_value_'.$parameter}.'</li>');        $docslog{$id}{'logentry'}{'parameter_value_'.$parameter}.'</li>');
  }   }
     }      }
Removed from v.1.252  
changed lines
  Added in v.1.253

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