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

Diff for /loncom/interface/lonmeta.pm between versions 1.212.2.1 and 1.212.2.3

version 1.212.2.1, 2008/12/13 21:07:46 version 1.212.2.3, 2008/12/13 23:09:35
Line 573  sub selectbox { Line 573  sub selectbox {
         $functionref=\&direct;          $functionref=\&direct;
     }      }
     my $selout='<select name="'.$name.'">';      my $selout='<select name="'.$name.'">';
     foreach (@idlist) {      foreach my $id (@idlist) {
         $selout.='<option value=\''.$_.'\'';          $selout.='<option value="'.$id.'"';
         if ($_ eq $value) {          if ($id eq $value) {
     $selout.=' selected>'.&{$functionref}($_).'</option>';      $selout.=' selected>'.&{$functionref}($_).'</option>';
  }          } else {
         else {$selout.='>'.&{$functionref}($_).'</option>';}              $selout.='>'.&{$functionref}($id).'</option>';
           }
     }      }
     return $selout.'</select>';      return $selout.'</select>';
 }  }
Line 850  sub report_bombs { Line 851  sub report_bombs {
 ENDCLEAR  ENDCLEAR
         my %brokenurls =           my %brokenurls = 
             &Apache::lonmsg::all_url_author_res_msg($author,$domain);              &Apache::lonmsg::all_url_author_res_msg($author,$domain);
         foreach (sort(keys(%brokenurls))) {          foreach my $key (sort(keys(%brokenurls))) {
             if ($_=~/^\Q$uri\E/) {              if ($key=~/^\Q$uri\E/) {
                 $r->print                  $r->print
                     ('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'.                      ('<a href="'.&Apache::lonnet::clutter($key).'">'.$key.'</a>'.
                      &Apache::lonmsg::retrieve_author_res_msg($_).                       &Apache::lonmsg::retrieve_author_res_msg($key).
                      '<hr />');                       '<hr />');
             }              }
         }          }
Line 877  sub present_uneditable_metadata { Line 878  sub present_uneditable_metadata {
     my $uploaded = ($uri =~ m|/uploaded/|);      my $uploaded = ($uri =~ m|/uploaded/|);
     my %content=();      my %content=();
     # Read file      # Read file
     foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {      foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
         $content{$_}=&Apache::lonnet::metadata($uri,$_);          $content{$key}=&Apache::lonnet::metadata($uri,$key);
     }      }
     # Render Output      # Render Output
     # displayed url      # displayed url
Line 944  sub present_uneditable_metadata { Line 945  sub present_uneditable_metadata {
    'obsolete',      'obsolete', 
    'obsoletereplacement');     'obsoletereplacement');
     }      }
       my $rownum = 0;
     foreach my $field (@fields) {      foreach my $field (@fields) {
           my $lastrow = '';
           $rownum ++;
           $lastrow = 1 if ($rownum == @fields);
         $table.=&Apache::lonhtmlcommon::row_title($lt{$field})          $table.=&Apache::lonhtmlcommon::row_title($lt{$field})
                 .&prettyprint($field,$content{$field}).                  .&prettyprint($field,$content{$field}).
                 .&Apache::lonhtmlcommon::row_closure();                  .&Apache::lonhtmlcommon::row_closure($lastrow);
         delete($content{$field});          delete($content{$field});
     }      }
     #      #
Line 988  sub print_dynamic_metadata { Line 993  sub print_dynamic_metadata {
         exists($dynmeta{'course'})) {          exists($dynmeta{'course'})) {
         $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.          $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
                   &Apache::lonhtmlcommon::start_pick_box());                    &Apache::lonhtmlcommon::start_pick_box());
         foreach ('count',          my @counts = ('count','sequsage','sequsage_list',
                  'sequsage','sequsage_list',                        'comefrom','comefrom_list','goto',
                  'comefrom','comefrom_list',                        'goto_list','course','course_list');
                  'goto','goto_list',          my $rownum = 0;
                  'course','course_list') {          foreach my $item (@counts) {
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})              my $lastrow = '';
                       .&prettyprint($_,$dynmeta{$_})              $rownum ++;
                       .&Apache::lonhtmlcommon::row_closure()              $lastrow = 1 if ($rownum == @counts);
               $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                         .&prettyprint($item,$dynmeta{$item})
                         .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1018  sub print_dynamic_metadata { Line 1026  sub print_dynamic_metadata {
                       .&prettyprint('stdno',$dynmeta{'stdno'})                        .&prettyprint('stdno',$dynmeta{'stdno'})
                       .&Apache::lonhtmlcommon::row_closure()                        .&Apache::lonhtmlcommon::row_closure()
             );              );
             foreach ('avetries','difficulty','disc') {              my @stats = ('avetries','difficulty','disc');
                 $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})              my $rownum = 0;
                           .&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})).              foreach my $item (@stats) {
                           .&Apache::lonhtmlcommon::row_closure()                  my $lastrow = '';
                   $rownum ++;
                   $lastrow = 1 if ($rownum == @stats);
                   $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                             .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item})).
                             .&Apache::lonhtmlcommon::row_closure($lastrow)
                 );                  );
             }              }
             $r->print(&Apache::lonhtmlcommon::end_pick_box());                  $r->print(&Apache::lonhtmlcommon::end_pick_box());    
Line 1059  sub print_dynamic_metadata { Line 1072  sub print_dynamic_metadata {
                     '<td align="right">'.$data->{'sections'}.'</td>';                      '<td align="right">'.$data->{'sections'}.'</td>';
                 $table .=                  $table .=
                     '<td align="right">'.$data->{'stdno'}.'</td>';                      '<td align="right">'.$data->{'stdno'}.'</td>';
                 foreach ('avetries','difficulty','disc') {                  foreach my $item ('avetries','difficulty','disc') {
                     $table .= '<td align="right">';                      $table .= '<td align="right">';
                     if (exists($data->{$_})) {                      if (exists($data->{$item})) {
                         $table .= sprintf('%.2f',$data->{$_}).'&nbsp;';                          $table .= sprintf('%.2f',$data->{$item}).'&nbsp;';
                     } else {                      } else {
                         $table .= '';                          $table .= '';
                     }                      }
Line 1094  sub print_dynamic_metadata { Line 1107  sub print_dynamic_metadata {
         exists($dynmeta{'technical'})){           exists($dynmeta{'technical'})){ 
         $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.          $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
                   &Apache::lonhtmlcommon::start_pick_box());                    &Apache::lonhtmlcommon::start_pick_box());
         foreach ('clear','depth','helpful','correct','technical') {          my @criteria = ('clear','depth','helpful','correct','technical');
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})          my $rownum = 0;
                       .&prettyprint($_,$dynmeta{$_})          foreach my $item (@criteria) {
                       .&Apache::lonhtmlcommon::row_closure()              my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @criteria);
               $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                         .&prettyprint($item,$dynmeta{$item})
                         .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1130  sub print_dynamic_metadata { Line 1148  sub print_dynamic_metadata {
               &mt('Additional Metadata (non-standard, parameters, exports)').                &mt('Additional Metadata (non-standard, parameters, exports)').
               '</h3>');                '</h3>');
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box());
     foreach (sort(keys(%content))) {      my @names;
         my $name=$_;      foreach my $key (sort(keys(%content))) {
         if ($name!~/\.display$/) {          if ($key!~/\.display$/) {
               push(@names,$key);
           }
       }
       if (@names > 0) {
           my $rownum = 0;
           foreach my $name (@names) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @names);
   
             my $display=&Apache::lonnet::metadata($uri,              my $display=&Apache::lonnet::metadata($uri,
                                                   $name.'.display');                                                    $name.'.display');
             if (! $display) {               if (! $display) { 
                 $display=$name;                  $display=$name;
             };              };
             my $otherinfo='';              my $otherinfo='';
             foreach ('name','part','type','default') {              foreach my $item ('name','part','type','default') {
                 if (defined(&Apache::lonnet::metadata($uri,                  if (defined(&Apache::lonnet::metadata($uri,
                                                       $name.'.'.$_))) {                                                        $name.'.'.$item))) {
                     $otherinfo.=' '.$_.'='.                      $otherinfo.=' '.$item.'='.
                         &Apache::lonnet::metadata($uri,                          &Apache::lonnet::metadata($uri,
                                                   $name.'.'.$_).'; ';                                                    $name.'.'.$item).'; ';
                 }                  }
             }              }
             $r->print(&Apache::lonhtmlcommon::row_title($display)              $r->print(&Apache::lonhtmlcommon::row_title($display)
Line 1152  sub print_dynamic_metadata { Line 1180  sub print_dynamic_metadata {
             if ($otherinfo) {              if ($otherinfo) {
                 $r->print(' ('.$otherinfo.')');                  $r->print(' ('.$otherinfo.')');
             }              }
             $r->print(&Apache::lonhtmlcommon::row_closure());              $r->print(&Apache::lonhtmlcommon::row_closure($lastrow));
         }          }
     }      }
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::lonhtmlcommon::end_pick_box());
Removed from v.1.212.2.1  
changed lines
  Added in v.1.212.2.3

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