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

Diff for /loncom/interface/lonmeta.pm between versions 1.229 and 1.230

version 1.229, 2009/04/04 20:06:37 version 1.230, 2009/04/21 15:23:18
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})) {
           $r->print('<h4>'.&mt('Evaluation Comments').'</h4>'
                    .'<div>('
                    .&mt('visible to author and co-authors only')
                    .')</div>'
           );
         if (exists($dynmeta{'comments'})) {          if (exists($dynmeta{'comments'})) {
             $r->print('<h4>'.&mt('Evaluation Comments').' ('.              $r->print('<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
                       &mt('visible to author and co-authors only').  
                       ')</h4>'.  
                       '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');  
         } else {          } else {
             $r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>');              $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
Removed from v.1.229  
changed lines
  Added in v.1.230

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