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

Diff for /loncom/interface/lonmeta.pm between versions 1.226 and 1.231

version 1.226, 2009/03/17 20:07:45 version 1.231, 2009/04/21 15:38:02
Line 558  sub selectbox { Line 558  sub selectbox {
     foreach my $id (@idlist) {      foreach my $id (@idlist) {
         $selout.='<option value="'.$id.'"';          $selout.='<option value="'.$id.'"';
         if ($id eq $value) {          if ($id eq $value) {
     $selout.=' selected>'.&{$functionref}($id).'</option>';      $selout.=' selected="selected">'.&{$functionref}($id).'</option>';
         } else {          } else {
             $selout.='>'.&{$functionref}($id).'</option>';              $selout.='>'.&{$functionref}($id).'</option>';
         }          }
Line 578  sub relatedfield { Line 578  sub relatedfield {
         return $relatedsep.'&nbsp;';          return $relatedsep.'&nbsp;';
     }      }
     return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.      return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
  ($relatedvalue?' checked="1"':'').' />';   ($relatedvalue?' checked="checked"':'').' />';
 }  }
   
 sub prettyinput {  sub prettyinput {
Line 691  sub prettyinput { Line 691  sub prettyinput {
     # Obsolete      # Obsolete
     if ($type eq 'obsolete') {      if ($type eq 'obsolete') {
  return '<input type="checkbox" name="'.$fieldname.'"'.   return '<input type="checkbox" name="'.$fieldname.'"'.
     ($value?' checked="1"':'').' />'.      ($value?' checked="checked"':'').' />'.
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
     }      }
     # Obsolete replacement file      # Obsolete replacement file
Line 968  sub print_dynamic_metadata { Line 968  sub print_dynamic_metadata {
     my %dynmeta=&dynamicmeta($uri);      my %dynmeta=&dynamicmeta($uri);
     #      #
     # General Access and Usage Statistics      # General Access and Usage Statistics
       $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>');
     if (exists($dynmeta{'count'}) ||      if (exists($dynmeta{'count'}) ||
         exists($dynmeta{'sequsage'}) ||          exists($dynmeta{'sequsage'}) ||
         exists($dynmeta{'comefrom'}) ||          exists($dynmeta{'comefrom'}) ||
         exists($dynmeta{'goto'}) ||          exists($dynmeta{'goto'}) ||
         exists($dynmeta{'course'})) {          exists($dynmeta{'course'})) {
         $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.          $r->print(&Apache::lonhtmlcommon::start_pick_box());
                   &Apache::lonhtmlcommon::start_pick_box());  
         my @counts = ('count','sequsage','sequsage_list',          my @counts = ('count','sequsage','sequsage_list',
                       'comefrom','comefrom_list','goto',                        'comefrom','comefrom_list','goto',
                       'goto_list','course','course_list');                        'goto_list','course','course_list');
Line 990  sub print_dynamic_metadata { Line 990  sub print_dynamic_metadata {
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
     } else {      } else {
         $r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>');          $r->print('<p>'
                    .&mt('No Access or Usages Statistics are available for this resource.')
                    .'</p>'
           );
     }      }
     #      #
     # Assessment statistics      # Assessment statistics
Line 1021  sub print_dynamic_metadata { Line 1024  sub print_dynamic_metadata {
             }              }
             $r->print(&Apache::lonhtmlcommon::end_pick_box());              $r->print(&Apache::lonhtmlcommon::end_pick_box());
         }          }
           #
           # New assessment statistics
           $r->print('<h4>'
                    .&mt('Recent Detailed Assessment Statistical Data')
                    .'</h4>'
           );
         if (exists($dynmeta{'stats'})) {          if (exists($dynmeta{'stats'})) {
             #  
             # New assessment statistics  
             $r->print('<h4>'.  
                       &mt('Recent Detailed Assessment Statistical Data').  
                       '</h4>');  
             my $table=&Apache::loncommon::start_data_table()              my $table=&Apache::loncommon::start_data_table()
                      .&Apache::loncommon::start_data_table_header_row()                       .&Apache::loncommon::start_data_table_header_row()
                      .'<th>'.&mt('Course').'</th>'                       .'<th>'.&mt('Course').'</th>'
Line 1072  sub print_dynamic_metadata { Line 1076  sub print_dynamic_metadata {
             $table .= &Apache::loncommon::end_data_table().$/;              $table .= &Apache::loncommon::end_data_table().$/;
             $r->print($table);              $r->print($table);
         } else {          } else {
             $r->print(&mt('No new dynamic data found.'));              $r->print('<p>'
                        .&mt('No new dynamic data found.')
                        .'</p>'
               );
         }          }
     } else {      } else {
         $r->print('<h4>'.          $r->print('<h4>'.
Line 1081  sub print_dynamic_metadata { Line 1088  sub print_dynamic_metadata {
     }      }
   
     #      #
     #      # Evaluation Data
       $r->print('<h4>'.&mt('Evaluation Data').'</h4>');
     if (exists($dynmeta{'clear'})   ||       if (exists($dynmeta{'clear'})   || 
         exists($dynmeta{'depth'})   ||           exists($dynmeta{'depth'})   || 
         exists($dynmeta{'helpful'}) ||           exists($dynmeta{'helpful'}) || 
         exists($dynmeta{'correct'}) ||           exists($dynmeta{'correct'}) || 
         exists($dynmeta{'technical'})){           exists($dynmeta{'technical'})){ 
         $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.          $r->print(&Apache::lonhtmlcommon::start_pick_box());
                   &Apache::lonhtmlcommon::start_pick_box());  
         my @criteria = ('clear','depth','helpful','correct','technical');          my @criteria = ('clear','depth','helpful','correct','technical');
         my $rownum = 0;          my $rownum = 0;
         foreach my $item (@criteria) {          foreach my $item (@criteria) {
Line 1102  sub print_dynamic_metadata { Line 1109  sub print_dynamic_metadata {
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
     } else {      } else {
         $r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');          $r->print('<p>'
                    .&mt('No Evaluation Data is available for this resource.')
                    .'</p>'
           );
     }      }
       # Evaluation Comments
     $uri=~/^\/res\/($match_domain)\/($match_username)\//;       $uri=~/^\/res\/($match_domain)\/($match_username)\//; 
     if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))      if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
         || ($env{'user.role.ca./'.$1.'/'.$2})) {          || ($env{'user.role.ca./'.$1.'/'.$2})) {
         if (exists($dynmeta{'comments'})) {          $r->print('<h4>'.&mt('Evaluation Comments').'</h4>'
             $r->print('<h4>'.&mt('Evaluation Comments').' ('.                   .'<div>('
                       &mt('visible to author and co-authors only').                   .&mt('visible to author and co-authors only')
                       ')</h4>'.                   .')</div>'
                       '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');          );
         } else {          if (exists($dynmeta{'comments'}) and $dynmeta{'comments'} ne '') {
             $r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>');              $r->print('<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
           } else {
               $r->print('<p>'
                        .&mt('There are no Evaluation Comments on this resource.')
                        .'</p>'
               );
         }          }
         my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri);          my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri);
         if (defined($bombs) && $bombs ne '') {          if (defined($bombs) && $bombs ne '') {
             $r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('.              $r->print('<a name="bombs" />'
                       &mt('visible to author and co-authors only').')'.                       .'<h4 class="LC_error">'.&mt('Error Messages').'</h4>'
                       '</h4>'.$bombs);                       .'<div>('
         } else {                       .&mt('visible to author and co-authors only')
             $r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>');                       .')</div>'
         }                       .$bombs
               );
           } #else {
           #    $r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>');
           #}
     }      }
     #      #
     # All other stuff      # All other stuff
Line 1467  sub store_metadata { Line 1487  sub store_metadata {
         $output .= $result;          $output .= $result;
     } else {      } else {
         if (! ($mfh=Apache::File->new('>'.$fn))) {          if (! ($mfh=Apache::File->new('>'.$fn))) {
             $output .= '<p><font color="red">';              $output .= '<p class="LC_error">';
             if ($caller eq 'transfer') {              if ($caller eq 'transfer') {
                 $output .= &mt('Could not transfer data in added fields to notes');                  $output .= &mt('Could not transfer data in added fields to notes');
             } else {               } else { 
                 $output .= &mt('Could not write metadata');                  $output .= &mt('Could not write metadata');
             }              }
             $output .= ', '.&mt('FAIL').'</font></p>';              $output .= ', '.&mt('FAIL').'</p>';
             $outcome = 'fail';              $outcome = 'fail';
         } else {          } else {
             print $mfh ($file_content);              print $mfh ($file_content);
             close($mfh);              close($mfh);
             &update_metadata_table($uri);              &update_metadata_table($uri);
             $output .= '<p><font color="blue">';              $output .= '<p class="LC_success">';
             if ($caller eq 'transfer') {              if ($caller eq 'transfer') {
                 $output .= &mt('Transferred data in added fields to notes');                  $output .= &mt('Transferred data in added fields to notes');
             } else {              } else {
                 $output .= &mt('Wrote Metadata');                  $output .= &mt('Wrote Metadata');
             }              }
             $output .= ' '.&Apache::lonlocal::locallocaltime(time).              $output .= ' '.&Apache::lonlocal::locallocaltime(time).
                        '</font></p>';                         '</p>';
             $outcome = 'ok';              $outcome = 'ok';
         }          }
     }      }
Line 1514  sub store_portfolio_metadata { Line 1534  sub store_portfolio_metadata {
     $env{'form.'.$formname.'.filename'}=$new_fn;      $env{'form.'.$formname.'.filename'}=$new_fn;
     my $result =&Apache::lonnet::userfileupload($formname,'',$path);      my $result =&Apache::lonnet::userfileupload($formname,'',$path);
     if ($result =~ /(error|notfound)/) {      if ($result =~ /(error|notfound)/) {
         $output = '<p><font color="red">';          $output = '<p class="LC_error">';
         if ($caller eq 'transfer') {          if ($caller eq 'transfer') {
             $output .=               $output .= 
                 &mt('Could not transfer data in added fields to notes');                   &mt('Could not transfer data in added fields to notes'); 
         } else {          } else {
             $output .= &mt('Could not write metadata');              $output .= &mt('Could not write metadata');
         }          }
         $output .= ', '.&mt('FAIL').'</font></p>';          $output .= ', '.&mt('FAIL').'</p>';
         $outcome = 'fail';          $outcome = 'fail';
     } else {      } else {
         &update_metadata_table($uri);          &update_metadata_table($uri);
         $output = '<p><font color="blue">';          $output = '<p class="LC_success">';
         if ($caller eq 'transfer') {          if ($caller eq 'transfer') {
             $output .= &mt('Transferred data in added fields to notes');              $output .= &mt('Transferred data in added fields to notes');
         } else {          } else {
             $output .= &mt('Wrote Metadata');              $output .= &mt('Wrote Metadata');
         }          }
         $output .= ' '.&Apache::lonlocal::locallocaltime(time).          $output .= ' '.&Apache::lonlocal::locallocaltime(time).
                    '</font></p>';                     '</p>';
         $outcome = 'ok';          $outcome = 'ok';
     }      }
     return ($outcome,$output);      return ($outcome,$output);
Removed from v.1.226  
changed lines
  Added in v.1.231

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