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

Diff for /loncom/interface/lonmeta.pm between versions 1.225 and 1.232

version 1.225, 2009/01/27 15:59:30 version 1.232, 2009/04/29 15:20:54
Line 432  sub prettyprint { Line 432  sub prettyprint {
     }      }
     # Title      # Title
     if ($type eq 'title') {      if ($type eq 'title') {
  return '<font size="+1" face="arial">'.$value.'</font>';   return $value;
     }      }
     # Dates      # Dates
     if (($type eq 'creationdate') ||      if (($type eq 'creationdate') ||
Line 482  sub prettyprint { Line 482  sub prettyprint {
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list') ||   ($type eq 'sequsage_list') ||
  ($type eq 'dependencies')) {   ($type eq 'dependencies')) {
  return '<font size="-1"><ul>'.join("\n",map {   return '<ul class="LC_fontsize_medium">'.join("\n",map {
             my $url = &Apache::lonnet::clutter_with_no_wrapper($_);              my $url = &Apache::lonnet::clutter_with_no_wrapper($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
Line 500  sub prettyprint { Line 500  sub prettyprint {
                 }                   } 
             }              }
             $_ = '<li>'.$title.' '.              $_ = '<li>'.$title.' '.
  &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).   &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat).
                 '</li>'                  '</li>'
     } split(/\s*\,\s*/,$value)).'</ul></font>';      } split(/\s*\,\s*/,$value)).'</ul>';
     }      }
     # Evaluations      # Evaluations
     if (($type eq 'clear') ||      if (($type eq 'clear') ||
Line 519  sub prettyprint { Line 519  sub prettyprint {
     # List of courses      # List of courses
     if ($type=~/\_list/) {      if ($type=~/\_list/) {
         my @Courses = split(/\s*\,\s*/,$value);          my @Courses = split(/\s*\,\s*/,$value);
         my $Str='<font size="-1"><ul>';          my $Str='<ul class="LC_fontsize_medium">';
  my %descriptions;   my %descriptions;
         foreach my $course (@Courses) {          foreach my $course (@Courses) {
             my %courseinfo =              my %courseinfo =
Line 538  sub prettyprint { Line 538  sub prettyprint {
     $Str .= $descriptions{$course};      $Str .= $descriptions{$course};
  }   }
   
  return $Str.'</ul></font>';   return $Str.'</ul>';
     }      }
     # No pretty print found      # No pretty print found
     return $value;      return $value;
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})) {
           $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
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.225  
changed lines
  Added in v.1.232

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