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

Diff for /loncom/interface/lonmeta.pm between versions 1.136 and 1.168.2.2

version 1.136, 2005/12/09 23:49:45 version 1.168.2.2, 2006/08/28 00:14:19
Line 39  use Apache::lonpublisher; Line 39  use Apache::lonpublisher;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmysql;  use Apache::lonmysql;
 use Apache::lonmsg;  use Apache::lonmsg;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
   
 ############################################################  ############################################################
Line 71  sub get_dynamic_metadata_from_sql { Line 73  sub get_dynamic_metadata_from_sql {
     if (! defined($authordom) || ! defined($author)) {      if (! defined($authordom) || ! defined($author)) {
         return ();          return ();
     }      }
     my @Fields = ('url','count','course',      my $query = 'SELECT * FROM metadata WHERE url LIKE "'.$url.'%"';
                   '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 $server = &Apache::lonnet::homeserver($author,$authordom);
     my $reply = &Apache::lonnet::metadata_query($query,undef,undef,      my $reply = &Apache::lonnet::metadata_query($query,undef,undef,
                                                 ,[$server]);                                                  ,[$server]);
Line 106  sub get_dynamic_metadata_from_sql { Line 95  sub get_dynamic_metadata_from_sql {
         while (my $result = <$fh>) {          while (my $result = <$fh>) {
             chomp($result);              chomp($result);
             next if (! $result);              next if (! $result);
             my @Data =               my %hash=&LONCAPA::lonmetadata::metadata_col_to_hash(map { &unescape($_) } split(/\,/,$result));
                 map {               foreach my $key (keys(%hash)) {
                     &Apache::lonnet::unescape($_);                   $ReturnHash{$hash{'url'}}->{$key}=$hash{$key};
                 } split(',',$result);  
             my $url = $Data[0];  
             for (my $i=0;$i<=$#Fields;$i++) {  
                 $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];  
             }              }
         }          }
         $finished = 1;          $finished = 1;
Line 185  sub authordisplay { Line 170  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,'preview').' <tt>['.$aname.'@'.$adom.']</tt>';           $aname,$adom,'preview').' <tt>['.$aname.':'.$adom.']</tt>';
 }  }
   
 # Pretty display  # Pretty display
Line 248  sub fieldnames { Line 233  sub fieldnames {
          'notes' => 'Notes',           'notes' => 'Notes',
          'abstract' => 'Abstract',           'abstract' => 'Abstract',
          'lowestgradelevel' => 'Lowest Grade Level',           'lowestgradelevel' => 'Lowest Grade Level',
          'highestgradelevel' => 'Highest Grade Level',           'highestgradelevel' => 'Highest Grade Level');
          'courserestricted' => 'Course Restricting Metadata');      
       if (! defined($file_type) || $file_type ne 'portfolio') {
           %fields = 
       (%fields,
        'courserestricted' => 'Course Restricting Metadata');
       }
                     
     if (! defined($file_type) || $file_type ne 'portfolio') {      if (! defined($file_type) || $file_type ne 'portfolio') {
         %fields =           %fields = 
Line 290  sub fieldnames { Line 280  sub fieldnames {
     return &Apache::lonlocal::texthash(%fields);      return &Apache::lonlocal::texthash(%fields);
 }  }
   
   sub portfolio_linked_path {
       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;
   }
   
   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('</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 {  sub select_course {
     my ($r)=@_;      my $output=$/;
       my $current_restriction=
    $Apache::lonpublisher::metadatafields{'courserestricted'};
       my $selected = ($current_restriction eq 'none' ? 'selected="selected"' 
                                      : '');
   
       $output .= '<select name="new_courserestricted" >';
       $output .= '<option value="none" '.$selected.'>'.
    &mt('None').'</option>'.$/;
     my %courses;      my %courses;
     foreach my $key (keys (%env)) {       foreach my $key (keys(%env)) {
         if ($key =~ m/\.metadata\./) {          if ($key !~ m/^course\.(.+)\.description$/) { next; }
             $key =~ m/^course\.(.+)(\.metadata.+$)/;   my $cid = $1;
             my $course = $1;          if ($env{$key} !~ /\S/) { next; }
             my $coursekey = 'course.'.$course.'.description';   $courses{$key} = $cid;
             my $value = $env{$coursekey};      }
             $courses{$coursekey} = $value;      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"' 
     $r->print('<h3>Associate resource with a course</h3><br />');                                       : '');
     $r->print('<form action="" method="post">');          if ($env{$key} !~ /\S/) { next; }
     $r->print('Select course <br />');   $output .= '<option value="'.$cid.'" '.$selected.'>';
     $r->print('<select name="metacourse" >');   $output .= $env{$key};
     my $meta_not_found = 1;   $output .= '</option>'.$/;
     foreach my $key (keys (%courses)) {       $selected = '';
         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="Associate" />');  
         $r->print('</form>');  
     }      }
     return 'ok';      $output .= '</select><br />';
       return ($output);
 }  }
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
Line 387  sub prettyprint { Line 471  sub prettyprint {
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list') ||   ($type eq 'sequsage_list') ||
  ($type eq 'dependencies')) {   ($type eq 'dependencies')) {
  return '<ul><font size="-1">'.join("\n",map {   return '<font size="-1"><ul>'.join("\n",map {
             my $url = &Apache::lonnet::clutter($_);              my $url = &Apache::lonnet::clutter($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
Line 424  sub prettyprint { Line 508  sub prettyprint {
     # List of courses      # List of courses
     if ($type=~/\_list/) {      if ($type=~/\_list/) {
         my @Courses = split(/\s*\,\s*/,$value);          my @Courses = split(/\s*\,\s*/,$value);
         my $Str;          my $Str='<font size="-1"><ul>';
         foreach my $course (@Courses) {          foreach my $course (@Courses) {
             my %courseinfo = &Apache::lonnet::coursedescription($course);              my %courseinfo =
    &Apache::lonnet::coursedescription($course,
      {'one_time' => 1});
             if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {              if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
                 next;                  next;
             }              }
             if ($Str ne '') { $Str .= '<br />'; }              $Str .= '<li><a href="/public/'.$courseinfo{'domain'}.'/'.
             $Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'.  
                 $courseinfo{'num'}.'/syllabus" target="preview">'.                  $courseinfo{'num'}.'/syllabus" target="preview">'.
                 $courseinfo{'description'}.'</a>';                  $courseinfo{'description'}.'</a></li>';
         }          }
  return $Str;   return $Str.'</ul></font>';
     }      }
     # No pretty print found      # No pretty print found
     return $value;      return $value;
Line 484  sub prettyinput { Line 569  sub prettyinput {
         $size = 80;          $size = 80;
     }      }
     my $output;      my $output;
     if (defined($course_key)) {      if (defined($course_key) 
    && exists($env{$course_key.'.metadata.'.$type.'.options'})) {
         my $stu_add;          my $stu_add;
         my $only_one;          my $only_one;
         my %meta_options;          my %meta_options;
Line 516  sub prettyinput { Line 602  sub prettyinput {
             $cur_values_stu = $value;              $cur_values_stu = $value;
         }          }
         if ($type eq 'courserestricted') {          if ($type eq 'courserestricted') {
             return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');              return (&select_course());
               # return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
         }          }
         if (($type eq 'keywords') || ($type eq 'subject')          if (($type eq 'keywords') || ($type eq 'subject')
              || ($type eq 'author')||($type eq  'notes')               || ($type eq 'author')||($type eq  'notes')
Line 604  sub prettyinput { Line 691  sub prettyinput {
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
     }      }
     if ($type eq 'courserestricted') {      if ($type eq 'courserestricted') {
             return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');          return (&select_course());
           #return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
     }      }
   
     # Dates      # Dates
Line 636  sub handler { Line 724  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      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();  
     $r->print($html.'<head><title>'.  
               'Catalog Information'.  
               '</title></head>');  
     if ($uri=~m:/adm/bombs/(.*)$:) {      if ($uri=~m:/adm/bombs/(.*)$:) {
         $r->print(&Apache::loncommon::bodytag('Error Messages'));          $r->print(&Apache::loncommon::start_page('Error Messages'));
         # Looking for all bombs?          # Looking for all bombs?
         &report_bombs($r,$uri);          &report_bombs($r,$uri);
     } elsif ($uri=~/\/portfolio\//) {      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {
  ($resdomain,$resuser)=      ($resdomain,$resuser)=
     (&Apache::lonnet::declutter($uri)=~m|^(\w+)/(\w+)/portfolio|);   (&Apache::lonnet::declutter($uri)=~m|^(\w+)/(\w+)/portfolio|);
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information',
           ('Edit Portfolio File Information','','','',$resdomain));   undef,
         &present_editable_metadata($r,$uri,'portfolio');   {'domain' => $resdomain,}));
         &select_course($r);          if ($env{'form.store'}) {
     } elsif ($uri=~/^\/\~/) {               &present_editable_metadata($r,$uri,'portfolio');
           } else {
               &pre_select_course($r,$uri);
           }
       } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
           $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',
    undef,
    {'domain' => $resdomain,}));
     
           &present_editable_metadata($r,$uri,'groups');    
       } elsif ($uri=~m|^/~|) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::start_page('Edit Catalog nformation',
                   ('Edit Catalog Information','','','',$resdomain));   undef,
    {'domain' => $resdomain,}));
         &present_editable_metadata($r,$uri);          &present_editable_metadata($r,$uri);
     } else {      } else {
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::start_page('Catalog Information',
   ('Catalog Information','','','',$resdomain));   undef,
    {'domain' => $resdomain,}));
         &present_uneditable_metadata($r,$uri);          &present_uneditable_metadata($r,$uri);
     }      }
     $r->print('</body></html>');      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
Line 718  ENDCLEAR Line 813  ENDCLEAR
 sub present_uneditable_metadata {  sub present_uneditable_metadata {
     my ($r,$uri) = @_;      my ($r,$uri) = @_;
     #      #
       my $uploaded = ($uri =~ m|/uploaded/|);
     my %content=();      my %content=();
     # Read file      # Read file
     foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {      foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
Line 728  sub present_uneditable_metadata { Line 824  sub present_uneditable_metadata {
     my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);      my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
     $uri=~s/\.meta$//;      $uri=~s/\.meta$//;
     my $disuri=&Apache::lonnet::clutter($uri);      my $disuri=&Apache::lonnet::clutter($uri);
       $disuri=~s/^\/adm\/wrapper//;
     # version      # version
     my $currentversion=&Apache::lonnet::getversion($disuri);  
     my $versiondisplay='';      my $versiondisplay='';
     if ($thisversion) {      if (!$uploaded) {
         $versiondisplay=&mt('Version').': '.$thisversion.   my $currentversion=&Apache::lonnet::getversion($disuri);
             ' ('.&mt('most recent version').': '.   if ($thisversion) {
             ($currentversion>0 ?       $versiondisplay=&mt('Version').': '.$thisversion.
              $currentversion   :   ' ('.&mt('most recent version').': '.
              &mt('information not available')).')';   ($currentversion>0 ? 
     } else {   $currentversion   :
         $versiondisplay='Version: '.$currentversion;   &mt('information not available')).')';
    } else {
       $versiondisplay='Version: '.$currentversion;
    }
     }      }
     # crumbify displayed URL               uri     target prefix form  size      # crumbify displayed URL               uri     target prefix form  size
     $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');      $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');
Line 758  sub present_uneditable_metadata { Line 857  sub present_uneditable_metadata {
     if (! defined($title)) {      if (! defined($title)) {
         $title = 'Untitled Resource';          $title = 'Untitled Resource';
     }      }
     foreach ('title',       my @fields;
              'author',       if ($uploaded) {
              'subject',    @fields = ('title','author','subject','keywords','notes','abstract',
              'keywords',      'lowestgradelevel','highestgradelevel','standards','mime',
              'notes',      'owner');
              'abstract',      } else {
              'lowestgradelevel',   @fields = ('title', 
              'highestgradelevel',     'author', 
              'standards',      'subject', 
              'mime',      'keywords', 
              'language',      'notes', 
              'creationdate',      'abstract',
              'lastrevisiondate',      'lowestgradelevel',
              'owner',      'highestgradelevel',
              'copyright',      'standards', 
              'customdistributionfile',     'mime', 
              'sourceavail',     'language', 
              'sourcerights',      'creationdate', 
              'obsolete',      'lastrevisiondate', 
              'obsoletereplacement') {     'owner', 
         $table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}.     'copyright', 
      'customdistributionfile',
      'sourceavail',
      'sourcerights', 
      'obsolete', 
      'obsoletereplacement');
       }
       foreach my $field (@fields) {
           $table.='<tr><td bgcolor="#AAAAAA">'.$lt{$field}.
             '</td><td bgcolor="#CCCCCC">'.              '</td><td bgcolor="#CCCCCC">'.
             &prettyprint($_,$content{$_}).'</td></tr>';              &prettyprint($field,$content{$field}).'</td></tr>';
         delete $content{$_};          delete($content{$field});
     }      }
     #      #
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
Line 795  $versiondisplay Line 902  $versiondisplay
 $table  $table
 </table>  </table>
 ENDHEAD  ENDHEAD
     if ($env{'user.adv'}) {      if (!$uploaded && $env{'user.adv'}) {
         &print_dynamic_metadata($r,$uri,\%content);          &print_dynamic_metadata($r,$uri,\%content);
     }      }
     return;      return;
Line 878  sub print_dynamic_metadata { Line 985  sub print_dynamic_metadata {
             foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {              foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
                 my $data = $dynmeta{'stats'}->{$identifier};                  my $data = $dynmeta{'stats'}->{$identifier};
                 my $course = $data->{'course'};                  my $course = $data->{'course'};
                 my %courseinfo = &Apache::lonnet::coursedescription($course);                  my %courseinfo = 
       &Apache::lonnet::coursedescription($course,
          {'one_time' => 1});
                 if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {                  if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
                     &Apache::lonnet::logthis('lookup for '.$course.' failed');                      &Apache::lonnet::logthis('lookup for '.$course.' failed');
                     next;                      next;
Line 998  sub print_dynamic_metadata { Line 1107  sub print_dynamic_metadata {
 #####################################################  #####################################################
 #####################################################  #####################################################
 sub present_editable_metadata {  sub present_editable_metadata {
     my ($r,$uri, $file_type) = @_;      my ($r,$uri,$file_type) = @_;
     # Construction Space Call      # Construction Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
     my $fn=&Apache::lonnet::filelocation('',$uri);      my $fn=&Apache::lonnet::filelocation('',$uri);
     $disuri=~s/^\/\~/\/priv\//;      $disuri=~s{^/\~}{/priv/};
     $disuri=~s/\.meta$//;      $disuri=~s/\.meta$//;
     $disuri=~s|^/editupload||;      my $meta_uri = $disuri;
       my $path;
       if ($disuri =~ m|/portfolio/|) {
    ($disuri, $meta_uri, $path) =  &portfolio_display_uri($disuri,1);
       }
     my $target=$uri;      my $target=$uri;
     $target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;      $target=~s{^/\~}{/res/$env{'request.role.domain'}/};
     $target=~s/\.meta$//;      $target=~s/\.meta$//;
     my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);      my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);
     if ($bombs) {      if ($bombs) {
Line 1059  ENDDEL Line 1172  ENDDEL
         %Apache::lonpublisher::metadatakeys=();          %Apache::lonpublisher::metadatakeys=();
         my $result=&Apache::lonnet::getfile($fn);          my $result=&Apache::lonnet::getfile($fn);
         if ($result == -1){          if ($result == -1){
             $r->print('Creating new '.$disuri);      $r->print(&mt('Creating new file [_1]'),$meta_uri);
         } else {          } else {
             &Apache::lonpublisher::metaeval($result);              &Apache::lonpublisher::metaeval($result);
         }          }
Line 1074  ENDEDIT Line 1187  ENDEDIT
  my $output;   my $output;
  my @fields;   my @fields;
  if ($file_type eq 'portfolio') {   if ($file_type eq 'portfolio') {
     @fields =  ('author','title','subject','keywords','abstract','notes','lowestgradelevel',      @fields =  ('author','title','subject','keywords','abstract',
                 'highestgradelevel','standards','courserestricted');   'notes','lowestgradelevel',
                   'highestgradelevel','standards');
  } else {   } else {
     @fields = ('author','title','subject','keywords','abstract','notes',      @fields = ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',                   'copyright','customdistributionfile','language',
Line 1083  ENDEDIT Line 1197  ENDEDIT
                  'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',                   'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
                  'obsolete','obsoletereplacement');                   'obsolete','obsoletereplacement');
         }          }
         my $metacourse;          if ($file_type eq 'groups') {
         if ($env{'form.metacourse'} ) {              $Apache::lonpublisher::metadatafields{'courserestricted'}=
             $Apache::lonpublisher::metadatafields{'courserestricted'} = $env{'form.metacourse'};                  'course.'.$env{'request.course.id'}; 
             $metacourse = $env{'form.metacourse'};          }
          } else {          if ((! $Apache::lonpublisher::metadatafields{'courserestricted'}) &&
             if (! $Apache::lonpublisher::metadatafields{'courserestricted'}) {                  (! $env{'form.new_courserestricted'}) && (! $file_type eq 'groups')) {
                 $Apache::lonpublisher::metadatafields{'courserestricted'}=              $Apache::lonpublisher::metadatafields{'courserestricted'}=
                     'none';                  'none';
                 $metacourse = 'none';          } elsif ($env{'form.new_courserestricted'}) {
             } else {              $Apache::lonpublisher::metadatafields{'courserestricted'}=
                 $metacourse = $Apache::lonpublisher::metadatafields{'courserestricted'};                  $env{'form.new_courserestricted'}; 
             }          }           
         }  
         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
                 'default';      'default';
         }  
         if ($metacourse ne 'none') {  
              $r->print('Using: <strong> '.$env{$metacourse.".description"}."</strong> metadata framework<br />");  
         }          }
         foreach my $field_name(@fields) {   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{'courserestricted'} ne 'none') {
    $r->print(&mt('Associated with course [_1]','<strong>'.$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.".description"}.
         '</strong>').'<br />');
       } else {
    $r->print("This resource is not associated with a course.<br />");
       }
    }
           foreach my $field_name (@fields) {
   
             if (defined($env{'form.new_'.$field_name})) {              if (defined($env{'form.new_'.$field_name})) {
                 $Apache::lonpublisher::metadatafields{$field_name}=                  $Apache::lonpublisher::metadatafields{$field_name}=
                     join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));                      join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
             }              }
             if ($metacourse ne 'none') {              if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none'
    && exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) {
                 # handle restrictions here                  # handle restrictions here
                 if ($env{$metacourse.'.metadata.'.$field_name.'.options'} =~ m/active/){                  if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
                     $output.=('<p>'.$lt{$field_name}.': '.                      ($field_name eq 'courserestricted')){
                       $output.=("\n".'<p>'.$lt{$field_name}.': '.
                               &prettyinput($field_name,                                &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');                      'new_'.$field_name,'defaultmeta',
                  } elsif ($field_name eq 'courserestricted') {                      undef,undef,undef,undef,
                             $output.=(                      $Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>'."\n");
                                 &prettyinput($field_name,  
     $Apache::lonpublisher::metadatafields{$field_name},  
     'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse));  
                  }                   }
             } else {              } else {
                 if ($field_name ne 'courserestricted') {  
                     $output.=('<p>'.$lt{$field_name}.': '.                      $output.=('<p>'.$lt{$field_name}.': '.
                             &prettyinput($field_name,                              &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$field_name,'defaultmeta').'</p>');     'new_'.$field_name,'defaultmeta').'</p>');
         } else {                 
                     $output.=&prettyinput($field_name,  
    $Apache::lonpublisher::metadatafields{$field_name},  
    'new_'.$field_name,'defaultmeta');  
                 }  
             }              }
         }          }
         if ($env{'form.store'}) {   if ($env{'form.store'}) {
             my $mfh;      my $mfh;
             my $formname='store';       my $formname='store'; 
             my $file_content;      my $file_content;
             foreach my $meta_field (keys %env) {      if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {
                 if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {   $Apache::lonpublisher::metadatafields{'keywords'} = 
                     $Apache::lonpublisher::metadatafields{'keywords'} =       join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
                         join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));      }
                 }  
             }      foreach (sort keys %Apache::lonpublisher::metadatafields) {
             foreach (sort keys %Apache::lonpublisher::metadatafields) {   next if ($_ =~ /\./);
                 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/;   $file_content.= "\n\<$tag";
                 $file_content.= "\n\<$tag";   foreach (split(/\,/,
                 foreach (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;      $file_content.=' '.$_.'="'.$value.'"' ;
                     $file_content.=' '.$_.'="'.$value.'"' ;      # print $mfh ' '.$_.'="'.$value.'"';
                     # print $mfh ' '.$_.'="'.$value.'"';   }
                 }   $file_content.= '>'.
                 $file_content.= '>'.      &HTML::Entities::encode
                     &HTML::Entities::encode      ($Apache::lonpublisher::metadatafields{$unikey},
                     ($Apache::lonpublisher::metadatafields{$unikey},       '<>&"').
                      '<>&"').       '</'.$tag.'>';
                      '</'.$tag.'>';      }
             }      if ($fn =~ m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/portfolio/|) {
             if ($fn =~ /\/portfolio\//) {   my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|);
                 $fn =~ /\/portfolio\/(.*)$/;                  $r->print(&store_portfolio_metadata($formname,$file_content,$path,
                 my $new_fn = '/'.$1;                                                      $new_fn));    
                 $env{'form.'.$formname}=$file_content."\n";              } elsif ($fn =~  m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/|) {
                 $env{'form.'.$formname.'.filename'}=$new_fn;                  my ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|);
                 &Apache::lonnet::userfileupload('uploaddoc','',                  $r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));
          'portfolio'.$env{'form.currentpath'});      } else {
                 if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {   if (!  ($mfh=Apache::File->new('>'.$fn))) {
                     $r->print('<p><font color="red">'.      $r->print('<p><font color="red">'.
                       &mt('Could not write metadata').', '.        &mt('Could not write metadata').', '.
                      &mt('FAIL').'</font></p>');        &mt('FAIL').'</font></p>');
                 } else {   } else {
                     $r->print('<p><font color="blue">'.&mt('Wrote Metadata').      print $mfh $file_content;
   ' '.&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').      $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
       ' '.&Apache::lonlocal::locallocaltime(time).        ' '.&Apache::lonlocal::locallocaltime(time).
       '</font></p>');        '</font></p>');
                 }   }
             }      }
         }   }
   
  $r->print($output.'<br /><input type="submit" name="store" value="'.   $r->print($output.'<br /><input type="submit" name="store" value="'.
                   &mt('Store Catalog Information').'">');                    &mt('Store Catalog Information').'">');
   
    if ($file_type eq 'portfolio') {
       my ($port_path,$group) = &get_port_path_and_group($uri);
               if ($group) {
                   $r->print('<input type="hidden" name="group" value="'.$group.'" />');
               }
       $r->print('</form>
                  <br /><br /><form method="POST" action="'.$port_path.'">'.
         '<input type="hidden" name="group" value="'.$group.'" />'.
         '<input type="hidden" name="currentpath" value="'.$path.'" />'.
         '<input type="submit" name="cancel" value="'.&mt('Discard Edits and Return to Portfolio').'">');
    }
     }      }
       
     $r->print('</form>');      $r->print('</form>');
   
     return;      return;
 }  }
   
   sub store_portfolio_metadata {
       my ($formname,$content,$path,$new_fn) = @_;
       $env{'form.'.$formname}=$content."\n";
       $env{'form.'.$formname.'.filename'}=$new_fn;
       my $result =&Apache::lonnet::userfileupload($formname,'',$path);
       if ($result =~ /(error|notfound)/) {
           return '<p><font color="red">'.
                     &mt('Could not write metadata').', '.
                     &mt('FAIL').'</font></p>';
       } else {
           return '<p><font color="blue">'.&mt('Wrote Metadata').
                     ' '.&Apache::lonlocal::locallocaltime(time).'</font></p>';
       }
   }
   
 1;  1;
 __END__  __END__
   
        
Removed from v.1.136  
changed lines
  Added in v.1.168.2.2

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.