[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.227

version 1.225, 2009/01/27 15:59:30 version 1.227, 2009/03/21 21:37:13
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 1467  sub store_metadata { Line 1467  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 1514  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.227

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