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

Diff for /loncom/interface/lonmeta.pm between versions 1.69 and 1.70

version 1.69, 2004/04/14 18:56:36 version 1.70, 2004/04/14 20:45:14
Line 252  sub prettyprint { Line 252  sub prettyprint {
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list')) {   ($type eq 'sequsage_list')) {
  return join('<br />',map {   return join('<br />',map {
             my $url=&Apache::lonnet::clutter($_);              my $url = &Apache::lonnet::clutter($_);
             '<b>'.&Apache::lonnet::gettitle($url).'</b>'.              $_ = '<b>'.&Apache::lonnet::gettitle($url).'</b> '.
                 &Apache::lonhtmlcommon::crumbs($url,'preview','',undef,'+0');                  '<a href="'.$url.'" target="preview">'.
                   '<font size="-1">'.$url.'</font>'.
                   '</a>'
         } split(/\s*\,\s*/,$value));          } split(/\s*\,\s*/,$value));
     }      }
     # Evaluations      # Evaluations
Line 450  sub report_bombs { Line 452  sub report_bombs {
             &Apache::lonmsg::all_url_author_res_msg($author,$domain);              &Apache::lonmsg::all_url_author_res_msg($author,$domain);
         foreach (sort(keys(%brokenurls))) {          foreach (sort(keys(%brokenurls))) {
             if ($_=~/^\Q$uri\E/) {              if ($_=~/^\Q$uri\E/) {
                 $r->print(&Apache::lonhtmlcommon::crumbs                  $r->print
                           (&Apache::lonnet::clutter($_)).                      ('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'.
                           &Apache::lonmsg::retrieve_author_res_msg($_).                       &Apache::lonmsg::retrieve_author_res_msg($_).
                           '<hr />');                       '<hr />');
             }              }
         }          }
     } else {      } else {
Line 554  sub print_dynamic_metadata { Line 556  sub print_dynamic_metadata {
     #      #
     my $description = 'Dynamic Metadata (updated periodically)';      my $description = 'Dynamic Metadata (updated periodically)';
     $r->print('<h3>'.&mt($description).'</h3>'.      $r->print('<h3>'.&mt($description).'</h3>'.
               &mt('Processing').' ...<br />');                &mt('Processing'));
     $r->rflush();      $r->rflush();
     my %items=&fieldnames();      my %items=&fieldnames();
     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'}) ||
               '<table cellspacing=2 border=0>');          exists($dynmeta{'sequsage'}) ||
     foreach ('count',          exists($dynmeta{'comefrom'}) ||
              'sequsage','sequsage_list',          exists($dynmeta{'goto'}) ||
              'comefrom','comefrom_list',          exists($dynmeta{'course'})) {
              'goto','goto_list',          $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
              'course','course_list') {                    '<table cellspacing=2 border=0>');
         $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.          foreach ('count',
                   '<td bgcolor="#CCCCCC">'.                   'sequsage','sequsage_list',
                   &prettyprint($_,$dynmeta{$_})."</td></tr>\n");                   'comefrom','comefrom_list',
                    'goto','goto_list',
                    'course','course_list') {
               $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
                         '<td bgcolor="#CCCCCC">'.
                         &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
           }
           $r->print('</table>');
       } else {
           $r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>');
     }      }
     $r->print('</table>');  
     #      #
     # Assessment statistics      # Assessment statistics
     if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {      if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/ &&
           (exists($dynmeta{'stdno'}) ||
            exists($dynmeta{'avetries'}) ||
            exists($dynmeta{'difficulty'}))) {
         # This is an assessment, print assessment data          # This is an assessment, print assessment data
         $r->print(          $r->print(
                   '<h4>'.&mt('Assessment Statistical Data').'</h4>'.                    '<h4>'.&mt('Assessment Statistical Data').'</h4>'.
Line 585  sub print_dynamic_metadata { Line 598  sub print_dynamic_metadata {
                       &prettyprint($_,$dynmeta{$_})."</td></tr>\n");                        &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
         }          }
         $r->print('</table>');              $r->print('</table>');    
       } else {
           $r->print('<h4>'.&mt('No Assessment Statistical Data is available for this resource').'</h4>');
     }      }
           if (exists($dynmeta{'clear'})   || 
     $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.          exists($dynmeta{'depth'})   || 
               '<table cellspacing=2 border=0>');          exists($dynmeta{'helpful'}) || 
     foreach ('clear','depth','helpful','correct','technical') {          exists($dynmeta{'correct'}) || 
         $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.          exists($dynmeta{'technical'})){ 
                   '<td bgcolor="#CCCCCC">'.          $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
                   &prettyprint($_,$dynmeta{$_})."</td></tr>\n");                    '<table cellspacing=2 border=0>');
           foreach ('clear','depth','helpful','correct','technical') {
               $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
                         '<td bgcolor="#CCCCCC">'.
                         &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
           }
           $r->print('</table>');
       } else {
           $r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
     }      }
     $r->print('</table>');  
     $uri=~/^\/res\/(\w+)\/(\w+)\//;       $uri=~/^\/res\/(\w+)\/(\w+)\//; 
     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').' ('.          if (exists($dynmeta{'comments'})) {
                   &mt('visible to author and co-authors only').              $r->print('<h4>'.&mt('Evaluation Comments').' ('.
                   ')</h4>'.                        &mt('visible to author and co-authors only').
                   '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');                        ')</h4>'.
         $r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('.                        '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
                   &mt('visible to author and co-authors only').')'.          } else {
                   '</h4>'.              $r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>');
                   &Apache::lonmsg::retrieve_author_res_msg($uri));          }
           my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri);
           if (defined($bombs) && $bombs ne '') {
               $r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('.
                         &mt('visible to author and co-authors only').')'.
                         '</h4>'.$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.69  
changed lines
  Added in v.1.70

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