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

Diff for /loncom/interface/lonmeta.pm between versions 1.219 and 1.220

version 1.219, 2008/12/12 10:01:25 version 1.220, 2008/12/13 19:44:52
Line 555  sub selectbox { Line 555  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}($id).'</option>';
  }          } else {
         else {$selout.='>'.&{$functionref}($_).'</option>';}              $selout.='>'.&{$functionref}($id).'</option>';
           }
     }      }
     return $selout.'</select>';      return $selout.'</select>';
 }  }
Line 832  sub report_bombs { Line 833  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 859  sub present_uneditable_metadata { Line 860  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 970  sub print_dynamic_metadata { Line 971  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',          foreach my $item ('count',
                  'sequsage','sequsage_list',                            'sequsage','sequsage_list',
                  'comefrom','comefrom_list',                            'comefrom','comefrom_list',
                  'goto','goto_list',                            'goto','goto_list',
                  'course','course_list') {                            'course','course_list') {
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($_,$dynmeta{$_})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure()
             );              );
         }          }
Line 1000  sub print_dynamic_metadata { Line 1001  sub print_dynamic_metadata {
                      .&prettyprint('stdno',$dynmeta{'stdno'})                       .&prettyprint('stdno',$dynmeta{'stdno'})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure()
             );              );
             foreach ('avetries','difficulty','disc') {              foreach my $item ('avetries','difficulty','disc') {
                 $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})                  $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                          .&prettyprint($_,sprintf('%5.2f',$dynmeta{$_}))                           .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))
                          .&Apache::lonhtmlcommon::row_closure()                           .&Apache::lonhtmlcommon::row_closure()
                 );                  );
             }              }
Line 1041  sub print_dynamic_metadata { Line 1042  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 1076  sub print_dynamic_metadata { Line 1077  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') {          foreach my $item ('clear','depth','helpful','correct','technical') {
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$_})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($_,$dynmeta{$_})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure()
             );              );
         }          }
Line 1112  sub print_dynamic_metadata { Line 1113  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))) {      foreach my $name (sort(keys(%content))) {
         my $name=$_;  
         if ($name!~/\.display$/) {          if ($name!~/\.display$/) {
             my $display=&Apache::lonnet::metadata($uri,              my $display=&Apache::lonnet::metadata($uri,
                                                   $name.'.display');                                                    $name.'.display');
Line 1121  sub print_dynamic_metadata { Line 1121  sub print_dynamic_metadata {
                 $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)
Removed from v.1.219  
changed lines
  Added in v.1.220

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