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

Diff for /loncom/interface/lonmeta.pm between versions 1.222 and 1.228

version 1.222, 2008/12/13 21:56:57 version 1.228, 2009/04/04 00:38: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="selected">'.&{$functionref}($id).'</option>';
         } else {          } else {
             $selout.='>'.&{$functionref}($id).'</option>';              $selout.='>'.&{$functionref}($id).'</option>';
         }          }
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 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.222  
changed lines
  Added in v.1.228

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