Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.22 and 1.242

-version 1.22, 2002/10/18 13:49:49
+version 1.242, 2011/10/24 22:39:18
  Line 17
  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  # GNU General Public License for more details.
  #
  # You should have received a copy of the GNU General Public License
  # along with LON-CAPA; if not, write to the Free Software
  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  #
  # /home/httpd/html/adm/gpl.txt
  #
  # http://www.lon-capa.org/
- #
- # (TeX Content Handler
- #
- # 05/29/00,05/30,10/11 Gerd Kortemeyer)
- #
- # 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24,12/25 Gerd Kortemeyer
  package Apache::lonmeta;
  use strict;
+ use LONCAPA::lonmetadata();
  use Apache::Constants qw(:common);
- use Apache::lonnet();
+ use Apache::lonnet;
  use Apache::loncommon();
+ use Apache::lonhtmlcommon();
+ use Apache::lonmsg;
+ use Apache::lonpublisher;
+ use Apache::lonlocal;
+ use Apache::lonmysql;
+ use Apache::lonmsg;
+ use LONCAPA qw(:DEFAULT :match);
- # ----------------------------------------- Fetch and evaluate dynamic metadata
+ sub get_dynamic_metadata_from_sql {
+     my ($url) = shift();
+     my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/});
+     if (! defined($authordom)) {
+         $authordom = shift();
+     }
+     if  (! defined($author)) {
+         $author = shift();
+     }
+     if (! defined($authordom) || ! defined($author)) {
+         return ();
+     }
+     my $query = 'SELECT * 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 %hash=&LONCAPA::lonmetadata::metadata_col_to_hash('metadata',
+ 								 map { &unescape($_) } split(/\,/,$result));
+             foreach my $key (keys(%hash)) {
+                 $ReturnHash{$hash{'url'}}->{$key}=$hash{$key};
+             }
+         }
+         $finished = 1;
+     }
+     #
+     return %ReturnHash;
+ }
+ # Fetch and evaluate dynamic metadata
  sub dynamicmeta {
      my $url=&Apache::lonnet::declutter(shift);
      $url=~s/\.meta$//;
-     my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
+     my ($adomain,$aauthor)=($url=~/^($match_domain)\/($match_username)\//);
      my $regexp=$url;
      $regexp=~s/(\W)/\\$1/g;
      $regexp='___'.$regexp.'___';
      my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
  				       $aauthor,$regexp);
-     my %sum;
+     my %DynamicData = &LONCAPA::lonmetadata::process_reseval_data(\%evaldata);
-     my %cnt;
+     my %Data = &LONCAPA::lonmetadata::process_dynamic_metadata($url,
-     my %listitems=('count'        => 'add',
+                                                                \%DynamicData);
-                    'course'       => 'add',
+     #
-                    'avetries'     => 'avg',
+     # Deal with 'count' separately
-                    'stdno'        => 'add',
+     $Data{'count'} = &access_count($url,$aauthor,$adomain);
-                    'difficulty'   => 'avg',
+     #
-                    'clear'        => 'avg',
+     # Debugging code I will probably need later
-                    'technical'    => 'avg',
+     if (0) {
-                    'helpful'      => 'avg',
+         &Apache::lonnet::logthis('Dynamic Metadata');
-                    'correct'      => 'avg',
+         while(my($k,$v)=each(%Data)){
-                    'depth'        => 'avg',
+             &Apache::lonnet::logthis('    "'.$k.'"=>"'.$v.'"');
-                    'comments'     => 'app',
+         }
-                    'usage'        => 'cnt'
+         &Apache::lonnet::logthis('-------------------');
-                    );
-     foreach (keys %evaldata) {
- 	$_=~/___(\w+)$/;
-         if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; }
-         unless ($listitems{$1} eq 'app') {
-             if (defined($sum{$1})) {
-                $sum{$1}+=$evaldata{$_};
- 	    } else {
-                $sum{$1}=$evaldata{$_};
- 	    }
-         } else {
-             if (defined($sum{$1})) {
-                if ($evaldata{$_}) {
-                   $sum{$1}.='<hr>'.$evaldata{$_};
- 	       }
-  	    } else {
- 	       $sum{$1}=''.$evaldata{$_};
- 	    }
- 	}
      }
-     my %returnhash=();
+     return %Data;
-     foreach (keys %cnt) {
+ }
-        if ($listitems{$_} eq 'avg') {
- 	   $returnhash{$_}=int(($sum{$_}/$cnt{$_})*100.0+0.5)/100.0;
+ sub access_count {
-        } elsif ($listitems{$_} eq 'cnt') {
+     my ($src,$author,$adomain) = @_;
-            $returnhash{$_}=$cnt{$_};
+     my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,
-        } else {
+                                         $author,$src);
-            $returnhash{$_}=$sum{$_};
+     if (! exists($countdata{$src})) {
-        }
+         return &mt('Not Available');
+     } else {
+         return $countdata{$src};
+     }
+ }
+ # Try to make an alt tag if there is none
+ sub alttag {
+     my ($base,$src)=@_;
+     my $fullpath=&Apache::lonnet::hreflocation($base,$src);
+     my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
+         &Apache::lonnet::metadata($fullpath,'subject').' '.
+         &Apache::lonnet::metadata($fullpath,'abstract');
+     $alttag=~s/\s+/ /gs;
+     $alttag=~s/\"//gs;
+     $alttag=~s/\'//gs;
+     $alttag=~s/\s+$//gs;
+     $alttag=~s/^\s+//gs;
+     if ($alttag) {
+         return $alttag;
+     } else {
+         return &mt('No information available');
      }
-     return %returnhash;
  }
- # -------------------------------------------------------------- Pretty display
+ # Author display
+ sub authordisplay {
+     my ($aname,$adom)=@_;
+     return &Apache::loncommon::aboutmewrapper
+         (&Apache::loncommon::plainname($aname,$adom),
+          $aname,$adom,'preview').' <tt>['.$aname.':'.$adom.']</tt>';
+ }
+ # Pretty display
  sub evalgraph {
      my $value=shift;
-     unless ($value) { return ''; }
+     if (! $value) {
+         return '';
+     }
      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) {
- 	$output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
+ 	$output.='<td width="20" bgcolor="#555555">'.('&nbsp;' x2).'</td>';
      } 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>';
      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 {
-        $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
+         $output.='<td width="20" bgcolor="#555555">'.('&nbsp;' x2).'</td>';
      }
-     $output.='<td> ('.$value.') </td></tr></table>';
+     $output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';
      return $output;
  }
  sub diffgraph {
      my $value=shift;
-     unless ($value) { return ''; }
+     if (! $value) {
+         return '';
+     }
      my $val=int(40.0*$value+0.5);
      my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
                  '#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++) {
  	if ($val>$i*5) {
-             $output.='<td width=5 bgcolor="'.$colors[$i].'">&nbsp;</td>';
+             $output.='<td width="5" bgcolor="'.$colors[$i].'">&nbsp;</td>';
          } 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;
  }
- # ================================================================ Main Handler
- sub handler {
+ # The field names
-   my $r=shift;
+ sub fieldnames {
+     my $file_type=shift;
+     my %fields =
+         ('title' => 'Title',
+          'author' =>'Author(s)',
+          'authorspace' => 'Author Space',
+          'modifyinguser' => 'Last Modifying User',
+          'subject' => 'Subject',
+          'standards' => 'Standards',
+          'keywords' => 'Keyword(s)',
+          'notes' => 'Notes',
+          'abstract' => 'Abstract',
+          'lowestgradelevel' => 'Lowest Grade Level',
+          'highestgradelevel' => 'Highest Grade Level');
+     if ( !defined($file_type) || ($file_type ne 'portfolio' && $file_type ne 'groups') ) {
+         %fields =
+         (%fields,
+          'domain' => 'Domain',
+          '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'      => 'Statistics calculated for number of students',
+          'difficulty' => 'Degree of difficulty',
+          'disc'       => 'Degree of discrimination',
+ 	     'dependencies' => 'Resources used by this resource',
+          );
+     }
+     return &Apache::lonlocal::texthash(%fields);
+ }
-     my $loaderror=&Apache::lonnet::overloaderror($r);
+ sub portfolio_linked_path {
-     if ($loaderror) { return $loaderror; }
+     my ($path,$group,$port_path) = @_;
+     my $start = 'portfolio';
+     if ($group) {
+ 	$start = "groups/$group/".$start;
+     }
+     my %anchor_fields = (
+         'selectfile'  => $start,
+         'currentpath' => '/'
+     );
+     my $result = &Apache::portfolio::make_anchor($port_path,\%anchor_fields,$start);
+     my $fullpath = '/';
+     my (undef,@tree) = split('/',$path);
+     my $filename = pop(@tree);
+     foreach my $dir (@tree) {
+ 	$fullpath .= $dir.'/';
+ 	$result .= '/';
+ 	my %anchor_fields = (
+             'selectfile'  => $dir,
+             'currentpath' => $fullpath
+         );
+ 	$result .= &Apache::portfolio::make_anchor($port_path,\%anchor_fields,$dir);
+     }
+     $result .= "/$filename";
+     return $result;
+ }
-     my $uri=$r->uri;
+ sub get_port_path_and_group {
+     my ($uri)=@_;
+     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     my ($port_path,$group);
+     if ($uri =~ m{^/editupload/\Q$cdom\E/\Q$cnum\E/groups/}) {
+ 	$group = (split('/',$uri))[5];
+ 	$port_path = '/adm/coursegrp_portfolio';
+     } else {
+ 	$port_path = '/adm/portfolio';
+     }
+     if ($env{'form.group'} ne $group) {
+ 	$env{'form.group'} = $group;
+     }
+     return ($port_path,$group);
+ }
+ sub portfolio_display_uri {
+     my ($uri,$as_links)=@_;
+     my ($port_path,$group) = &get_port_path_and_group($uri);
+     $uri =~ s|.*/(portfolio/.*)$|$1|;
+     my ($res_uri,$meta_uri) = ($uri,$uri);
+     if ($uri =~ /\.meta$/) {
+ 	$res_uri =~ s/\.meta//;
+     } else {
+ 	$meta_uri .= '.meta';
+     }
+     my ($path) = ($res_uri =~ m|^portfolio(.*/)[^/]*$|);
+     if ($as_links) {
+ 	$res_uri = &portfolio_linked_path($res_uri,$group,$port_path);
+ 	$meta_uri = &portfolio_linked_path($meta_uri,$group,$port_path);
+     }
+     return ($res_uri,$meta_uri,$path);
+ }
+ sub pre_select_course {
+     my ($r,$uri) = @_;
+     my $output;
+     my $fn=&Apache::lonnet::filelocation('',$uri);
+     my ($res_uri,$meta_uri,$path) = &portfolio_display_uri($uri);
+     %Apache::lonpublisher::metadatafields=();
+     %Apache::lonpublisher::metadatakeys=();
+     my $result=&Apache::lonnet::getfile($fn);
+     if ($result == -1){
+         $r->print(&mt('Creating new file [_1]'),$meta_uri);
+     } else {
+         &Apache::lonpublisher::metaeval($result);
+     }
+     $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>');
+     $output = &select_course();
+     $r->print($output.'<br /><input type="submit" name="store" value="'.
+                   &mt('Associate Resource With Selected Course').'" />');
+     $r->print('<input type="hidden" name="currentpath" value="'.$env{'form.currentpath'}.'" />');
+     $r->print('<input type="hidden" name="associate" value="true" />');
+     $r->print('</form>');
+     my ($port_path,$group) = &get_port_path_and_group($uri);
+     my $group_input;
+     if ($group) {
+         $group_input = '<input type="hidden" name="group" value="'.$group.'" />';
+     }
+     $r->print('<br /><br /><form method="post" action="'.$port_path.'">'.
+               '<input type="hidden" name="currentpath" value="'.$path.'" />'.
+ 	      $group_input.
+ 	      '<input type="submit" name="cancel" value="'.&mt('Cancel').'" />'.
+ 	      '</form>');
+     return;
+ }
+ sub select_course {
+     my $output=$/;
+     my $current_restriction=
+ 	$Apache::lonpublisher::metadatafields{'courserestricted'};
+     my $selected = ($current_restriction eq 'none' ? 'selected="selected"'
+ 		                                   : '');
+     if ($current_restriction =~ /^course\.($match_domain\_$match_courseid)$/) {
+         my $assoc_crs = $1;
+         my $added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames($assoc_crs);
+         if (ref($added_metadata_fields) eq 'HASH') {
+             if (keys(%{$added_metadata_fields}) > 0) {
+                 my $transfernotes;
+                 foreach my $field_name (keys(%{$added_metadata_fields})) {
+                     my $value = $Apache::lonpublisher::metadatafields{$field_name};
+                     if ($value) {
+                         $transfernotes .=
+                             &Apache::loncommon::start_data_table_row().
+                             '<td><input type="checkbox" name="transfer_'.
+                             $field_name.'" value="1" /></td><td>'.
+                             $field_name.'</td><td>'.$value.'</td>'.
+                             &Apache::loncommon::end_data_table_row();
+                     }
+                 }
+                 if ($transfernotes ne '') {
+                     my %courseinfo = &Apache::lonnet::coursedescription($assoc_crs,{'one_time' => 1});
+                     my $assoc_crs_description = $courseinfo{'description'};
+                     $output .= &mt('This resource is currently associated with a course ([_1]) which includes added metadata fields specific to the course.',$assoc_crs_description).'<br />'."\n".
+                     &mt('You can choose to transfer data from the added fields to the "Notes" field if you are planning to change the course association.').'<br /><br />'.
+                     &Apache::loncommon::start_data_table().
+                     &Apache::loncommon::start_data_table_header_row().
+                     '<th>Copy to notes?</th>'."\n".
+                     '<th>Field name</th>'."\n".
+                     '<th>Values</th>'."\n".
+                     &Apache::loncommon::end_data_table_header_row().
+                     $transfernotes.
+                     &Apache::loncommon::end_data_table().'<br />';
+                 }
+             }
+         }
+     }
+     $output .= '<select name="new_courserestricted" >';
+     $output .= '<option value="none" '.$selected.'>'.
+ 	&mt('None').'</option>'.$/;
+     my %courses;
+     foreach my $key (keys(%env)) {
+         if ($key !~ m/^course\.(.+)\.description$/) { next; }
+ 	my $cid = $1;
+         if ($env{$key} !~ /\S/) { next; }
+ 	$courses{$key} = $cid;
+     }
+     foreach my $key (sort { lc($env{$a}) cmp lc($env{$b}) } (keys(%courses))) {
+ 	my $cid = 'course.'.$courses{$key};
+ 	my $selected = ($current_restriction eq $cid ? 'selected="selected"'
+ 		                                     : '');
+         if ($env{$key} !~ /\S/) { next; }
+ 	$output .= '<option value="'.$cid.'" '.$selected.'>';
+ 	$output .= $env{$key};
+ 	$output .= '</option>'.$/;
+ 	$selected = '';
+     }
+     $output .= '</select><br />';
+     return ($output);
+ }
+ # Pretty printing of metadata field
+ sub prettyprint {
+     my ($type,$value,$target,$prefix,$form)=@_;
+ # $target,$prefix,$form are optional and for filecrumbs only
+     if (! defined($value)) {
+         return '&nbsp;';
+     }
+     # Title
+     if ($type eq 'title') {
+ 	return $value;
+     }
+     # Dates
+     if (($type eq 'creationdate') ||
+ 	($type eq 'lastrevisiondate')) {
+ 	return ($value?&Apache::lonlocal::locallocaltime(
+ 			  &Apache::lonmysql::unsqltime($value)):
+ 		&mt('not available'));
+     }
+     # Language
+     if ($type eq 'language') {
+ 	return &Apache::loncommon::languagedescription($value);
+     }
+     # Copyright
+     if ($type eq 'copyright') {
+ 	return &Apache::loncommon::copyrightdescription($value);
+     }
+     # Copyright
+     if ($type eq 'sourceavail') {
+ 	return &Apache::loncommon::source_copyrightdescription($value);
+     }
+     # MIME
+     if ($type eq 'mime') {
+         return '<img src="'.&Apache::loncommon::icon($value).'" />&nbsp;'.
+             &Apache::loncommon::filedescription($value);
+     }
+     # Person
+     if (($type eq 'author') ||
+ 	($type eq 'owner') ||
+ 	($type eq 'modifyinguser') ||
+ 	($type eq 'authorspace')) {
+ 	$value=~s/($match_username)(\:|\@)($match_domain)/&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 class="LC_fontsize_medium">'.join("\n",map {
+             my $url = &Apache::lonnet::clutter_with_no_wrapper($_);
+             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).
+                  '</li>'
+ 	    } split(/\s*\,\s*/,$value)).'</ul>';
+     }
+     # 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='<ul class="LC_fontsize_medium">';
+ 	my %descriptions;
+         foreach my $course (@Courses) {
+             my %courseinfo =
+ 		&Apache::lonnet::coursedescription($course,
+ 						   {'one_time' => 1});
+             if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
+                 next;
+             }
+ 	    $descriptions{join('\0',@courseinfo{'domain','description'})} .=
+ 		'<li><a href="/public/'.$courseinfo{'domain'}.'/'.
+                 $courseinfo{'num'}.'/syllabus" target="preview">'.
+                 $courseinfo{'description'}.' ('.$courseinfo{'domain'}.
+ 		')</a></li>';
+         }
+ 	foreach my $course (sort {lc($a) cmp lc($b)} (keys(%descriptions))) {
+ 	    $Str .= $descriptions{$course};
+ 	}
+ 	return $Str.'</ul>';
+     }
+     # No pretty print found
+     return $value;
+ }
+ # Pretty input of metadata field
+ sub direct {
+     return shift;
+ }
+ sub selectbox {
+     my ($name,$value,$functionref,@idlist)=@_;
+     if (! defined($functionref)) {
+         $functionref=\&direct;
+     }
+     my $selout='<select name="'.$name.'">';
+     foreach my $id (@idlist) {
+         $selout.='<option value="'.$id.'"';
+         if ($id eq $value) {
+ 	    $selout.=' selected="selected">'.&{$functionref}($id).'</option>';
+         } else {
+             $selout.='>'.&{$functionref}($id).'</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="checked"':'').' />';
+ }
+ sub prettyinput {
+     my ($type,$value,$fieldname,$formname,
+ 	$relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
+     if (! defined($size)) {
+         $size = 80;
+     }
+     my $output;
+     if (defined($course_key)
+ 	&& exists($env{$course_key.'.metadata.'.$type.'.options'})) {
+         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) {
+             foreach my $item (split(/,/,$values)) {
+                 $item =~ s/^\s+//;
+                 $meta_options{$item} = $item;
+             }
+             foreach my $item (split(/,/,$value)) {
+                 $item =~ s/^\s+//;
+                 if ($meta_options{$item}) {
+                     push(@cur_values_inst,$item);
+                 } else {
+                     if ($item ne '') {
+                         $cur_values_stu .= $item.',';
+                     }
+                 }
+             }
+              $cur_values_stu =~ s/,$//;
+             my @key_order = sort(keys(%meta_options));
+             unshift(@key_order,'');
+             $meta_options{''} = 'Not specified';
+             $meta_options{'select_form_order'} = \@key_order;
+         } else {
+             $cur_values_stu = $value;
+         }
+         if ($type eq 'courserestricted') {
+             return (&select_course());
+             # 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')|| ($type eq  'standards')
+              || (exists($env{$course_key.'.metadata.'.$type.'.added'}))) {
+             if ($values) {
+                 if ($only_one) {
+                     $output .= (&Apache::loncommon::select_form($cur_values_inst[0],'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="checked"':'').' />'.
+             &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);
+     }
+     if ($type eq 'courserestricted') {
+         return (&select_course());
+         #return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
+     }
+     # 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);
+ }
+ # Create pageheader
+ sub pageheader {
+     my $output = '';
+     # No CSTR? Include breadcrumbs
+     if ($env{'request.state'} ne 'construct') {
+         # loncommon::bodytag already includes breadcrumbs for CSTR
+         # by calling lonmenu::innerregister
+         $output = &Apache::lonhtmlcommon::breadcrumbs();
+     }
+     # CSTR? Include CSTR header
+     if ($env{'request.state'} eq 'construct') {
+           $output .= &Apache::loncommon::head_subbox(
+                          &Apache::loncommon::CSTR_pageheader());
+     }
+     return $output;
+ }
+ # Main Handler
+ sub handler {
+     my $r=shift;
+     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+          ['currentpath','changecourse']);
+     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)=
-            (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
+         (&Apache::lonnet::declutter($uri)=~/^($match_domain)\/($match_username)\//);
+     # Breadcrumbs
+     &Apache::lonhtmlcommon::clear_breadcrumbs();
+     if ($env{'request.state'} eq 'construct') {
+         &Apache::lonhtmlcommon::add_breadcrumb({
+             'text'  => 'Construction Space',
+             'href'  => &Apache::loncommon::authorspace(),
+         });
+     }
-     $loaderror=
+     if ($uri=~m:/adm/bombs/(.*)$:) {
-        &Apache::lonnet::overloaderror($r,
+         &Apache::lonhtmlcommon::add_breadcrumb({
-          &Apache::lonnet::homeserver($resuser,$resdomain));
+             'text'  => 'Error Messages',
-     if ($loaderror) { return $loaderror; }
+             'href'  => '',
+         });
-   my %content=();
+         $r->print(&Apache::loncommon::start_page('Error Messages'));
+         $r->print(&pageheader());
- # ----------------------------------------------------------- Set document type
+         # Looking for all bombs?
+         &report_bombs($r,$uri);
-   $r->content_type('text/html');
+     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {
-   $r->send_http_header;
+         &Apache::lonhtmlcommon::add_breadcrumb({
+             'text'  => 'Edit Portfolio File Metadata',
-   return OK if $r->header_only;
+             'href'  => '',
+         });
- # ------------------------------------------------------------------- Read file
+ 	    ($resdomain,$resuser)=
-   foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
+ 		(&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);
-       $content{$_}=&Apache::lonnet::metadata($uri,$_);
+         $r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata',
-   }
+ 						 undef,
- # ------------------------------------------------------------------ Hide stuff
+ 						 {'domain' => $resdomain,}));
+         $r->print(&pageheader());
-   unless ($ENV{'user.adv'}) {
+         if ($env{'form.store'}) {
-       foreach ('keywords','notes','abstract','subject') {
+             &present_editable_metadata($r,$uri,'portfolio');
-           $content{$_}='<i>- not displayed -</i>';
+         } else {
-       }
+             my $fn=&Apache::lonnet::filelocation('',$uri);
-   }
+             %Apache::lonpublisher::metadatafields=();
+             %Apache::lonpublisher::metadatakeys=();
- # --------------------------------------------------------------- Render Output
+             my $result=&Apache::lonnet::getfile($fn);
-   my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta/);
+             &Apache::lonpublisher::metaeval($result);
- my $creationdate=localtime(
+             if ((!$Apache::lonpublisher::metadatafields{'courserestricted'}) ||
-  &Apache::loncommon::unsqltime($content{'creationdate'}));
+                 ($env{'form.changecourse'} eq 'true')) {
- my $lastrevisiondate=localtime(
+                 &pre_select_course($r,$uri);
-  &Apache::loncommon::unsqltime($content{'lastrevisiondate'}));
+             } else {
- my $language=&Apache::loncommon::languagedescription($content{'language'});
+                 &present_editable_metadata($r,$uri,'portfolio');
- my $mime=&Apache::loncommon::filedescription($content{'mime'});
+             }
- my $disuri=&Apache::lonnet::declutter($uri);
+         }
-   $disuri=~s/\.meta$//;
+     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
- my $currentversion=&Apache::lonnet::getversion($disuri);
+         &Apache::lonhtmlcommon::add_breadcrumb({
- my $versiondisplay='';
+             'text'  => 'Edit Group Portfolio File Metadata',
- if ($thisversion) {
+             'href'  => '',
-     $versiondisplay='Version: '.$thisversion.
+         });
-     ' (most recent version: '.$currentversion.')';
+         $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata',
- } else {
+ 						 undef,
-     $versiondisplay='Version: '.$currentversion;
+ 						 {'domain' => $resdomain,}));
- }
+         $r->print(&pageheader());
- my $bodytag=&Apache::loncommon::bodytag
+         &present_editable_metadata($r,$uri,'groups');
-             ('Catalog Information','','','',$resdomain);
+     } elsif ($uri=~m|^/priv|) {
-   $r->print(<<ENDHEAD);
+         # Construction space
- <html><head><title>Catalog Information</title></head>
+         &Apache::lonhtmlcommon::add_breadcrumb({
- $bodytag
+             'text'  => 'Edit Metadata',
- <h2>$content{'title'}</h2>
+             'href'  => '',
- <h3><tt>$disuri</tt></h3>
+         });
- $versiondisplay<br />
+         $r->print(&Apache::loncommon::start_page('Edit Metadata',
- <table cellspacing=2 border=0>
+ 						"\n".'<script type="text/javascript">'."\n".
- <tr><td bgcolor='#AAAAAA'>Author(s)</td>
+                                                 &Apache::loncommon::browser_and_searcher_javascript().
- <td bgcolor="#CCCCCC">$content{'author'}&nbsp;</td></tr>
+                                                 "\n".'</script>',
- <tr><td bgcolor='#AAAAAA'>Subject</td>
+ 						 {'domain' => $resdomain,}));
- <td bgcolor="#CCCCCC">$content{'subject'}&nbsp;</td></tr>
+         $r->print(&pageheader());
- <tr><td bgcolor='#AAAAAA'>Keyword(s)</td>
+         &present_editable_metadata($r,$uri);
- <td bgcolor="#CCCCCC">$content{'keywords'}&nbsp;</td></tr>
+     } else {
- <tr><td bgcolor='#AAAAAA'>Notes</td>
+         &Apache::lonhtmlcommon::add_breadcrumb({
- <td bgcolor="#CCCCCC">$content{'notes'}&nbsp;</td></tr>
+             'text'  => 'Metadata',
- <tr><td bgcolor='#AAAAAA'>Abstract</td>
+             'href'  => '',
- <td bgcolor="#CCCCCC">$content{'abstract'}&nbsp;</td></tr>
+         });
- <tr><td bgcolor='#AAAAAA'>MIME Type</td>
+         $r->print(
- <td bgcolor="#CCCCCC">$mime ($content{'mime'})&nbsp;</td></tr>
+             &Apache::loncommon::start_page(
- <tr><td bgcolor='#AAAAAA'>Language</td>
+                 'Metadata',
- <td bgcolor="#CCCCCC">$language&nbsp;</td></tr>
+                 undef,
- <tr><td bgcolor='#AAAAAA'>Creation Date</td>
+                 {'domain' => $resdomain,
- <td bgcolor="#CCCCCC">$creationdate&nbsp;</td></tr>
+                 'only_body' => 1,})
- <tr><td bgcolor='#AAAAAA'>
+            .'<h1>'.&mt('Metadata').'</h1>'
- Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate&nbsp;</td></tr>
+         );
- <tr><td bgcolor='#AAAAAA'>Publisher/Owner</td>
+         &present_uneditable_metadata($r,$uri);
- <td bgcolor="#CCCCCC">$content{'owner'}&nbsp;</td></tr>
+     }
- <tr><td bgcolor='#AAAAAA'>Copyright/Distribution</td>
+     $r->print(&Apache::loncommon::end_page());
- <td bgcolor="#CCCCCC">$content{'copyright'}
+     return OK;
- </table>
- ENDHEAD
-   delete($content{'title'});
-   delete($content{'author'});
-   delete($content{'subject'});
-   delete($content{'keywords'});
-   delete($content{'notes'});
-   delete($content{'abstract'});
-   delete($content{'mime'});
-   delete($content{'language'});
-   delete($content{'creationdate'});
-   delete($content{'lastrevisiondate'});
-   delete($content{'owner'});
-   delete($content{'copyright'});
-   if ($ENV{'user.adv'}) {
- # ------------------------------------------------------------ Dynamic Metadata
-    $r->print(
-    '<h3>Dynamic Metadata (updated periodically)</h3>Processing ...<br>');
-    $r->rflush();
-     my %items=(
-  'count'      => 'Network-wide number of accesses (hits)',
-  'course'     => 'Network-wide number of courses using resource',
-  'usage'      => 'Number of resources using or importing resource',
-  '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');
-    my %dynmeta=&dynamicmeta($uri);
-    $r->print(
- '</table><h4>Access and Usage Statistics</h4><table cellspacing=2 border=0>');
-    foreach ('count','usage','course') {
-        $r->print(
- '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
- $dynmeta{$_}."&nbsp;</td></tr>\n");
-    }
-        $r->print('</table>');
-    if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
-       $r->print(
- '<h4>Assessment Statistical Data</h4><table cellspacing=2 border=0>');
-       foreach ('stdno','avetries') {
-           $r->print(
- '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
- $dynmeta{$_}."&nbsp;</td></tr>\n");
-       }
-       foreach ('difficulty') {
-          $r->print(
- '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
- &diffgraph($dynmeta{$_})."</td></tr>\n");
-       }
-       $r->print('</table>');
-    }
-    $r->print('<h4>Evaluation Data</h4><table cellspacing=2 border=0>');
-    foreach ('clear','depth','helpful','correct','technical') {
-        $r->print(
- '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
- &evalgraph($dynmeta{$_})."</td></tr>\n");
-    }
-    $r->print('</table>');
-    $disuri=~/^(\w+)\/(\w+)\//;
-    if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))
-        || ($ENV{'user.role.ca./'.$1.'/'.$2})) {
-       $r->print(
-   '<h4>Evaluation Comments (visible to author and co-authors only)</h4>'.
-       '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
-    }
- # ------------------------------------------------------------- All other stuff
-    $r->print(
-  '<h3>Additional Metadata (non-standard, parameters, exports)</h3>');
-    foreach (sort keys %content) {
-       my $name=$_;
-       my $display=&Apache::lonnet::metadata($uri,$name.'.display');
-       unless ($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('<b>'.$display.':</b> '.$content{$name});
-       if ($otherinfo) {
-          $r->print(' ('.$otherinfo.')');
-       }
-       $r->print("<br>\n");
-    }
-   }
-   $r->print('</body></html>');
-   return OK;
  }
+ #####################################################
+ #####################################################
+ ###                                               ###
+ ###                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=~/^($match_domain)\/($match_username)\//);
+     if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) {
+ 	if ($env{'form.clearbombs'}) {
+ 	    &Apache::lonmsg::clear_author_res_msg($uri);
+ 	}
+         my $clear=&mt('Clear all Messages in Subdirectory');
+         my $cancel=&mt('Back to Directory');
+         my $cancelurl=$uri;
+         $cancelurl=~s/^\Q$domain\E/\/priv/;
+         $r->print(<<ENDCLEAR);
+ <form method="post">
+ <input type="submit" name="clearbombs" value="$clear" />
+ <a href="$cancelurl">$cancel</a>
+ </form><hr />
+ ENDCLEAR
+         my %brokenurls =
+             &Apache::lonmsg::all_url_author_res_msg($author,$domain);
+         foreach my $key (sort(keys(%brokenurls))) {
+             if ($key=~/^\Q$uri\E/) {
+                 $r->print
+                     ('<a href="'.&Apache::lonnet::clutter($key).'">'.$key.'</a>'.
+                      &Apache::lonmsg::retrieve_author_res_msg($key).
+                      '<hr />');
+             }
+         }
+     } else {
+         $r->print(&mt('Not authorized'));
+     }
+     return;
+ }
+ #####################################################
+ #####################################################
+ ###                                               ###
+ ###        Uneditable Metadata Display            ###
+ ###                                               ###
+ #####################################################
+ #####################################################
+ sub present_uneditable_metadata {
+     my ($r,$uri) = @_;
+     #
+     my $uploaded = ($uri =~ m|/uploaded/|);
+     my %content=();
+     # Read file
+     foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
+         $content{$key}=&Apache::lonnet::metadata($uri,$key);
+     }
+     # Render Output
+     # displayed url
+     my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
+     $uri=~s/\.meta$//;
+     my $disuri=&Apache::lonnet::clutter_with_no_wrapper($uri);
+     # version
+     my $versiondisplay='';
+     if (!$uploaded) {
+ 	my $currentversion=&Apache::lonnet::getversion($disuri);
+ 	if ($thisversion) {
+ 	    $versiondisplay=&mt('Version').': '.$thisversion.
+ 		' ('.&mt('most recent version').': '.
+ 		($currentversion>0 ?
+ 		 $currentversion   :
+ 		 &mt('information not available')).')';
+ 	} else {
+ 	    $versiondisplay='Version: '.$currentversion;
+ 	}
+     }
+     # crumbify displayed URL               uri     target prefix form
+     $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef);
+     # obsolete
+     my $obsolete=$content{'obsolete'};
+     my $obsoletewarning='';
+     if (($obsolete) && ($env{'user.adv'})) {
+         $obsoletewarning='<p><span class="LC_warning">'.
+             &mt('This resource has been marked obsolete by the author(s)').
+             '</span></p>';
+     }
+     #
+     my %lt=&fieldnames();
+     my $table='';
+     my $title = $content{'title'};
+     if (! defined($title)) {
+         $title = 'Untitled Resource';
+     }
+     my @fields;
+     if ($uploaded) {
+ 	@fields = ('title','author','subject','keywords','notes','abstract',
+ 		   'lowestgradelevel','highestgradelevel','standards','mime',
+ 		   'owner');
+     } else {
+ 	@fields = ('title',
+ 		   'author',
+ 		   'subject',
+ 		   'keywords',
+ 		   'notes',
+ 		   'abstract',
+ 		   'lowestgradelevel',
+ 		   'highestgradelevel',
+ 		   'standards',
+ 		   'mime',
+ 		   'language',
+ 		   'creationdate',
+ 		   'lastrevisiondate',
+ 		   'owner',
+ 		   'copyright',
+ 		   'customdistributionfile',
+ 		   'sourceavail',
+ 		   'sourcerights',
+ 		   'obsolete',
+ 		   'obsoletereplacement');
+     }
+     my $rownum = 0;
+     foreach my $field (@fields) {
+         my $lastrow = '';
+         $rownum ++;
+         $lastrow = 1 if ($rownum == @fields);
+         $table.=&Apache::lonhtmlcommon::row_title($lt{$field})
+                .&prettyprint($field,$content{$field})
+                .&Apache::lonhtmlcommon::row_closure($lastrow);
+         delete($content{$field});
+     }
+     #
+     $r->print("<h2>$title</h2>"
+              .'<p>'
+              .$disuri.'<br />'
+              .$obsoletewarning
+              .$versiondisplay
+              .'</p>'
+              .&Apache::lonhtmlcommon::start_pick_box()
+              .$table
+              .&Apache::lonhtmlcommon::end_pick_box()
+     );
+     if (!$uploaded && $env{'user.adv'}) {
+         &print_dynamic_metadata($r,$uri,\%content);
+     }
+     return;
+ }
+ sub print_dynamic_metadata {
+     my ($r,$uri,$content) = @_;
+     #
+     my %content = %$content;
+     my %lt=&fieldnames();
+     #
+     my $description = 'Dynamic Metadata (updated periodically)';
+     $r->print('<h3>'.&mt($description).'</h3>'.
+               &mt('Processing'));
+     $r->rflush();
+     my %items=&fieldnames();
+     my %dynmeta=&dynamicmeta($uri);
+     #
+     # General Access and Usage Statistics
+     $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>');
+     if (exists($dynmeta{'count'}) ||
+         exists($dynmeta{'sequsage'}) ||
+         exists($dynmeta{'comefrom'}) ||
+         exists($dynmeta{'goto'}) ||
+         exists($dynmeta{'course'})) {
+         $r->print(&Apache::lonhtmlcommon::start_pick_box());
+         my @counts = ('count','sequsage','sequsage_list',
+                       'comefrom','comefrom_list','goto',
+                       'goto_list','course','course_list');
+         my $rownum = 0;
+         foreach my $item (@counts) {
+             my $lastrow = '';
+             $rownum ++;
+             $lastrow = 1 if ($rownum == @counts);
+             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
+                      .&prettyprint($item,$dynmeta{$item})
+                      .&Apache::lonhtmlcommon::row_closure($lastrow)
+             );
+         }
+         $r->print(&Apache::lonhtmlcommon::end_pick_box());
+     } else {
+         $r->print('<p>'
+                  .&mt('No Access or Usages Statistics are available for this resource.')
+                  .'</p>'
+         );
+     }
+     #
+     # Assessment statistics
+     if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+         if (exists($dynmeta{'stdno'}) ||
+             exists($dynmeta{'avetries'}) ||
+             exists($dynmeta{'difficulty'}) ||
+             exists($dynmeta{'disc'})) {
+             # This is an assessment, print assessment data
+             $r->print('<h4>'.
+                       &mt('Overall Assessment Statistical Data').
+                       '</h4>'.
+                       &Apache::lonhtmlcommon::start_pick_box());
+             $r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'})
+                      .&prettyprint('stdno',$dynmeta{'stdno'})
+                      .&Apache::lonhtmlcommon::row_closure()
+             );
+             my @stats = ('avetries','difficulty','disc');
+             my $rownum = 0;
+             foreach my $item (@stats) {
+                 my $lastrow = '';
+                 $rownum ++;
+                 $lastrow = 1 if ($rownum == @stats);
+                 $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
+                          .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))
+                          .&Apache::lonhtmlcommon::row_closure($lastrow)
+                 );
+             }
+             $r->print(&Apache::lonhtmlcommon::end_pick_box());
+         }
+         #
+         # New assessment statistics
+         $r->print('<h4>'
+                  .&mt('Recent Detailed Assessment Statistical Data')
+                  .'</h4>'
+         );
+         if (exists($dynmeta{'stats'})) {
+             my $table=&Apache::loncommon::start_data_table()
+                      .&Apache::loncommon::start_data_table_header_row()
+                      .'<th>'.&mt('Course').'</th>'
+                      .'<th>'.&mt('Section(s)').'</th>'
+                      .'<th>'.&mt('Num Students').'</th>'
+                      .'<th>'.&mt('Mean Tries').'</th>'
+                      .'<th>'.&mt('Degree of Difficulty').'</th>'
+                      .'<th>'.&mt('Degree of Discrimination').'</th>'
+                      .'<th>'.&mt('Time of computation').'</th>'
+                      .&Apache::loncommon::end_data_table_header_row().$/;
+             foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
+                 my $data = $dynmeta{'stats'}->{$identifier};
+                 my $course = $data->{'course'};
+                 my %courseinfo =
+ 		    &Apache::lonnet::coursedescription($course,
+ 						       {'one_time' => 1});
+                 if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
+                     &Apache::lonnet::logthis('lookup for '.$course.' failed');
+                     next;
+                 }
+                 $table .= &Apache::loncommon::start_data_table_row();
+                 $table .=
+                     '<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>';
+                 $table .=
+                     '<td align="right">'.$data->{'sections'}.'</td>';
+                 $table .=
+                     '<td align="right">'.$data->{'stdno'}.'</td>';
+                 foreach my $item ('avetries','difficulty','disc') {
+                     $table .= '<td align="right">';
+                     if (exists($data->{$item})) {
+                         $table .= sprintf('%.2f',$data->{$item}).'&nbsp;';
+                     } else {
+                         $table .= '';
+                     }
+                     $table .= '</td>';
+                 }
+                 $table .=
+                     '<td><span class="LC_nobreak">'.
+                     &Apache::lonlocal::locallocaltime($data->{'timestamp'}).
+                     '</span></td>';
+                 $table .= &Apache::loncommon::end_data_table_row().$/;
+             }
+             $table .= &Apache::loncommon::end_data_table().$/;
+             $r->print($table);
+         } else {
+             $r->print('<p>'
+                      .&mt('No new dynamic data found.')
+                      .'</p>'
+             );
+         }
+     } else {
+         $r->print('<h4>'.
+           &mt('No Assessment Statistical Data is available for this resource').
+                   '</h4>');
+     }
+     #
+     # Evaluation Data
+     $r->print('<h4>'.&mt('Evaluation Data').'</h4>');
+     if (exists($dynmeta{'clear'})   ||
+         exists($dynmeta{'depth'})   ||
+         exists($dynmeta{'helpful'}) ||
+         exists($dynmeta{'correct'}) ||
+         exists($dynmeta{'technical'})){
+         $r->print(&Apache::lonhtmlcommon::start_pick_box());
+         my @criteria = ('clear','depth','helpful','correct','technical');
+         my $rownum = 0;
+         foreach my $item (@criteria) {
+             my $lastrow = '';
+             $rownum ++;
+             $lastrow = 1 if ($rownum == @criteria);
+             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
+                      .&prettyprint($item,$dynmeta{$item})
+                      .&Apache::lonhtmlcommon::row_closure($lastrow)
+             );
+         }
+         $r->print(&Apache::lonhtmlcommon::end_pick_box());
+     } else {
+         $r->print('<p>'
+                  .&mt('No Evaluation Data is available for this resource.')
+                  .'</p>'
+         );
+     }
+     # Evaluation Comments
+     $uri=~/^\/res\/($match_domain)\/($match_username)\//;
+     if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
+         || ($env{'user.role.ca./'.$1.'/'.$2})) {
+         $r->print('<h4>'.&mt('Evaluation Comments').'</h4>'
+                  .'<div>('
+                  .&mt('visible to author and co-authors only')
+                  .')</div>'
+         );
+         if (exists($dynmeta{'comments'})) {
+             $r->print('<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
+         } else {
+             $r->print('<p>'
+                      .&mt('There are no Evaluation Comments on this resource.')
+                      .'</p>'
+             );
+         }
+         my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri);
+         if (defined($bombs) && $bombs ne '') {
+             $r->print('<a name="bombs" />'
+                      .'<h4 class="LC_error">'.&mt('Error Messages').'</h4>'
+                      .'<div>('
+                      .&mt('visible to author and co-authors only')
+                      .')</div>'
+                      .$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>');
+     $r->print(&Apache::lonhtmlcommon::start_pick_box());
+     my @names;
+     foreach my $key (sort(keys(%content))) {
+         if ($key!~/\.display$/) {
+             push(@names,$key);
+         }
+     }
+     if (@names > 0) {
+         my $rownum = 0;
+         foreach my $name (@names) {
+             my $lastrow = '';
+             $rownum ++;
+             $lastrow = 1 if ($rownum == @names);
+             my $display=&Apache::lonnet::metadata($uri,
+                                                   $name.'.display');
+             if (! $display) {
+                 $display=$name;
+             };
+             my $otherinfo='';
+             foreach my $item ('name','part','type','default') {
+                 if (defined(&Apache::lonnet::metadata($uri,
+                                                       $name.'.'.$item))) {
+                     $otherinfo.=' '.$item.'='.
+                         &Apache::lonnet::metadata($uri,
+                                                   $name.'.'.$item).'; ';
+                 }
+             }
+             $r->print(&Apache::lonhtmlcommon::row_title($display)
+                      .$content{$name}
+             );
+             if ($otherinfo) {
+                 $r->print(' ('.$otherinfo.')');
+             }
+             $r->print(&Apache::lonhtmlcommon::row_closure($lastrow));
+         }
+     }
+     $r->print(&Apache::lonhtmlcommon::end_pick_box());
+     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$//;
+     my $meta_uri = $disuri;
+     my $path;
+     if ($disuri =~ m|/portfolio/|) {
+ 	($disuri, $meta_uri, $path) =  &portfolio_display_uri($disuri,1);
+     }
+     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" action="" 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('<p><a href="'.$disuri.'">'.$goback.'</a></p>');
+ 	    if ($env{'form.clearmsg'}) {
+ 		my ($diruri) = ($disuri =~ m{(.*/)[^/]*});
+ 		$r->print('<p><a href="'.$diruri.'">'.
+ 			  &mt('Back To Directory').'</a></p>');
+ 	    }
+ 	}
+ 	$r->print('<br />'.$bombs);
+     } else {
+         my $displayfile=&mt('Metadata for [_1]',$disuri);
+         if ($disuri=~/\/default$/) {
+             my $dir=$disuri;
+             $dir=~s/default$//;
+             $displayfile=&mt('Default Metadata for Directory [_1]'
+                             ,'<span class="LC_filename">'.$dir.'</span>');
+         }
+         %Apache::lonpublisher::metadatafields=();
+         %Apache::lonpublisher::metadatakeys=();
+         my $result=&Apache::lonnet::getfile($fn);
+         if ($result == -1){
+ 	    $r->print(&mt('Creating new file [_1]'),$meta_uri);
+         } else {
+             &Apache::lonpublisher::metaeval($result);
+         }
+         if ($env{'form.new_courserestricted'}) {
+             my $new_assoc_course = $env{'form.new_courserestricted'};
+             my $prev_courserestricted = $Apache::lonpublisher::metadatafields{'courserestricted'};
+             if (($prev_courserestricted) &&
+                 ($prev_courserestricted ne $new_assoc_course)) {
+                 my $transfers = [];
+                 foreach my $key (keys(%env)) {
+                     if ($key =~ /^form\.transfer_(.+)$/) {
+                         push(@{$transfers},$1);
+                     }
+                 }
+                 if (@{$transfers} > 0) {
+                     &store_transferred_addedfields($fn,$uri,$transfers);
+                 }
+             }
+         }
+         $r->print(<<ENDEDIT);
+ <p>$displayfile</p>
+ <form method="post" action="" name="defaultmeta">
+ ENDEDIT
+         my %lt=&fieldnames($file_type);
+ 	my $output;
+ 	my @fields;
+ 	my $added_metadata_fields;
+ 	my @added_order;
+         if ($file_type eq 'groups') {
+             $Apache::lonpublisher::metadatafields{'courserestricted'}=
+                 'course.'.$env{'request.course.id'};
+         }
+         if ((! $Apache::lonpublisher::metadatafields{'courserestricted'}) &&
+                 (! $env{'form.new_courserestricted'}) && (! $file_type eq 'groups')) {
+             $Apache::lonpublisher::metadatafields{'courserestricted'}=
+                 'none';
+         } elsif ($env{'form.new_courserestricted'}) {
+             $Apache::lonpublisher::metadatafields{'courserestricted'}=
+                 $env{'form.new_courserestricted'};
+         }
+ 	if ($file_type eq 'portfolio' || $file_type eq 'groups') {
+ 	    if(exists ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})) {
+ 	        # retrieve fieldnames (in order) from the course restricted list
+ 	        @fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'}));
+ 	    } else {
+ 	        # no saved field list, use default list
+ 	        @fields =  ('author','title','subject','keywords','abstract',
+ 			    'notes','lowestgradelevel',
+ 	                    'highestgradelevel','standards');
+                 if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) {
+                     my $assoc_crs = $1;
+ 	            $added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames($assoc_crs);
+ 	            if ($env{'course.'.$assoc_crs.'.metadata.addedorder'}) {
+ 	                @added_order = split(/,/,$env{'course.'.$assoc_crs.'.metadata.addedorder'});
+ 	            }
+ 	            $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join(",",@fields);
+                 }
+ 	    }
+ 	} else {
+ 	    @fields = ('author','title','subject','keywords','abstract','notes',
+ 		       'copyright','customdistributionfile','language',
+ 		       'standards',
+ 		       'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
+ 		       'obsolete','obsoletereplacement');
+         }
+         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
+                 $Apache::lonpublisher::metadatafields{'copyright'}=
+ 		    'default';
+         }
+ 	if (($file_type eq 'portfolio') || ($file_type eq 'groups'))  {
+ 	    if (! $Apache::lonpublisher::metadatafields{'mime'}) {
+                 ($Apache::lonpublisher::metadatafields{'mime'}) =
+ 		    ( $target=~/\.(\w+)$/ );
+ 	    }
+ 	    if (! $Apache::lonpublisher::metadatafields{'owner'}) {
+ 		$Apache::lonpublisher::metadatafields{'owner'} =
+ 		    $env{'user.name'}.':'.$env{'user.domain'};
+ 	    }
+ 	    if (! $Apache::lonpublisher::metadatafields{'author'}) {
+ 		$Apache::lonpublisher::metadatafields{'author'} =
+ 		    &Apache::loncommon::plainname($env{'user.name'},
+ 						  $env{'user.domain'});
+ 	    }
+ 	    if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {
+                 if ($file_type eq 'portfolio') {
+ 		    $r->print(&mt('Associated with course [_1]',
+ 		        '<strong><a href="'.$uri.'?changecourse=true">'.
+ 		        $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
+ 		        ".description"}.
+ 			      '</a></strong>').'<br />');
+                 } else {
+                     $r->print(&mt('Associated with course [_1]',
+                         '<strong>'.
+   $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
+                         ".description"}.'</strong>').'<br />');
+                 }
+ 	    } else {
+ 		$r->print('<a href="'.$uri.'?changecourse=true">'.&mt('This resource is not associated with a course.').'</a><br />');
+ 	    }
+ 	}
+ 	if (@added_order) {
+ 	    foreach my $field_name (@added_order) {
+                 push(@fields,$field_name);
+                 $lt{$field_name} = $$added_metadata_fields{$field_name};
+ 	    }
+ 	} else {
+             foreach my $field_name (keys(%$added_metadata_fields)) {
+                 push(@fields,$field_name);
+                 $lt{$field_name} = $$added_metadata_fields{$field_name};
+             }
+         }
+         $output .= &Apache::lonhtmlcommon::start_pick_box();
+         my $last = $#fields + 1;
+         my $rowcount = 0;
+         foreach my $field_name (@fields) {
+             $rowcount++;
+             if (defined($env{'form.new_'.$field_name})) {
+                 my @values = &Apache::loncommon::get_env_multiple('form.new_'.$field_name);
+                 my $newvalue = '';
+                 foreach my $item (@values) {
+                     if ($item ne '') {
+                         $newvalue .= $item.',';
+                     }
+                 }
+                 $newvalue =~ s/,$//;
+                 $Apache::lonpublisher::metadatafields{$field_name}=$newvalue;
+             }
+             if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none'
+ 		&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) {
+                 # handle restrictions here
+                 if ((($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
+                     ($field_name eq 'courserestricted'))&&
+                     (!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){
+                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
+                               .&prettyinput($field_name,
+ 				   $Apache::lonpublisher::metadatafields{$field_name},
+ 				                    'new_'.$field_name,'defaultmeta',
+ 				                    undef,undef,undef,undef,
+                                                     $Apache::lonpublisher::metadatafields{'courserestricted'});
+                     $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
+                  }
+             } else {
+                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
+                               .&prettyinput($field_name,
+ 					   $Apache::lonpublisher::metadatafields{$field_name},
+                                            'new_'.$field_name,'defaultmeta')
+                               .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
+             }
+         }
+         $output .= &Apache::lonhtmlcommon::end_pick_box();
+ 	if ($env{'form.store'}) {
+             my ($outcome,$result) = &store_metadata($fn,$uri,'store');
+             $r->print($result);
+ 	}
+         my $savebutton = '<p><input type="submit" name="store"'
+                         .' value="'.&mt('Save').'" title="'.&mt('Save Metadata').'" /></p>';
+         $r->print($savebutton.$output.$savebutton);
+ 	if ($file_type eq 'portfolio' || $file_type eq 'groups') {
+ 	    my ($port_path,$group) = &get_port_path_and_group($uri);
+             if ($group ne '') {
+                 $r->print('<input type="hidden" name="group" value="'.$group.'" />');
+             }
+             $r->print('<input type="hidden" name="currentpath" value="'.$env{'form.currentpath'}.'" />');
+ 	    $r->print('</form><br /><br /><form method="post" action="'.$port_path.'">');
+ 	    if ($group ne '') {
+ 	        $r->print('<input type="hidden" name="group" value="'.$group.'" />');
+             }
+ 	    $r->print('<input type="hidden" name="currentpath" value="'.$path.'" />'.
+ 		      '<input type="submit" name="cancel" value="'.&mt('Discard Edits and Return to Portfolio').'" />');
+ 	}
+     }
+     $r->print('</form>');
+     return;
+ }
+ sub store_metadata {
+     my ($fn,$uri,$caller) = @_;
+     my $mfh;
+     my $formname='store';
+     my ($file_content,$output,$outcome);
+     if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {
+         $Apache::lonpublisher::metadatafields{'keywords'} =
+             join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
+             }
+     foreach my $field (sort(keys(%Apache::lonpublisher::metadatafields))) {
+         next if ($field =~ /\./);
+         my $unikey=$field;
+         $unikey=~/^([A-Za-z_]+)/;
+         my $tag=$1;
+         $tag=~tr/A-Z/a-z/;
+         $file_content.= "\n\<$tag";
+         foreach my $key (split(/\,/,$Apache::lonpublisher::metadatakeys{$unikey})) {
+             my $value = $Apache::lonpublisher::metadatafields{$unikey.'.'.$key};
+             $value=~s/\"/\'\'/g;
+             $file_content.=' '.$key.'="'.$value.'"' ;
+         }
+         $file_content.= '>'.
+             &HTML::Entities::encode
+                 ($Apache::lonpublisher::metadatafields{$unikey},'<>&"').
+                 '</'.$tag.'>';
+     }
+     if ($fn =~ m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles|) {
+         my ($path, $new_fn);
+         if ($fn =~ m|$match_name/groups/\w+/portfolio/|) {
+             ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|);
+         } else {
+             ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|);
+         }
+         ($outcome,my $result) =
+             &store_portfolio_metadata($formname,$file_content,
+                                       $path,$new_fn,$uri,$caller);
+         $output .= $result;
+     } else {
+         if (! ($mfh=Apache::File->new('>'.$fn))) {
+             $output .= '<p class="LC_error">';
+             if ($caller eq 'transfer') {
+                 $output .= &mt('Could not transfer data in added fields to notes');
+             } else {
+                 $output .= &mt('Could not write metadata');
+             }
+             $output .= ', '.&mt('FAIL').'</p>';
+             $outcome = 'fail';
+         } else {
+             print $mfh ($file_content);
+             close($mfh);
+             &update_metadata_table($uri);
+             my $confirmtext;
+             if ($caller eq 'transfer') {
+                 $confirmtext = &mt('Transferred data in added fields to notes');
+             } else {
+                 $confirmtext = &mt('Wrote Metadata');
+             }
+             $output .= &Apache::loncommon::confirmwrapper(
+                            &Apache::lonhtmlcommon::confirm_success(
+                                $confirmtext.' '.&Apache::lonlocal::locallocaltime(time)));
+             $outcome = 'ok';
+         }
+     }
+     return ($outcome,$output);
+ }
+ sub store_transferred_addedfields {
+     my ($fn,$uri,$transfers) = @_;
+     foreach my $item (@{$transfers}) {
+         $Apache::lonpublisher::metadatafields{'notes'} .=
+            ' '.$item.' = '.$Apache::lonpublisher::metadatafields{$item};
+     }
+     my ($outcome,$output) = &store_metadata($fn,$uri,'transfer');
+     if ($outcome eq 'ok') {
+         foreach my $item (@{$transfers}) {
+             delete($Apache::lonpublisher::metadatafields{$item});
+         }
+     }
+ }
+ sub store_portfolio_metadata {
+     my ($formname,$content,$path,$new_fn,$uri,$caller) = @_;
+     my ($outcome,$output);
+     $env{'form.'.$formname}=$content."\n";
+     $env{'form.'.$formname.'.filename'}=$new_fn;
+     my $result =&Apache::lonnet::userfileupload($formname,'',$path);
+     if ($result =~ /(error|notfound)/) {
+         $output = '<p class="LC_error">';
+         if ($caller eq 'transfer') {
+             $output .=
+                 &mt('Could not transfer data in added fields to notes');
+         } else {
+             $output .= &mt('Could not write metadata');
+         }
+         $output .= ', '.&mt('FAIL').'</p>';
+         $outcome = 'fail';
+     } else {
+         &update_metadata_table($uri);
+         $output = '<p class="LC_success">';
+         if ($caller eq 'transfer') {
+             $output .= &mt('Transferred data in added fields to notes');
+         } else {
+             $output .= &mt('Wrote Metadata');
+         }
+         $output .= ' '.&Apache::lonlocal::locallocaltime(time).
+                    '</p>';
+         $outcome = 'ok';
+     }
+     return ($outcome,$output);
+ }
+ sub update_metadata_table {
+     my ($uri) = @_;
+     my ($type,$udom,$uname,$file_name,$group) =
+ 	&Apache::lonnet::parse_portfolio_url($uri);
+     $file_name =~ s/\.meta$//;
+     my $current_permissions =
+         &Apache::lonnet::get_portfile_permissions($udom,$uname);
+     my %access_controls =
+         &Apache::lonnet::get_access_controls($current_permissions,$group,
+                                              $file_name);
+     my $access_hash = $access_controls{$file_name};
+     my $available = 0;
+     if (ref($access_hash) eq 'HASH') {
+         foreach my $key (keys(%{$access_hash})) {
+             my ($num,$scope,$end,$start) =
+                 ($key =~ /^([^:]+):([a-z]+)_(\d*)_?(\d*)$/);
+             if ($scope eq 'public' || $scope eq 'guest') {
+                 $available = 1;
+                 last;
+             }
+         }
+     }
+     if ($available) {
+         my $result =
+             &Apache::lonnet::update_portfolio_table($uname,$udom,
+             $file_name,'portfolio_metadata',$group,'update');
+     }
+ }
 ;
  __END__
+ =head1 NAME
+ Apache::lonmeta - display meta data
+ =head1 SYNOPSIS
+ Handler to display meta data
+ This is part of the LearningOnline Network with CAPA project
+ described at http://www.lon-capa.org.
+ =head1 SUBROUTINES
+ =over
+ =item &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}
+ =item dynamicmeta()
+ Fetch and evaluate dynamic metadata
+ =item access_count()
+ =item alttag()
+ Try to make an alt tag if there is none
+ =item authordisplay()
+ Author display
+ =item evalgraph()
+ Pretty display
+ =item diffgraph()
+ =item fieldnames()
+ =item portfolio_linked_path()
+ =item get_port_path_and_group()
+ =item portfolio_display_uri()
+ =item pre_select_course()
+ =item select_course()
+ =item prettyprint()
+ Pretty printing of metadata field
+ =item direct()
+ Pretty input of metadata field
+ =item selectbox()
+ =item relatedfield()
+ =item prettyinput()
+ =item report_bombs()
+ =item present_uneditable_metadata()
+ =item present_editable_metadata()
+ =item store_metadata()
+ =item store_transferred_addedfields()
+ =item store_portfolio_metadata()
+ =item update_metadata_table()
+ =back
+ =cut

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.22
changed lines
	Added in v.1.242