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

Diff for /loncom/interface/lonmeta.pm between versions 1.45 and 1.132

version 1.45, 2003/12/29 15:10:54 version 1.132, 2005/11/22 19:43:53
Line 17 Line 17
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.  # GNU General Public License for more details.
 #  #
 # You should have received a copy of the GNU General Public License  # You should have received a copy of the GNU General Public License 
 # along with LON-CAPA; if not, write to the Free Software  # along with LON-CAPA; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #  #
Line 29 Line 29
 package Apache::lonmeta;  package Apache::lonmeta;
   
 use strict;  use strict;
   use LONCAPA::lonmetadata();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon(); 
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonpublisher;  use Apache::lonpublisher;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmysql;  use Apache::lonmysql;
   use Apache::lonmsg;
   
 # MySQL table columns  
   
 my @columns;  ############################################################
   ############################################################
   ##
   ## &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);
     $url=~s/\.meta$//;      $url=~s/\.meta$//;
Line 52  sub dynamicmeta { Line 132  sub dynamicmeta {
     $regexp='___'.$regexp.'___';      $regexp='___'.$regexp.'___';
     my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,      my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
        $aauthor,$regexp);         $aauthor,$regexp);
     my %sum=();      my %DynamicData = &LONCAPA::lonmetadata::process_reseval_data(\%evaldata);
     my %cnt=();      my %Data = &LONCAPA::lonmetadata::process_dynamic_metadata($url,
     my %concat=();                                                                 \%DynamicData);
     my %listitems=(  
                    'course'       => 'add',  
                    'goto'         => 'add',  
                    'comefrom'     => 'add',  
                    'avetries'     => 'avg',  
                    'stdno'        => 'add',  
                    'difficulty'   => 'avg',  
                    'clear'        => 'avg',  
                    'technical'    => 'avg',  
                    'helpful'      => 'avg',  
                    'correct'      => 'avg',  
                    'depth'        => 'avg',  
                    'comments'     => 'app',  
                    'usage'        => 'cnt'  
                    );  
     while ($_=each(%evaldata)) {  
  my ($item,$purl,$cat)=split(/___/,$_);  
  ### Apache->request->print("\n".$_.' - '.$item.'<br />');  
  if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; }  
         unless ($listitems{$cat} eq 'app') {  
             if (defined($sum{$cat})) {  
                $sum{$cat}+=$evaldata{$_};  
                $concat{$cat}.=','.$item;  
     } else {  
                $sum{$cat}=$evaldata{$_};  
                $concat{$cat}=$item;  
     }  
         } else {  
             if (defined($sum{$cat})) {  
                if ($evaldata{$_}) {  
                   $sum{$cat}.='<hr>'.$evaldata{$_};  
        }  
      } else {  
        $sum{$cat}=''.$evaldata{$_};  
     }  
  }  
     }  
     my %returnhash=();  
     while ($_=each(%cnt)) {  
        if ($listitems{$_} eq 'avg') {  
    $returnhash{$_}=int(($sum{$_}/$cnt{$_})*100.0+0.5)/100.0;  
        } elsif ($listitems{$_} eq 'cnt') {  
            $returnhash{$_}=$cnt{$_};  
        } else {  
            $returnhash{$_}=$sum{$_};  
        }  
        $returnhash{$_.'_list'}=$concat{$_};  
        ### Apache->request->print("\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'});  
     }  
     #      #
     # Deal with 'count' seperately      # Deal with 'count' separately
     $returnhash{'count'} = &access_count($url,$aauthor,$adomain);      $Data{'count'} = &access_count($url,$aauthor,$adomain);
       #
     return %returnhash;      # Debugging code I will probably need later
       if (0) {
           &Apache::lonnet::logthis('Dynamic Metadata');
           while(my($k,$v)=each(%Data)){
               &Apache::lonnet::logthis('    "'.$k.'"=>"'.$v.'"');
           }
           &Apache::lonnet::logthis('-------------------');
       }
       return %Data;
 }  }
   
 sub access_count {  sub access_count {
Line 116  sub access_count { Line 155  sub access_count {
     my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,      my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,
                                         $author,$src);                                          $author,$src);
     if (! exists($countdata{$src})) {      if (! exists($countdata{$src})) {
         return 'Not Available';          return &mt('Not Available');
     } else {      } else {
         return $countdata{$src};          return $countdata{$src};
     }      }
 }  }
   
 # ------------------------------------- Try to make an alt tag if there is none  # Try to make an alt tag if there is none
   
 sub alttag {  sub alttag {
     my ($base,$src)=@_;      my ($base,$src)=@_;
     my $fullpath=&Apache::lonnet::hreflocation($base,$src);      my $fullpath=&Apache::lonnet::hreflocation($base,$src);
     my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.      my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
                &Apache::lonnet::metadata($fullpath,'subject').' '.          &Apache::lonnet::metadata($fullpath,'subject').' '.
                &Apache::lonnet::metadata($fullpath,'abstract');          &Apache::lonnet::metadata($fullpath,'abstract');
     $alttag=~s/\s+/ /gs;      $alttag=~s/\s+/ /gs;
     $alttag=~s/\"//gs;      $alttag=~s/\"//gs;
     $alttag=~s/\'//gs;      $alttag=~s/\'//gs;
     $alttag=~s/\s+$//gs;      $alttag=~s/\s+$//gs;
     $alttag=~s/^\s+//gs;      $alttag=~s/^\s+//gs;
     if ($alttag) { return $alttag; } else       if ($alttag) { 
                  { return 'No information available'; }          return $alttag; 
       } else { 
           return &mt('No information available'); 
       }
 }  }
   
 # -------------------------------------------------------------- Author display  # Author display
   
 sub authordisplay {  sub authordisplay {
     my ($aname,$adom)=@_;      my ($aname,$adom)=@_;
     return &Apache::loncommon::aboutmewrapper(      return &Apache::loncommon::aboutmewrapper
                 &Apache::loncommon::plainname($aname,$adom),          (&Apache::loncommon::plainname($aname,$adom),
                     $aname,$adom).' <tt>['.$aname.'@'.$adom.']</tt>';           $aname,$adom,'preview').' <tt>['.$aname.'@'.$adom.']</tt>';
 }  }
   
 # -------------------------------------------------------------- Pretty display  # Pretty display
   
 sub evalgraph {  sub evalgraph {
     my $value=shift;      my $value=shift;
     unless ($value) { return ''; }      if (! $value) { 
           return '';
       }
     my $val=int($value*10.+0.5)-10;      my $val=int($value*10.+0.5)-10;
     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';      my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>';
     if ($val>=20) {      if ($val>=20) {
  $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';   $output.='<td width="20" bgcolor="#555555">&nbsp&nbsp;</td>';
     } else {      } else {
         $output.='<td width='.($val).' bgcolor="#555555">&nbsp;</td>'.          $output.='<td width="'.($val).'" bgcolor="#555555">&nbsp;</td>'.
                  '<td width='.(20-$val).' bgcolor="#FF3333">&nbsp;</td>';                   '<td width="'.(20-$val).'" bgcolor="#FF3333">&nbsp;</td>';
     }      }
     $output.='<td bgcolor="#FFFF33">&nbsp;</td>';      $output.='<td bgcolor="#FFFF33">&nbsp;</td>';
     if ($val>20) {      if ($val>20) {
  $output.='<td width='.($val-20).' bgcolor="#33FF33">&nbsp;</td>'.   $output.='<td width="'.($val-20).'" bgcolor="#33FF33">&nbsp;</td>'.
                  '<td width='.(40-$val).' bgcolor="#555555">&nbsp;</td>';                   '<td width="'.(40-$val).'" bgcolor="#555555">&nbsp;</td>';
     } else {      } else {
        $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';          $output.='<td width="20" bgcolor="#555555">&nbsp&nbsp;</td>';
     }      }
     $output.='<td> ('.$value.') </td></tr></table>';      $output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';
     return $output;      return $output;
 }  }
   
 sub diffgraph {  sub diffgraph {
     my $value=shift;      my $value=shift;
     unless ($value) { return ''; }      if (! $value) { 
           return '';
       }
     my $val=int(40.0*$value+0.5);      my $val=int(40.0*$value+0.5);
     my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',      my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
                 '#BBDD33','#CCCC33','#DDBB33','#EEAA33');                  '#BBDD33','#CCCC33','#DDBB33','#EEAA33');
     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';      my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>';
     for (my $i=0;$i<8;$i++) {      for (my $i=0;$i<8;$i++) {
  if ($val>$i*5) {   if ($val>$i*5) {
             $output.='<td width=5 bgcolor="'.$colors[$i].'">&nbsp;</td>';              $output.='<td width="5" bgcolor="'.$colors[$i].'">&nbsp;</td>';
         } else {          } else {
     $output.='<td width=5 bgcolor="#555555">&nbsp;</td>';      $output.='<td width="5" bgcolor="#555555">&nbsp;</td>';
  }   }
     }      }
     $output.='<td> ('.$value.') </td></tr></table>';      $output.='<td> ('.sprintf("%3.2f",$value).') </td></tr></table>';
     return $output;      return $output;
 }  }
   
 # ==================================================== Turn MySQL row into hash  
   
 sub metadata_col_to_hash {  # The field names
     my @cols=@_;  sub fieldnames {
     my %hash=();      my $file_type=shift;
     for (my $i=0; $i<=$#columns; $i++) {      my %fields = 
  $hash{$columns[$i]}=$cols[$i];          ('title' => 'Title',
            'author' =>'Author(s)',
            'authorspace' => 'Author Space',
            'modifyinguser' => 'Last Modifying User',
            'subject' => 'Subject',
            'keywords' => 'Keyword(s)',
            'notes' => 'Notes',
            'abstract' => 'Abstract',
            'lowestgradelevel' => 'Lowest Grade Level',
            'highestgradelevel' => 'Highest Grade Level',
            'courserestricted' => 'Course Restricting Metadata');
            
       if (! defined($file_type) || $file_type ne 'portfolio') {
           %fields = 
           (%fields,
            'domain' => 'Domain',
            'standards' => 'Standards',
            'mime' => 'MIME Type',
            'language' => 'Language',
            'creationdate' => 'Creation Date',
            'lastrevisiondate' => 'Last Revision Date',
            'owner' => 'Publisher/Owner',
            'copyright' => 'Copyright/Distribution',
            'customdistributionfile' => 'Custom Distribution File',
            'sourceavail' => 'Source Available',
            'sourcerights' => 'Source Custom Distribution File',
            'obsolete' => 'Obsolete',
            'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
            'count'      => 'Network-wide number of accesses (hits)',
            'course'     => 'Network-wide number of courses using resource',
            'course_list' => 'Network-wide courses using resource',
            'sequsage'      => 'Number of resources using or importing resource',
            'sequsage_list' => 'Resources using or importing resource',
            'goto'       => 'Number of resources that follow this resource in maps',
            'goto_list'  => 'Resources that follow this resource in maps',
            'comefrom'   => 'Number of resources that lead up to this resource in maps',
            'comefrom_list' => 'Resources that lead up to this resource in maps',
            'clear'      => 'Material presented in clear way',
            'depth'      => 'Material covered with sufficient depth',
            'helpful'    => 'Material is helpful',
            'correct'    => 'Material appears to be correct',
            'technical'  => 'Resource is technically correct', 
            'avetries'   => 'Average number of tries till solved',
            'stdno'      => 'Total number of students who have worked on this problem',
            'difficulty' => 'Degree of difficulty',
            'disc'       => 'Degree of discrimination',
    'dependencies' => 'Resources used by this resource',
            );
     }      }
     return %hash;      return &Apache::lonlocal::texthash(%fields);
 }  }
   
 # ============================================================= The field names  sub select_course {
       my ($r)=@_;
       my %courses;
       foreach my $key (keys (%env)) { 
           if ($key =~ m/\.metadata\./) {
               $key =~ m/^course\.(.+)(\.metadata.+$)/;
               my $course = $1;
               my $coursekey = 'course.'.$course.'.description';
               my $value = $env{$coursekey};
               $courses{$coursekey} = $value;
           }
       }
       $r->print('<h3>Course Related Meta-Data</h3><br />');
       $r->print('<form action="" method="post">');
       $r->print('Select course restrictions<br />');
       $r->print('<select name="metacourse" >');
       my $meta_not_found = 1;
       foreach my $key (keys (%courses)) {    
           if ($meta_not_found) {
               undef($meta_not_found);
               $r->print('<h3>Portfolio Meta-Data</h3><br />');
               $r->print('<form action="" method="post">');
               $r->print('Select your course<br />');
               $r->print('<select name="metacourse" >');
           }
           $key =~ m/(^.+)\.description$/;
           $r->print('<option value="'.$1.'">');
           $r->print($courses{$key});
           $r->print('</option>');
       }
       unless ($meta_not_found) {
           $r->print('</select><br />');
           $r->print('<input type="submit" value="Assign Portfolio Metadata" />');
           $r->print('</form>');
       }
       return 'ok';
   }
   # Pretty printing of metadata field
   
 sub fieldnames {  sub prettyprint {
     return &Apache::lonlocal::texthash(      my ($type,$value,$target,$prefix,$form,$noformat)=@_;
    'title' => 'Title',  # $target,$prefix,$form are optional and for filecrumbs only
    'author' =>'Author(s)',      if (! defined($value)) { 
    'subject' => 'Subject',          return '&nbsp;'; 
    'keywords' => 'Keyword(s)',      }
    'notes' => 'Notes',      # Title
    'abstract' => 'Abstract',      if ($type eq 'title') {
                                    'lowestgradelevel' => 'Lowest Grade Level',   return '<font size="+1" face="arial">'.$value.'</font>';
                                    'highestgradelevel' => 'Highest Grade Level',      }
                                    'standards' => 'Standards',      # Dates
    'mime' => 'MIME Type',      if (($type eq 'creationdate') ||
    'language' => 'Language',   ($type eq 'lastrevisiondate')) {
    'creationdate' => 'Creation Date',   return ($value?&Apache::lonlocal::locallocaltime(
    'lastrevisiondate' => 'Last Revision Date',    &Apache::lonmysql::unsqltime($value)):
    'owner' => 'Publisher/Owner',   &mt('not available'));
                                    'copyright' => 'Copyright/Distribution',      }
    'customdistributionfile' => 'Custom Distribution File',      # Language
                                    'obsolete' => 'Obsolete',      if ($type eq 'language') {
    'obsoletereplacement' => 'Suggested Replacement for Obsolete File',   return &Apache::loncommon::languagedescription($value);
    'count'      => 'Network-wide number of accesses (hits)',      }
    'course'     => 'Network-wide number of courses using resource',      # Copyright
    'usage'      => 'Number of resources using or importing resource',      if ($type eq 'copyright') {
    'goto'       => 'Number of resources that follow this resource in maps',   return &Apache::loncommon::copyrightdescription($value);
    'comefrom'   => 'Number of resources that lead up to this resource in maps',      }
    'clear'      => 'Material presented in clear way',      # Copyright
    'depth'      => 'Material covered with sufficient depth',      if ($type eq 'sourceavail') {
    'helpful'    => 'Material is helpful',   return &Apache::loncommon::source_copyrightdescription($value);
    'correct'    => 'Material appears to be correct',      }
    'technical'  => 'Resource is technically correct',       # MIME
    'avetries'   => 'Average number of tries till solved',      if ($type eq 'mime') {
    'stdno'      => 'Total number of students who have worked on this problem',          return '<img src="'.&Apache::loncommon::icon($value).'" />&nbsp;'.
    'difficulty' => 'Degree of difficulty'              &Apache::loncommon::filedescription($value);
        );      }
       # Person
       if (($type eq 'author') || 
    ($type eq 'owner') ||
    ($type eq 'modifyinguser') ||
    ($type eq 'authorspace')) {
    $value=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;
    return $value;
       }
       # Gradelevel
       if (($type eq 'lowestgradelevel') ||
    ($type eq 'highestgradelevel')) {
    return &Apache::loncommon::gradeleveldescription($value);
       }
       # Only for advance users below
       if (! $env{'user.adv'}) { 
           return '<i>- '.&mt('not displayed').' -</i>';
       }
       # File
       if (($type eq 'customdistributionfile') ||
    ($type eq 'obsoletereplacement') ||
    ($type eq 'goto_list') ||
    ($type eq 'comefrom_list') ||
    ($type eq 'sequsage_list') ||
    ($type eq 'dependencies')) {
    return '<ul><font size="-1">'.join("\n",map {
               my $url = &Apache::lonnet::clutter($_);
               my $title = &Apache::lonnet::gettitle($url);
               if ($title eq '') {
                   $title = 'Untitled';
                   if ($url =~ /\.sequence$/) {
                       $title .= ' Sequence';
                   } elsif ($url =~ /\.page$/) {
                       $title .= ' Page';
                   } elsif ($url =~ /\.problem$/) {
                       $title .= ' Problem';
                   } elsif ($url =~ /\.html$/) {
                       $title .= ' HTML document';
                   } elsif ($url =~ m:/syllabus$:) {
                       $title .= ' Syllabus';
                   } 
               }
               $_ = '<li>'.$title.' '.
    &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).
                   '</li>'
       } split(/\s*\,\s*/,$value)).'</ul></font>';
       }
       # Evaluations
       if (($type eq 'clear') ||
    ($type eq 'depth') ||
    ($type eq 'helpful') ||
    ($type eq 'correct') ||
    ($type eq 'technical')) {
    return &evalgraph($value);
       }
       # Difficulty
       if ($type eq 'difficulty' || $type eq 'disc') {
    return &diffgraph($value);
       }
       # List of courses
       if ($type=~/\_list/) {
           my @Courses = split(/\s*\,\s*/,$value);
           my $Str;
           foreach my $course (@Courses) {
               my %courseinfo = &Apache::lonnet::coursedescription($course);
               if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
                   next;
               }
               if ($Str ne '') { $Str .= '<br />'; }
               $Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'.
                   $courseinfo{'num'}.'/syllabus" target="preview">'.
                   $courseinfo{'description'}.'</a>';
           }
    return $Str;
       }
       # No pretty print found
       return $value;
 }  }
 # ================================================================ Main Handler  
   
 sub handler {  # Pretty input of metadata field
   my $r=shift;  sub direct {
       return shift;
   }
   
     my $loaderror=&Apache::lonnet::overloaderror($r);  sub selectbox {
     if ($loaderror) { return $loaderror; }      my ($name,$value,$functionref,@idlist)=@_;
       if (! defined($functionref)) {
           $functionref=\&direct;
       }
       my $selout='<select name="'.$name.'">';
       foreach (@idlist) {
           $selout.='<option value=\''.$_.'\'';
           if ($_ eq $value) {
       $selout.=' selected>'.&{$functionref}($_).'</option>';
    }
           else {$selout.='>'.&{$functionref}($_).'</option>';}
       }
       return $selout.'</select>';
   }
   
   sub relatedfield {
       my ($show,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue)=@_;
       if (! $relatedsearchflag) { 
           return '';
       }
       if (! defined($relatedsep)) {
           $relatedsep=' ';
       }
       if (! $show) {
           return $relatedsep.'&nbsp;';
       }
       return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
    ($relatedvalue?' checked="1"':'').' />';
   }
   
     my $uri=$r->uri;  sub prettyinput {
       my ($type,$value,$fieldname,$formname,
    $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
       if (! defined($size)) {
           $size = 80;
       }
       my $output;
       if (defined($course_key)) {
           my $stu_add;
           my $only_one;
           my %meta_options;
           my @cur_values_inst;
           my $cur_values_stu;
           my $values = $env{$course_key.'.metadata.'.$type.'.values'};
           if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/stuadd/) {
               $stu_add = 'true';
           }
           if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/onlyone/) {
               $only_one = 'true';
           }
           # need to take instructor values out of list where instructor and student
           # values may be mixed.
           if ($values && $stu_add) {
               foreach my $item (split(/,/,$values)) {
                   $item =~ s/^\s+//;
                   $meta_options{$item} = $type;
               }
               foreach my $item (split(/,/,$value)) {
                   $item =~ s/^\s+//;
                   if ($meta_options{$item}) {
                       push(@cur_values_inst,$item);
                   } else {
                       $cur_values_stu .= $item.',';
                   }
               }
           } else {
               $cur_values_stu = $value;
           }
           if ($type eq 'courserestricted') {
               return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
           }
           if (($type eq 'keywords') || ($type eq 'subject')
                || ($type eq 'author')||($type eq  'notes')
                || ($type eq  'abstract')|| ($type eq  'title')) {
               if ($values) {
                   if ($only_one) {
                       $output .= (&Apache::loncommon::select_form($value,'new_'.$type,%meta_options));
                   } else {
                       $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
                   }
               }
               if ($stu_add) {
                   $output .= '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
                   'value="'.$cur_values_stu.'" />'.
                   &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
                         $relatedvalue); 
               }
               return ($output);
           }
           if (($type eq 'lowestgradelevel') ||
       ($type eq 'highestgradelevel')) {
       return &Apache::loncommon::select_level_form($value,$fieldname).
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
           }
           return(); 
       }
       # Language
       if ($type eq 'language') {
    return &selectbox($fieldname,
     $value,
     \&Apache::loncommon::languagedescription,
     (&Apache::loncommon::languageids)).
                                 &relatedfield(0,$relatedsearchflag,$relatedsep);
       }
       # Copyright
       if ($type eq 'copyright') {
    return &selectbox($fieldname,
     $value,
     \&Apache::loncommon::copyrightdescription,
     (&Apache::loncommon::copyrightids)).
                                 &relatedfield(0,$relatedsearchflag,$relatedsep);
       }
       # Source Copyright
       if ($type eq 'sourceavail') {
    return &selectbox($fieldname,
     $value,
     \&Apache::loncommon::source_copyrightdescription,
     (&Apache::loncommon::source_copyrightids)).
                                 &relatedfield(0,$relatedsearchflag,$relatedsep);
       }
       # Gradelevels
       if (($type eq 'lowestgradelevel') ||
    ($type eq 'highestgradelevel')) {
    return &Apache::loncommon::select_level_form($value,$fieldname).
               &relatedfield(0,$relatedsearchflag,$relatedsep);
       }
       # Obsolete
       if ($type eq 'obsolete') {
    return '<input type="checkbox" name="'.$fieldname.'"'.
       ($value?' checked="1"':'').' />'.
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
       }
       # Obsolete replacement file
       if ($type eq 'obsoletereplacement') {
    return '<input type="text" name="'.$fieldname.
       '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
       "('".$formname."','".$fieldname."'".
       ",'')\">".&mt('Select').'</a>'.
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
       }
       # Customdistribution file
       if ($type eq 'customdistributionfile') {
    return '<input type="text" name="'.$fieldname.
       '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
       "('".$formname."','".$fieldname."'".
       ",'rights')\">".&mt('Select').'</a>'.
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
       }
       # Source Customdistribution file
       if ($type eq 'sourcerights') {
    return '<input type="text" name="'.$fieldname.
       '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
       "('".$formname."','".$fieldname."'".
       ",'rights')\">".&mt('Select').'</a>'.
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
       }
       # Dates
       if (($type eq 'creationdate') ||
    ($type eq 'lastrevisiondate')) {
    return 
               &Apache::lonhtmlcommon::date_setter($formname,$fieldname,$value).
               &relatedfield(0,$relatedsearchflag,$relatedsep);
       }
       # No pretty input found
       $value=~s/^\s+//gs;
       $value=~s/\s+$//gs;
       $value=~s/\s+/ /gs;
       $value=~s/\"/\&quot\;/gs;
       return 
           '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
           'value="'.$value.'" />'.
           &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
                         $relatedvalue); 
   }
   
   unless ($uri=~/^\/\~/) {   # Main Handler
 # =========================================== This is not in construction space  sub handler {
       my $r=shift;
       #
       my $uri=$r->uri;
       #
       # Set document type
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       return OK if $r->header_only;
       #
     my ($resdomain,$resuser)=      my ($resdomain,$resuser)=
            (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);          (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
       my $html=&Apache::lonxml::xmlbegin();
     $loaderror=      $r->print($html.'<head><title>'.
        &Apache::lonnet::overloaderror($r,                'Catalog Information'.
          &Apache::lonnet::homeserver($resuser,$resdomain));                '</title></head>');
     if ($loaderror) { return $loaderror; }      if ($uri=~m:/adm/bombs/(.*)$:) {
           $r->print(&Apache::loncommon::bodytag('Error Messages'));
   my %content=();          # Looking for all bombs?
           &report_bombs($r,$uri);
 # ----------------------------------------------------------- Set document type      } elsif ($uri=~/\/portfolio\//) {
    ($resdomain,$resuser)=
   &Apache::loncommon::content_type($r,'text/html');      (&Apache::lonnet::declutter($uri)=~m|^(\w+)/(\w+)/portfolio|);
   $r->send_http_header;          $r->print(&Apache::loncommon::bodytag
             ('Edit Portfolio File Information','','','',$resdomain));
   return OK if $r->header_only;          &present_editable_metadata($r,$uri,'portfolio');
           &select_course($r);
 # ------------------------------------------------------------------- Read file      } elsif ($uri=~/^\/\~/) { 
   foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {          # Construction space
       $content{$_}=&Apache::lonnet::metadata($uri,$_);          $r->print(&Apache::loncommon::bodytag
   }                    ('Edit Catalog Information','','','',$resdomain));
 # ------------------------------------------------------------------ Hide stuff          &present_editable_metadata($r,$uri);
       } else {
           $r->print(&Apache::loncommon::bodytag
     ('Catalog Information','','','',$resdomain));
           &present_uneditable_metadata($r,$uri);
       }
       $r->print('</body></html>');
       return OK;
   }
   
   unless ($ENV{'user.adv'}) {  #####################################################
       foreach ('keywords','notes','abstract','subject') {  #####################################################
           $content{$_}='<i>- '.&mt('not displayed').' -</i>';  ###                                               ###
       }  ###                Report Bombs                   ###
   }  ###                                               ###
   #####################################################
   #####################################################
   sub report_bombs {
       my ($r,$uri) = @_;
       # Set document type
       $uri =~ s:/adm/bombs/::;
       $uri = &Apache::lonnet::declutter($uri);
       $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
       my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);
       if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
    if ($env{'form.clearbombs'}) {
       &Apache::lonmsg::clear_author_res_msg($uri);
    }
           my $clear=&mt('Clear all Messages in Subdirectory');
    $r->print(<<ENDCLEAR);
   <form method="post">
   <input type="submit" name="clearbombs" value="$clear" />
   </form>
   ENDCLEAR
           my %brokenurls = 
               &Apache::lonmsg::all_url_author_res_msg($author,$domain);
           foreach (sort(keys(%brokenurls))) {
               if ($_=~/^\Q$uri\E/) {
                   $r->print
                       ('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'.
                        &Apache::lonmsg::retrieve_author_res_msg($_).
                        '<hr />');
               }
           }
       } else {
           $r->print(&mt('Not authorized'));
       }
       return;
   }
   
 # --------------------------------------------------------------- Render Output  #####################################################
   #####################################################
   ###                                               ###
   ###        Uneditable Metadata Display            ###
   ###                                               ###
   #####################################################
   #####################################################
   sub present_uneditable_metadata {
       my ($r,$uri) = @_;
       #
       my %content=();
       # Read file
       foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
           $content{$_}=&Apache::lonnet::metadata($uri,$_);
       }
       # Render Output
       # displayed url
     my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);      my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
     $content{'creationdate'}=&Apache::lonlocal::locallocaltime(      $uri=~s/\.meta$//;
  &Apache::lonmysql::unsqltime($content{'creationdate'}));      my $disuri=&Apache::lonnet::clutter($uri);
     $content{'lastrevisiondate'}=&Apache::lonlocal::locallocaltime(      # version
  &Apache::lonmysql::unsqltime($content{'lastrevisiondate'}));  
     $content{'language'}=&Apache::loncommon::languagedescription($content{'language'});  
     $content{'mime'}=&Apache::loncommon::filedescription($content{'mime'});   
     my $disuri=&Apache::lonnet::declutter($uri);  
     $disuri=~s/\.meta$//;  
     my $currentversion=&Apache::lonnet::getversion($disuri);      my $currentversion=&Apache::lonnet::getversion($disuri);
     my $author=$content{'author'};  
     $content{'author'}=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;  
     $content{'owner'}=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;  
     my $versiondisplay='';      my $versiondisplay='';
     if ($thisversion) {      if ($thisversion) {
  $versiondisplay=&mt('Version').': '.$thisversion.          $versiondisplay=&mt('Version').': '.$thisversion.
     ' ('.&mt('most recent version').': '.$currentversion.')';              ' ('.&mt('most recent version').': '.
               ($currentversion>0 ? 
                $currentversion   :
                &mt('information not available')).')';
     } else {      } else {
  $versiondisplay='Version: '.$currentversion;          $versiondisplay='Version: '.$currentversion;
     }  
     if ($content{'customdistributionfile'}) {  
  $content{'customdistributionfile'}='<a href="'.$content{'customdistributionfile'}.  
     '"><tt>'.$content{'customdistributionfile'}.'</tt></a>';  
     } else {  
  $content{'customdistributionfile'}='';  
     }      }
       # crumbify displayed URL               uri     target prefix form  size
       $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');
       $disuri =~ s:<br />::g;
       # obsolete
     my $obsolete=$content{'obsolete'};      my $obsolete=$content{'obsolete'};
     my $obsoletewarning='';      my $obsoletewarning='';
     if (($obsolete) && ($ENV{'user.adv'})) {      if (($obsolete) && ($env{'user.adv'})) {
  $obsoletewarning='<p><font color="red">'.          $obsoletewarning='<p><font color="red">'.
     &mt('This resource has been marked obsolete by the author(s)').'</font></p>';              &mt('This resource has been marked obsolete by the author(s)').
               '</font></p>';
     }      }
       #
     my %lt=&fieldnames();      my %lt=&fieldnames();
     my $table='';      my $table='';
     my $bodytag=&Apache::loncommon::bodytag      my $title = $content{'title'};
             ('Catalog Information','','','',$resdomain);      if (! defined($title)) {
           $title = 'Untitled Resource';
       }
     foreach ('title',       foreach ('title', 
      'author',                'author', 
      'subject',                'subject', 
      'keywords',                'keywords', 
      'notes',                'notes', 
      'abstract',                'abstract',
      'mime',                'lowestgradelevel',
      'language',                'highestgradelevel',
      'creationdate',                'standards', 
      'lastrevisiondate',                'mime', 
      'owner',                'language', 
      'copyright',                'creationdate', 
      'customdistributionfile',                'lastrevisiondate', 
      'obsolete',                'owner', 
      'obsoletereplacement') {               'copyright', 
  $table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}.               'customdistributionfile',
         '</td><td bgcolor="#CCCCCC">'.               'sourceavail',
                 $content{$_}.'&nbsp;</td></tr>';               'sourcerights', 
  delete $content{$_};               'obsolete', 
     }               'obsoletereplacement') {
           $table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}.
   $r->print(<<ENDHEAD);              '</td><td bgcolor="#CCCCCC">'.
 <html><head><title>Catalog Information</title></head>              &prettyprint($_,$content{$_}).'</td></tr>';
 $bodytag          delete $content{$_};
 <h2>$content{'title'}</h2>      }
 <h3><tt>$disuri</tt></h3>      #
       $r->print(<<ENDHEAD);
   <h2>$title</h2>
   <p>
   $disuri<br />
 $obsoletewarning  $obsoletewarning
 $versiondisplay<br />  $versiondisplay
 <table cellspacing=2 border=0>  </p>
   <table cellspacing="2" border="0">
 $table  $table
 </table>  </table>
 ENDHEAD  ENDHEAD
   if ($ENV{'user.adv'}) {      if ($env{'user.adv'}) {
 # ------------------------------------------------------------ Dynamic Metadata          &print_dynamic_metadata($r,$uri,\%content);
    $r->print(      }
    '<h3>'.&mt('Dynamic Metadata').' ('.      return;
      &mt('updated periodically').')</h3>'.&mt('Processing').  }
      ' ...<br>');  
    $r->rflush();  sub print_dynamic_metadata {
    my %items=&fieldnames();      my ($r,$uri,$content) = @_;
    my %dynmeta=&dynamicmeta($uri);      #
    $r->print(      my %content = %$content;
 '</table><h4>'.&mt('Access and Usage Statistics').'</h4><table cellspacing=2 border=0>');      my %lt=&fieldnames();
    foreach ('count') {      #
        $r->print(      my $description = 'Dynamic Metadata (updated periodically)';
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.      $r->print('<h3>'.&mt($description).'</h3>'.
 $dynmeta{$_}."&nbsp;</td></tr>\n");                &mt('Processing'));
    }      $r->rflush();
    foreach my $cat ('usage','comefrom','goto') {      my %items=&fieldnames();
        $r->print(      my %dynmeta=&dynamicmeta($uri);
 '<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'.      #
 $dynmeta{$cat}.'<font size="-1"><ul>'.join("\n",      # General Access and Usage Statistics
       map { my $murl=$_;       if (exists($dynmeta{'count'}) ||
  '<li><a href="'.&Apache::lonnet::clutter($murl).'" target="preview">'.          exists($dynmeta{'sequsage'}) ||
                         &Apache::lonnet::gettitle($murl).' [<tt>'.$murl          exists($dynmeta{'comefrom'}) ||
                         .'</tt>]</a></li>' }          exists($dynmeta{'goto'}) ||
       split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></td></tr>\n");          exists($dynmeta{'course'})) {
    }          $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
    foreach my $cat ('course') {                    '<table cellspacing="2" border="0">');
        $r->print(          foreach ('count',
 '<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'.                   'sequsage','sequsage_list',
 $dynmeta{$cat}.'<font size="-1"><ul>'.join("\n",                   'comefrom','comefrom_list',
       map { my %courseinfo=&Apache::lonnet::coursedescription($_);                     'goto','goto_list',
  '<li><a href="/public/'.                   'course','course_list') {
   $courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'.              $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
   $courseinfo{'description'}.'</a></li>' }                        '<td bgcolor="#CCCCCC">'.
       split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></td></tr>\n");                        &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
    }          }
        $r->print('</table>');          $r->print('</table>');
    if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {      } else {
       $r->print(          $r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>');
 '<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>');      }
       foreach ('stdno','avetries') {      #
           $r->print(      # Assessment statistics
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.      if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {
 $dynmeta{$_}."&nbsp;</td></tr>\n");          if (exists($dynmeta{'stdno'}) ||
       }              exists($dynmeta{'avetries'}) ||
       foreach ('difficulty') {              exists($dynmeta{'difficulty'}) ||
          $r->print(              exists($dynmeta{'disc'})) {
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.              # This is an assessment, print assessment data
 &diffgraph($dynmeta{$_})."</td></tr>\n");              $r->print('<h4>'.
       }                        &mt('Overall Assessment Statistical Data').
       $r->print('</table>');                            '</h4>'.
    }                        '<table cellspacing="2" border="0">');
    $r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>');              $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.
    foreach ('clear','depth','helpful','correct','technical') {                        '<td bgcolor="#CCCCCC">'.
        $r->print(                        &prettyprint('stdno',$dynmeta{'stdno'}).
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.                        '</td>'."</tr>\n");
 &evalgraph($dynmeta{$_})."</td></tr>\n");              foreach ('avetries','difficulty','disc') {
    }                      $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
    $r->print('</table>');                            '<td bgcolor="#CCCCCC">'.
    $disuri=~/^(\w+)\/(\w+)\//;                               &prettyprint($_,sprintf('%5.2f',$dynmeta{$_})).
    if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))                            '</td>'."</tr>\n");
        || ($ENV{'user.role.ca./'.$1.'/'.$2})) {              }
       $r->print(              $r->print('</table>');    
   '<h4>'.&mt('Evaluation Comments').' ('.&mt('visible to author and co-authors only').')</h4>'.          }
       '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');          if (exists($dynmeta{'stats'})) {
       $r->print(              #
    '<h4>'.&mt('Error Messages').' ('.              # New assessment statistics
           &mt('visible to author and co-authors only').')</h4>');              $r->print('<h4>'.
       my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);                        &mt('Detailed Assessment Statistical Data').
       foreach (keys %errormsgs) {                        '</h4>');
  if ($_=~/^\Q$disuri\E\_\d+$/) {              my $table = '<table cellspacing="2" border="0">'.
           my %content=&Apache::lonmsg::unpackagemsg($errormsgs{$_});                  '<tr>'.
   $r->print('<b>'.$content{'time'}.'</b>: '.$content{'message'}.                  '<th>Course</th>'.
                     '<br />');                  '<th>Section(s)</th>'.
         }                  '<th>Num Students</th>'.
       }                        '<th>Mean Tries</th>'.
    }                  '<th>Degree of Difficulty</th>'.
 # ------------------------------------------------------------- All other stuff                  '<th>Degree of Discrimination</th>'.
    $r->print(                  '<th>Time of computation</th>'.
  '<h3>'.&mt('Additional Metadata (non-standard, parameters, exports)').'</h3>');                  '</tr>'.$/;
    foreach (sort keys %content) {              foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
       my $name=$_;                  my $data = $dynmeta{'stats'}->{$identifier};
       unless ($name=~/\.display$/) {                  my $course = $data->{'course'};
   my $display=&Apache::lonnet::metadata($uri,$name.'.display');                  my %courseinfo = &Apache::lonnet::coursedescription($course);
   unless ($display) { $display=$name; };                  if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
   my $otherinfo='';                      &Apache::lonnet::logthis('lookup for '.$course.' failed');
   foreach ('name','part','type','default') {                      next;
       if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {                  }
   $otherinfo.=' '.$_.'='.                  $table .= '<tr>';
       &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';                  $table .= 
       }                      '<td><nobr>'.$courseinfo{'description'}.'</nobr></td>';
   }                  $table .= 
   $r->print('<b>'.$display.':</b> '.$content{$name});                      '<td align="right">'.$data->{'sections'}.'</td>';
   if ($otherinfo) {                  $table .=
       $r->print(' ('.$otherinfo.')');                      '<td align="right">'.$data->{'stdno'}.'</td>';
   }                  foreach ('avetries','difficulty','disc') {
   $r->print("<br>\n");                      $table .= '<td align="right">';
       }                      if (exists($data->{$_})) {
    }                          $table .= sprintf('%.2f',$data->{$_}).'&nbsp;';
   }                      } else {
 # ===================================================== End Resource Space Call                          $table .= '';
  } else {                      }
 # ===================================================== Construction Space Call                      $table .= '</td>';
                   }
 # ----------------------------------------------------------- Set document type                  $table .=
                       '<td><nobr>'.
   &Apache::loncommon::content_type($r,'text/html');                      &Apache::lonlocal::locallocaltime($data->{'timestamp'}).
   $r->send_http_header;                      '</nobr></td>';
                   $table .=
   return OK if $r->header_only;                      '</tr>'.$/;
 # ---------------------------------------------------------------------- Header              }
   my $bodytag=&Apache::loncommon::bodytag('Edit Catalog Information');              $table .= '</table>'.$/;
   my $disuri=$uri;              $r->print($table);
   my $fn=&Apache::lonnet::filelocation('',$uri);          } else {
   $disuri=~s/^\/\~\w+//;              $r->print('No new dynamic data found.');
   $disuri=~s/\.meta$//;          }
   my $displayfile='Catalog Information for '.$disuri;      } else {
   if ($disuri=~/\/default$/) {          $r->print('<h4>'.
       my $dir=$disuri;            &mt('No Assessment Statistical Data is available for this resource').
       $dir=~s/default$//;                    '</h4>');
       $displayfile=&mt('Default Cataloging Information for Directory').' '.      }
   $dir;  
   }      #
   %Apache::lonpublisher::metadatafields=();      #
   %Apache::lonpublisher::metadatakeys=();      if (exists($dynmeta{'clear'})   || 
   &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));          exists($dynmeta{'depth'})   || 
   $r->print(<<ENDEDIT);          exists($dynmeta{'helpful'}) || 
 <html><head><title>Edit Catalog Information</title></head>          exists($dynmeta{'correct'}) || 
 $bodytag          exists($dynmeta{'technical'})){ 
           $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
                     '<table cellspacing="2" border="0">');
           foreach ('clear','depth','helpful','correct','technical') {
               $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
                         '<td bgcolor="#CCCCCC">'.
                         &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
           }
           $r->print('</table>');
       } else {
           $r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
       }
       $uri=~/^\/res\/(\w+)\/(\w+)\//; 
       if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
           || ($env{'user.role.ca./'.$1.'/'.$2})) {
           if (exists($dynmeta{'comments'})) {
               $r->print('<h4>'.&mt('Evaluation Comments').' ('.
                         &mt('visible to author and co-authors only').
                         ')</h4>'.
                         '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
           } else {
               $r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>');
           }
           my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri);
           if (defined($bombs) && $bombs ne '') {
               $r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('.
                         &mt('visible to author and co-authors only').')'.
                         '</h4>'.$bombs);
           } else {
               $r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>');
           }
       }
       #
       # All other stuff
       $r->print('<h3>'.
                 &mt('Additional Metadata (non-standard, parameters, exports)').
                 '</h3><table border="0" cellspacing="1">');
       foreach (sort(keys(%content))) {
           my $name=$_;
           if ($name!~/\.display$/) {
               my $display=&Apache::lonnet::metadata($uri,
                                                     $name.'.display');
               if (! $display) { 
                   $display=$name;
               };
               my $otherinfo='';
               foreach ('name','part','type','default') {
                   if (defined(&Apache::lonnet::metadata($uri,
                                                         $name.'.'.$_))) {
                       $otherinfo.=' '.$_.'='.
                           &Apache::lonnet::metadata($uri,
                                                     $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) {
                   $r->print(' ('.$otherinfo.')');
               }
               $r->print("</font></td></tr>\n");
           }
       }
       $r->print("</table>");
       return;
   }
   
   
   
   #####################################################
   #####################################################
   ###                                               ###
   ###          Editable metadata display            ###
   ###                                               ###
   #####################################################
   #####################################################
   sub present_editable_metadata {
       my ($r,$uri, $file_type) = @_;
       # Construction Space Call
       # Header
       my $disuri=$uri;
       my $fn=&Apache::lonnet::filelocation('',$uri);
       $disuri=~s/^\/\~/\/priv\//;
       $disuri=~s/\.meta$//;
       $disuri=~s|^/editupload||;
       my $target=$uri;
       $target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;
       $target=~s/\.meta$//;
       my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);
       if ($bombs) {
           my $showdel=1;
           if ($env{'form.delmsg'}) {
               if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
                   $bombs=&mt('Messages deleted.');
    $showdel=0;
               } else {
                   $bombs=&mt('Error deleting messages');
               }
           }
           if ($env{'form.clearmsg'}) {
       my $cleardir=$target;
       $cleardir=~s/\/[^\/]+$/\//;
               if (&Apache::lonmsg::clear_author_res_msg($cleardir) eq 'ok') {
                   $bombs=&mt('Messages cleared.');
    $showdel=0;
               } else {
                   $bombs=&mt('Error clearing messages');
               }
           }
           my $del=&mt('Delete Messages for this Resource');
    my $clear=&mt('Clear all Messages in Subdirectory');
    my $goback=&mt('Back to Source File');
           $r->print(<<ENDBOMBS);
   <h1>$disuri</h1>
   <form method="post" name="defaultmeta">
   ENDBOMBS
           if ($showdel) {
       $r->print(<<ENDDEL);
   <input type="submit" name="delmsg" value="$del" />
   <input type="submit" name="clearmsg" value="$clear" />
   ENDDEL
           } else {
               $r->print('<a href="'.$disuri.'" />'.$goback.'</a>');
    }
    $r->print('<br />'.$bombs);
       } else {
           my $displayfile='Catalog Information for '.$disuri;
           if ($disuri=~/\/default$/) {
               my $dir=$disuri;
               $dir=~s/default$//;
               $displayfile=
                   &mt('Default Cataloging Information for Directory').' '.
                   $dir;
           }
           %Apache::lonpublisher::metadatafields=();
           %Apache::lonpublisher::metadatakeys=();
           my $result=&Apache::lonnet::getfile($fn);
           if ($result == -1){
               $r->print('Creating new '.$disuri);
           } else {
               &Apache::lonpublisher::metaeval($result);
           }
           $r->print(<<ENDEDIT);
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post">  <form method="post" name="defaultmeta">
 ENDEDIT  ENDEDIT
    my %lt=&fieldnames();          $r->print('<script language="JavaScript">'.
    foreach ('author','title','subject','keywords','abstract','notes',                    &Apache::loncommon::browser_and_searcher_javascript().
             'copyright','customdistributionfile','language',                    '</script>');
             'obsolete','obsoletereplacement') {          my %lt=&fieldnames($file_type);
        if ($ENV{'form.new_'.$_}) {   my $output;
    $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};   my @fields;
        }   if ($file_type eq 'portfolio') {
        if (m/copyright/) {      @fields =  ('author','title','subject','keywords','abstract','notes','lowestgradelevel',
    $r->print(&Apache::lonpublisher::selectbox($lt{$_},'new_'.$_,                  'highestgradelevel','courserestricted');
        ($Apache::lonpublisher::metadatafields{$_}?   } else {
  $Apache::lonpublisher::metadatafields{$_}:'default'),      @fields = ('author','title','subject','keywords','abstract','notes',
        \&Apache::loncommon::copyrightdescription,                   'copyright','customdistributionfile','language',
        (&Apache::loncommon::copyrightids)));                   'standards',
        } elsif (m/language/) {                   'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
    $r->print(&Apache::lonpublisher::selectbox($lt{$_},'new_'.$_,                   'obsolete','obsoletereplacement');
       $Apache::lonpublisher::metadatafields{$_},          }
       \&Apache::loncommon::languagedescription,          my $metacourse;
       (&Apache::loncommon::languageids)));          if ($env{'form.metacourse'} ) {
        } else {              $Apache::lonpublisher::metadatafields{'courserestricted'} = $env{'form.metacourse'};
    $r->print(&Apache::lonpublisher::textfield($lt{$_},'new_'.$_,              $metacourse = $env{'form.metacourse'};
      $Apache::lonpublisher::metadatafields{$_}));           } else {
        }              if (! $Apache::lonpublisher::metadatafields{'courserestricted'}) {
    }                  $Apache::lonpublisher::metadatafields{'courserestricted'}=
    if ($ENV{'form.store'}) {                      'none';
       my $mfh;                  $metacourse = 'none';
       unless ($mfh=Apache::File->new('>'.$fn)) {              } else {
             $r->print(                  $metacourse = $Apache::lonpublisher::metadatafields{'courserestricted'};
             '<p><font color=red>'.&mt('Could not write metadata').', '.              }
       &mt('FAIL').'</font>');          }
       } else {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
           foreach (sort keys %Apache::lonpublisher::metadatafields) {                  $Apache::lonpublisher::metadatafields{'copyright'}=
             unless ($_=~/\./) {                  'default';
           }
           if ($metacourse ne 'none') {
                $r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />");
           }
           foreach my $field_name(@fields) {
   
               if (defined($env{'form.new_'.$field_name})) {
                   $Apache::lonpublisher::metadatafields{$field_name}=
                       join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
               }
               if ($metacourse ne 'none') {
                   # handle restrictions here
                   if ($env{$metacourse.'.metadata.'.$field_name.'.options'} =~ m/active/){
                       $output.=('<p>'.$lt{$field_name}.': '.
                                 &prettyinput($field_name,
      $Apache::lonpublisher::metadatafields{$field_name},
      'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');
                    } elsif ($field_name eq 'courserestricted') {
                               $output.=(
                                   &prettyinput($field_name,
       $Apache::lonpublisher::metadatafields{$field_name},
       'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse));
                    }
               } else {
                   if ($field_name ne 'courserestricted') {
                       $output.=('<p>'.$lt{$field_name}.': '.
                               &prettyinput($field_name,
      $Apache::lonpublisher::metadatafields{$field_name},
      'new_'.$field_name,'defaultmeta').'</p>');
           } else {
                       $output.=&prettyinput($field_name,
      $Apache::lonpublisher::metadatafields{$field_name},
      'new_'.$field_name,'defaultmeta');
                   }
               }
           }
           if ($env{'form.store'}) {
               my $mfh;
               my $formname='store'; 
               my $file_content;
               foreach my $meta_field (keys %env) {
                   if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {
                       $Apache::lonpublisher::metadatafields{'keywords'} = 
                           join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
                   }
               }
               foreach (sort keys %Apache::lonpublisher::metadatafields) {
                   next if ($_ =~ /\./);
                 my $unikey=$_;                  my $unikey=$_;
                 $unikey=~/^([A-Za-z]+)/;                  $unikey=~/^([A-Za-z]+)/;
                 my $tag=$1;                  my $tag=$1;
                 $tag=~tr/A-Z/a-z/;                  $tag=~tr/A-Z/a-z/;
                 print $mfh "\n\<$tag";                  $file_content.= "\n\<$tag";
                 foreach                   foreach (split(/\,/,
                   (split(/\,/,$Apache::lonpublisher::metadatakeys{$unikey})) {                               $Apache::lonpublisher::metadatakeys{$unikey})
                            ) {
                     my $value=                      my $value=
                        $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};                       $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
                     $value=~s/\"/\'\'/g;                      $value=~s/\"/\'\'/g;
                     print $mfh ' '.$_.'="'.$value.'"';                      $file_content.=' '.$_.'="'.$value.'"' ;
                       # print $mfh ' '.$_.'="'.$value.'"';
                 }                  }
                 print $mfh '>'.                  $file_content.= '>'.
         &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})                      &HTML::Entities::encode
                         .'</'.$tag.'>';                      ($Apache::lonpublisher::metadatafields{$unikey},
             }                       '<>&"').
   }                       '</'.$tag.'>';
           $r->print('<p>'.&mt('Wrote Metadata'));              }
       }              if ($fn =~ /\/portfolio\//) {
     }                  $fn =~ /\/portfolio\/(.*)$/;
     $r->print(                  my $new_fn = '/'.$1;
  '<br /><input type="submit" name="store" value="'.                  $env{'form.'.$formname}=$file_content;
 &mt('Store Catalog Information').'"></form></body></html>');                  $env{'form.'.$formname.'.filename'}=$new_fn;
     return OK;                  &Apache::lonnet::userfileupload('uploaddoc','',
   }           'portfolio'.$env{'form.currentpath'});
                   if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
                       $r->print('<p><font color="red">'.
                         &mt('Could not write metadata').', '.
                        &mt('FAIL').'</font></p>');
                   } else {
                       $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
     ' '.&Apache::lonlocal::locallocaltime(time).
     '</font></p>');
                   }
               } else {
                   if (!  ($mfh=Apache::File->new('>'.$fn))) {
                       $r->print('<p><font color="red">'.
                           &mt('Could not write metadata').', '.
                           &mt('FAIL').'</font></p>');
                   } else {
                       print $mfh $file_content;
       $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
         ' '.&Apache::lonlocal::locallocaltime(time).
         '</font></p>');
                   }
               }
           }
    $r->print($output.'<br /><input type="submit" name="store" value="'.
                     &mt('Store Catalog Information').'">');
       }
       $r->print('</form>');
       return;
 }  }
   
 # ================================================================= BEGIN Block  
 BEGIN {  
 # Get columns of MySQL metadata table  
     @columns=&Apache::lonmysql::col_order('metadata');  
 }  
 1;  1;
 __END__  __END__
   
        
   
   
   
   
   
Removed from v.1.45  
changed lines
  Added in v.1.132

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