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

Diff for /loncom/interface/lonmeta.pm between versions 1.221 and 1.227

version 1.221, 2008/12/13 21:10:14 version 1.227, 2009/03/21 21:37:13
Line 338  sub pre_select_course { Line 338  sub pre_select_course {
         &Apache::lonpublisher::metaeval($result);          &Apache::lonpublisher::metaeval($result);
     }      }
     $r->print('<hr /><form method="post" action="" >');      $r->print('<hr /><form method="post" action="" >');
     $r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, \'None\'','<tt>'.$res_uri.'</tt>').'</p>');      $r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, "None".','<tt>'.$res_uri.'</tt>').'</p>');
     $output = &select_course();      $output = &select_course();
     $r->print($output.'<br /><input type="submit" name="store" value="'.      $r->print($output.'<br /><input type="submit" name="store" value="'.
                   &mt('Associate Resource With Selected Course').'" />');                    &mt('Associate Resource With Selected Course').'" />');
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 556  sub selectbox { Line 556  sub selectbox {
     }      }
     my $selout='<select name="'.$name.'">';      my $selout='<select name="'.$name.'">';
     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>'.&{$functionref}($id).'</option>';
         } else {          } else {
Line 762  sub handler { Line 762  sub handler {
     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {
     ($resdomain,$resuser)=      ($resdomain,$resuser)=
  (&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);   (&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);
         $r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata',
  undef,   undef,
  {'domain' => $resdomain,}));   {'domain' => $resdomain,}));
         if ($env{'form.store'}) {          if ($env{'form.store'}) {
Line 781  sub handler { Line 781  sub handler {
             }              }
         }          }
     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
         $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata',
  undef,   undef,
  {'domain' => $resdomain,}));   {'domain' => $resdomain,}));
         &present_editable_metadata($r,$uri,'groups');              &present_editable_metadata($r,$uri,'groups');    
     } elsif ($uri=~m|^/~|) {       } elsif ($uri=~m|^/~|) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::start_page('Edit Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Metadata',
  "\n".'<script type="text/javascript">'."\n".   "\n".'<script type="text/javascript">'."\n".
                                                 &Apache::loncommon::browser_and_searcher_javascript().                                                  &Apache::loncommon::browser_and_searcher_javascript().
                                                 "\n".'</script>',                                                  "\n".'</script>',
Line 927  sub present_uneditable_metadata { Line 927  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 971  sub print_dynamic_metadata { Line 975  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 my $item ('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) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @counts);
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($item,$dynmeta{$item})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1001  sub print_dynamic_metadata { Line 1008  sub print_dynamic_metadata {
                      .&prettyprint('stdno',$dynmeta{'stdno'})                       .&prettyprint('stdno',$dynmeta{'stdno'})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure()
             );              );
             foreach my $item ('avetries','difficulty','disc') {              my @stats = ('avetries','difficulty','disc');
               my $rownum = 0;
               foreach my $item (@stats) {
                   my $lastrow = '';
                   $rownum ++;
                   $lastrow = 1 if ($rownum == @stats);
                 $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})                  $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                          .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))                           .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))
                          .&Apache::lonhtmlcommon::row_closure()                           .&Apache::lonhtmlcommon::row_closure($lastrow)
                 );                  );
             }              }
             $r->print(&Apache::lonhtmlcommon::end_pick_box());              $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1077  sub print_dynamic_metadata { Line 1089  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 my $item ('clear','depth','helpful','correct','technical') {          my @criteria = ('clear','depth','helpful','correct','technical');
           my $rownum = 0;
           foreach my $item (@criteria) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @criteria);
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($item,$dynmeta{$item})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1113  sub print_dynamic_metadata { Line 1130  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 my $name (sort(keys(%content))) {      my @names;
         if ($name!~/\.display$/) {      foreach my $key (sort(keys(%content))) {
           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) { 
Line 1135  sub print_dynamic_metadata { Line 1163  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());
Line 1439  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 1486  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.221  
changed lines
  Added in v.1.227

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