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

Diff for /loncom/interface/lonmeta.pm between versions 1.78 and 1.81

version 1.78, 2004/06/11 02:21:45 version 1.81, 2004/06/17 15:05:59
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',
                     'goto','goto_list',
                     'comefrom','comefrom_list',
                     'sequsage','sequsage_list',
                     'stdno','stdno_list',
                     '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 604  sub print_dynamic_metadata { Line 684  sub print_dynamic_metadata {
     $r->rflush();      $r->rflush();
     my %items=&fieldnames();      my %items=&fieldnames();
     my %dynmeta=&dynamicmeta($uri);      my %dynmeta=&dynamicmeta($uri);
     &Apache::lonnet::logthis('dynamic metadata keys:'.$/.  
                              join("\n",keys(%dynmeta)));  
     #      #
     # General Access and Usage Statistics      # General Access and Usage Statistics
     if (exists($dynmeta{'count'}) ||      if (exists($dynmeta{'count'}) ||
Line 752  sub print_dynamic_metadata { Line 830  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 770  sub print_dynamic_metadata { Line 848  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;
 }  }
   
Removed from v.1.78  
changed lines
  Added in v.1.81

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