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

Diff for /loncom/interface/lonmeta.pm between versions 1.79 and 1.90

version 1.79, 2004/06/16 14:30:15 version 1.90, 2005/02/01 17:37:23
Line 41  use Apache::lonmysql; Line 41  use Apache::lonmysql;
 use Apache::lonmsg;  use Apache::lonmsg;
   
   
   ############################################################
   ############################################################
   ##
   ## &get_dynamic_metadata_from_sql($url)
   ## 
   ## Queries sql database for dynamic metdata
   ## Returns a hash of hashes, with keys of urls which match $url
   ## Returned fields are given below.
   ##
   ## Examples:
   ## 
   ## %DynamicMetadata = &Apache::lonmeta::get_dynmaic_metadata_from_sql
   ##     ('/res/msu/korte/');
   ##
   ## $DynamicMetadata{'/res/msu/korte/example.problem'}->{$field}
   ##
   ############################################################
   ############################################################
   sub get_dynamic_metadata_from_sql {
       my ($url) = shift();
       my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:);
       if (! defined($authordom)) {
           $authordom = shift();
       }
       if  (! defined($author)) { 
           $author = shift();
       }
       if (! defined($authordom) || ! defined($author)) {
           return ();
       }
       my @Fields = ('url','count','course',
                     'goto','goto_list',
                     'comefrom','comefrom_list',
                     'sequsage','sequsage_list',
                     'stdno','stdno_list',
     'dependencies',
                     'avetries','avetries_list',
                     'difficulty','difficulty_list',
                     'disc','disc_list',
                     'clear','technical','correct',
                     'helpful','depth');
       #
       my $query = 'SELECT '.join(',',@Fields).
           ' FROM metadata WHERE url LIKE "'.$url.'%"';
       my $server = &Apache::lonnet::homeserver($author,$authordom);
       my $reply = &Apache::lonnet::metadata_query($query,undef,undef,
                                                   ,[$server]);
       return () if (! defined($reply) || ref($reply) ne 'HASH');
       my $filename = $reply->{$server};
       if (! defined($filename) || $filename =~ /^error/) {
           return ();
       }
       my $max_time = time + 10; # wait 10 seconds for results at most
       my %ReturnHash;
       #
       # Look for results
       my $finished = 0;
       while (! $finished && time < $max_time) {
           my $datafile=$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename;
           if (! -e "$datafile.end") { next; }
           my $fh;
           if (!($fh=Apache::File->new($datafile))) { next; }
           while (my $result = <$fh>) {
               chomp($result);
               next if (! $result);
               my @Data = 
                   map { 
                       &Apache::lonnet::unescape($_); 
                   } split(',',$result);
               my $url = $Data[0];
               for (my $i=0;$i<=$#Fields;$i++) {
                   $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];
               }
           }
           $finished = 1;
       }
       #
       return %ReturnHash;
   }
   
   
 # Fetch and evaluate dynamic metadata  # Fetch and evaluate dynamic metadata
 sub dynamicmeta {  sub dynamicmeta {
     my $url=&Apache::lonnet::declutter(shift);      my $url=&Apache::lonnet::declutter(shift);
Line 155  sub diffgraph { Line 236  sub diffgraph {
   
 # The field names  # The field names
 sub fieldnames {  sub fieldnames {
       my $file_type=shift;
       if ($file_type eq 'portfolio') {
       return &Apache::lonlocal::texthash
           (
            'title' => 'Title',
            'author' =>'Author(s)',
            'authorspace' => 'Author Space',
            'modifyinguser' => 'Last Modifying User',
            'subject' => 'Subject',
            'keywords' => 'Keyword(s)');
       } else {
     return &Apache::lonlocal::texthash      return &Apache::lonlocal::texthash
         (          (
          'title' => 'Title',           'title' => 'Title',
Line 175  sub fieldnames { Line 267  sub fieldnames {
          'owner' => 'Publisher/Owner',           'owner' => 'Publisher/Owner',
          'copyright' => 'Copyright/Distribution',           'copyright' => 'Copyright/Distribution',
          'customdistributionfile' => 'Custom Distribution File',           'customdistributionfile' => 'Custom Distribution File',
          'sourceavail' => 'Source Availible',           'sourceavail' => 'Source Available',
          'sourcerights' => 'Source Custom Distribution File',           'sourcerights' => 'Source Custom Distribution File',
          'obsolete' => 'Obsolete',           'obsolete' => 'Obsolete',
          'obsoletereplacement' => 'Suggested Replacement for Obsolete File',           'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
Line 197  sub fieldnames { Line 289  sub fieldnames {
          'stdno'      => 'Total number of students who have worked on this problem',           'stdno'      => 'Total number of students who have worked on this problem',
          'difficulty' => 'Degree of difficulty',           'difficulty' => 'Degree of difficulty',
          'disc'       => 'Degree of discrimination',           'disc'       => 'Degree of discrimination',
    'dependencies' => 'Resources used by this resource',
          );           );
           }
 }  }
   
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
 sub prettyprint {  sub prettyprint {
     my ($type,$value)=@_;      my ($type,$value,$target,$prefix,$form,$noformat)=@_;
   # $target,$prefix,$form are optional and for filecrumbs only
     if (! defined($value)) {       if (! defined($value)) { 
         return '&nbsp;';           return '&nbsp;'; 
     }      }
Line 257  sub prettyprint { Line 352  sub prettyprint {
  ($type eq 'obsoletereplacement') ||   ($type eq 'obsoletereplacement') ||
  ($type eq 'goto_list') ||   ($type eq 'goto_list') ||
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list')) {   ($type eq 'sequsage_list') ||
  return join('<br />',map {   ($type eq 'dependencies')) {
    return '<ul><font size="-1">'.join("\n",map {
             my $url = &Apache::lonnet::clutter($_);              my $url = &Apache::lonnet::clutter($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
Line 275  sub prettyprint { Line 371  sub prettyprint {
                     $title .= ' Syllabus';                      $title .= ' Syllabus';
                 }                   } 
             }              }
             $_ = '<b>'.$title.'</b> '.              $_ = '<li>'.$title.' '.
                 '<a href="'.$url.'" target="preview">'.   &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).
                 '<font size="-1">'.$url.'</font>'.                  '</li>'
                 '</a>'      } split(/\s*\,\s*/,$value)).'</ul></font>';
         } split(/\s*\,\s*/,$value));  
     }      }
     # Evaluations      # Evaluations
     if (($type eq 'clear') ||      if (($type eq 'clear') ||
Line 454  sub handler { Line 549  sub handler {
         $r->print(&Apache::loncommon::bodytag('Error Messages'));          $r->print(&Apache::loncommon::bodytag('Error Messages'));
         # Looking for all bombs?          # Looking for all bombs?
         &report_bombs($r,$uri);          &report_bombs($r,$uri);
       } elsif ($uri=~/\/portfolio\//) {
           $r->print(&Apache::loncommon::bodytag
             ('Edit Portfolio File Information','','','',$resdomain));
           &present_editable_metadata($r,$uri,'portfolio');
           
     } elsif ($uri=~/^\/\~/) {       } elsif ($uri=~/^\/\~/) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
Line 461  sub handler { Line 561  sub handler {
         &present_editable_metadata($r,$uri);          &present_editable_metadata($r,$uri);
     } else {      } else {
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
                   ('Catalog Information','','','',$resdomain));    ('Catalog Information','','','',$resdomain));
         &present_uneditable_metadata($r,$uri);          &present_uneditable_metadata($r,$uri);
     }      }
     $r->print('</body></html>');      $r->print('</body></html>');
Line 582  $disuri<br /> Line 682  $disuri<br />
 $obsoletewarning  $obsoletewarning
 $versiondisplay  $versiondisplay
 </p>  </p>
 <table cellspacing=2 border=0>  <table cellspacing="2" border="0">
 $table  $table
 </table>  </table>
 ENDHEAD  ENDHEAD
Line 612  sub print_dynamic_metadata { Line 712  sub print_dynamic_metadata {
         exists($dynmeta{'goto'}) ||          exists($dynmeta{'goto'}) ||
         exists($dynmeta{'course'})) {          exists($dynmeta{'course'})) {
         $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.          $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
                   '<table cellspacing=2 border=0>');                    '<table cellspacing="2" border="0">');
         foreach ('count',          foreach ('count',
                  'sequsage','sequsage_list',                   'sequsage','sequsage_list',
                  'comefrom','comefrom_list',                   'comefrom','comefrom_list',
Line 637  sub print_dynamic_metadata { Line 737  sub print_dynamic_metadata {
             $r->print('<h4>'.              $r->print('<h4>'.
                       &mt('Overall Assessment Statistical Data').                        &mt('Overall Assessment Statistical Data').
                       '</h4>'.                        '</h4>'.
                       '<table cellspacing=2 border=0>');                        '<table cellspacing="2" border="0">');
             $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.              $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.
                       '<td bgcolor="#CCCCCC">'.                        '<td bgcolor="#CCCCCC">'.
                       &prettyprint('stdno',$dynmeta{'stdno'}).                        &prettyprint('stdno',$dynmeta{'stdno'}).
Line 656  sub print_dynamic_metadata { Line 756  sub print_dynamic_metadata {
             $r->print('<h4>'.              $r->print('<h4>'.
                       &mt('Detailed Assessment Statistical Data').                        &mt('Detailed Assessment Statistical Data').
                       '</h4>');                        '</h4>');
             my $table = '<table cellspacing=2 border=0>'.              my $table = '<table cellspacing="2" border="0">'.
                 '<tr>'.                  '<tr>'.
                 '<th>Course</th>'.                  '<th>Course</th>'.
                 '<th>Section(s)</th>'.                  '<th>Section(s)</th>'.
Line 716  sub print_dynamic_metadata { Line 816  sub print_dynamic_metadata {
         exists($dynmeta{'correct'}) ||           exists($dynmeta{'correct'}) || 
         exists($dynmeta{'technical'})){           exists($dynmeta{'technical'})){ 
         $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.          $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
                   '<table cellspacing=2 border=0>');                    '<table cellspacing="2" border="0">');
         foreach ('clear','depth','helpful','correct','technical') {          foreach ('clear','depth','helpful','correct','technical') {
             $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.              $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
                       '<td bgcolor="#CCCCCC">'.                        '<td bgcolor="#CCCCCC">'.
Line 750  sub print_dynamic_metadata { Line 850  sub print_dynamic_metadata {
     # All other stuff      # All other stuff
     $r->print('<h3>'.      $r->print('<h3>'.
               &mt('Additional Metadata (non-standard, parameters, exports)').                &mt('Additional Metadata (non-standard, parameters, exports)').
               '</h3>');                '</h3><table border="0" cellspacing="1">');
     foreach (sort(keys(%content))) {      foreach (sort(keys(%content))) {
         my $name=$_;          my $name=$_;
         if ($name!~/\.display$/) {          if ($name!~/\.display$/) {
Line 768  sub print_dynamic_metadata { Line 868  sub print_dynamic_metadata {
                                                   $name.'.'.$_).'; ';                                                    $name.'.'.$_).'; ';
                 }                  }
             }              }
             $r->print('<b>'.$display.':</b> '.$content{$name});              $r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name});
             if ($otherinfo) {              if ($otherinfo) {
                 $r->print(' ('.$otherinfo.')');                  $r->print(' ('.$otherinfo.')');
             }              }
             $r->print("<br />\n");              $r->print("</font></td></tr>\n");
         }          }
     }      }
       $r->print("</table>");
     return;      return;
 }  }
   
Line 786  sub print_dynamic_metadata { Line 887  sub print_dynamic_metadata {
 #####################################################  #####################################################
 #####################################################  #####################################################
 sub present_editable_metadata {  sub present_editable_metadata {
     my ($r,$uri) = @_;      my ($r,$uri, $file_type) = @_;
     # Construction Space Call      # Construction Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
Line 821  ENDBOMBS Line 922  ENDBOMBS
                 &mt('Default Cataloging Information for Directory').' '.                  &mt('Default Cataloging Information for Directory').' '.
                 $dir;                  $dir;
         }          }
         my $bodytag=  
             &Apache::loncommon::bodytag('Edit Catalog Information');  
         %Apache::lonpublisher::metadatafields=();          %Apache::lonpublisher::metadatafields=();
         %Apache::lonpublisher::metadatakeys=();          %Apache::lonpublisher::metadatakeys=();
         &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));          &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));
         $r->print(<<ENDEDIT);          $r->print(<<ENDEDIT);
 <html><head><title>Edit Catalog Information</title></head>  
 $bodytag  
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
 ENDEDIT  ENDEDIT
         $r->print('<script language="JavaScript">'.          $r->print('<script language="JavaScript">'.
                   &Apache::loncommon::browser_and_searcher_javascript.                    &Apache::loncommon::browser_and_searcher_javascript().
                   '</script>');                    '</script>');
         my %lt=&fieldnames();          my %lt=&fieldnames($file_type);
         foreach ('author','title','subject','keywords','abstract','notes',   my $output;
    my @fields;
    if ($file_type eq 'portfolio') {
       @fields =  ('author','title','subject','keywords');
    } else {
       @fields = ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',                   'copyright','customdistributionfile','language',
                  'standards',                   'standards',
                  'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',                   'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
                  'obsolete','obsoletereplacement') {                   'obsolete','obsoletereplacement');
           }
           foreach (@fields) {
             if (defined($ENV{'form.new_'.$_})) {              if (defined($ENV{'form.new_'.$_})) {
                 $Apache::lonpublisher::metadatafields{$_}=                  $Apache::lonpublisher::metadatafields{$_}=
                     $ENV{'form.new_'.$_};                      $ENV{'form.new_'.$_};
Line 849  ENDEDIT Line 953  ENDEDIT
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
                     'default';                      'default';
             }              }
             $r->print('<p>'.$lt{$_}.': '.              $output.=('<p>'.$lt{$_}.': '.
                       &prettyinput                        &prettyinput($_,
                       ($_,$Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$_},
                        'new_'.$_,'defaultmeta').'</p>');     'new_'.$_,'defaultmeta').'</p>');
         }          }
         if ($ENV{'form.store'}) {          if ($ENV{'form.store'}) {
             my $mfh;              my $mfh;
             if (!  ($mfh=Apache::File->new('>'.$fn))) {              if (!  ($mfh=Apache::File->new('>'.$fn))) {
                 $r->print('<p><font color=red>'.                  $r->print('<p><font color="red">'.
                           &mt('Could not write metadata').', '.                            &mt('Could not write metadata').', '.
                           &mt('FAIL').'</font>');                            &mt('FAIL').'</font></p>');
             } else {              } else {
                 foreach (sort keys %Apache::lonpublisher::metadatafields) {                  foreach (sort keys %Apache::lonpublisher::metadatafields) {
                     next if ($_ =~ /\./);                      next if ($_ =~ /\./);
Line 882  ENDEDIT Line 986  ENDEDIT
                          '<>&"').                           '<>&"').
                          '</'.$tag.'>';                           '</'.$tag.'>';
                 }                  }
                 $r->print('<p>'.&mt('Wrote Metadata'));                  $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
     ' '.&Apache::lonlocal::locallocaltime(time).
     '</font></p>');
             }              }
         }          }
         $r->print('<br /><input type="submit" name="store" value="'.   $r->print($output.'<br /><input type="submit" name="store" value="'.
                   &mt('Store Catalog Information').'">');                    &mt('Store Catalog Information').'">');
     }      }
     $r->print('</form>');      $r->print('</form>');
Removed from v.1.79  
changed lines
  Added in v.1.90

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