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

Diff for /loncom/interface/lonmeta.pm between versions 1.106 and 1.199

version 1.106, 2005/08/15 21:16:22 version 1.199, 2007/01/16 07:26:45
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 LONCAPA qw(:DEFAULT :match);
   
   
 ############################################################  ############################################################
Line 61  use Apache::lonmsg; Line 62  use Apache::lonmsg;
 ############################################################  ############################################################
 sub get_dynamic_metadata_from_sql {  sub get_dynamic_metadata_from_sql {
     my ($url) = shift();      my ($url) = shift();
     my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:);      my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/});
     if (! defined($authordom)) {      if (! defined($authordom)) {
         $authordom = shift();          $authordom = shift();
     }      }
Line 71  sub get_dynamic_metadata_from_sql { Line 72  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 94  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('metadata',
                 map {    map { &unescape($_) } split(/\,/,$result));
                     &Apache::lonnet::unescape($_);               foreach my $key (keys(%hash)) {
                 } split(',',$result);                  $ReturnHash{$hash{'url'}}->{$key}=$hash{$key};
             my $url = $Data[0];  
             for (my $i=0;$i<=$#Fields;$i++) {  
                 $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];  
             }              }
         }          }
         $finished = 1;          $finished = 1;
Line 126  sub get_dynamic_metadata_from_sql { Line 111  sub get_dynamic_metadata_from_sql {
 sub dynamicmeta {  sub dynamicmeta {
     my $url=&Apache::lonnet::declutter(shift);      my $url=&Apache::lonnet::declutter(shift);
     $url=~s/\.meta$//;      $url=~s/\.meta$//;
     my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);      my ($adomain,$aauthor)=($url=~/^($match_domain)\/($match_username)\//);
     my $regexp=$url;      my $regexp=$url;
     $regexp=~s/(\W)/\\$1/g;      $regexp=~s/(\W)/\\$1/g;
     $regexp='___'.$regexp.'___';      $regexp='___'.$regexp.'___';
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 243  sub fieldnames { Line 228  sub fieldnames {
          'authorspace' => 'Author Space',           'authorspace' => 'Author Space',
          'modifyinguser' => 'Last Modifying User',           'modifyinguser' => 'Last Modifying User',
          'subject' => 'Subject',           'subject' => 'Subject',
            'standards' => 'Standards',
          'keywords' => 'Keyword(s)',           'keywords' => 'Keyword(s)',
          'notes' => 'Notes',           'notes' => 'Notes',
          'abstract' => 'Abstract',           'abstract' => 'Abstract',
          'lowestgradelevel' => 'Lowest Grade Level',           'lowestgradelevel' => 'Lowest Grade Level',
          'highestgradelevel' => 'Highest Grade Level');           'highestgradelevel' => 'Highest Grade Level');
     if (! defined($file_type) || $file_type ne 'portfolio') {      
       if ( !defined($file_type) || ($file_type ne 'portfolio' && $file_type ne 'groups') ) {
         %fields =           %fields = 
         (%fields,          (%fields,
          'domain' => 'Domain',           'domain' => 'Domain',
          'standards' => 'Standards',  
          'mime' => 'MIME Type',           'mime' => 'MIME Type',
          'language' => 'Language',           'language' => 'Language',
          'creationdate' => 'Creation Date',           'creationdate' => 'Creation Date',
Line 282  sub fieldnames { Line 268  sub fieldnames {
          'stdno'      => 'Total number of students who have worked on this problem',           'stdno'      => 'Total number of students who have worked on this problem',
          'difficulty' => 'Degree of difficulty',           'difficulty' => 'Degree of difficulty',
          'disc'       => 'Degree of discrimination',           'disc'       => 'Degree of discrimination',
  'dependencies' => 'Resources used by this resource',       'dependencies' => 'Resources used by this resource',
          );           );
     }      }
     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('<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 {  sub select_course {
     my ($r)=@_;      my $output=$/;
     $r->print('<h3>Instructor Selected Meta-Data</h3><br />');      my $current_restriction=
     $r->print('<form action="" method="post">');   $Apache::lonpublisher::metadatafields{'courserestricted'};
     $r->print('Select your course<br />');      my $selected = ($current_restriction eq 'none' ? 'selected="selected"' 
     $r->print('<select name="metacourse" >');                                     : '');
     my $meta_not_found = 1;  
     foreach my $key (keys %env) {              $output .= '<select name="new_courserestricted" >';
         if ($key =~ /\.metadata\./) {      $output .= '<option value="none" '.$selected.'>'.
             if ($meta_not_found) {   &mt('None').'</option>'.$/;
                 undef($meta_not_found);      my %courses;
                 $r->print('<h3>Instructor Selected Meta-Data</h3><br />');      foreach my $key (keys(%env)) {
                 $r->print('<form action="" method="post">');          if ($key !~ m/^course\.(.+)\.description$/) { next; }
                 $r->print('Select your course<br />');   my $cid = $1;
                 $r->print('<select name="metacourse" >');          if ($env{$key} !~ /\S/) { next; }
             }   $courses{$key} = $cid;
             my $course_key = $key;      }
             $course_key =~ s/\.metadata\..*//;      foreach my $key (sort { lc($env{$a}) cmp lc($env{$b}) } (keys(%courses))) {
             $r->print('<option value="'.$course_key.'">');   my $cid = 'course.'.$courses{$key};
             $r->print($env{$course_key.'.description'});   my $selected = ($current_restriction eq $cid ? 'selected="selected"' 
             $r->print('</option>');                                       : '');
         }          if ($env{$key} !~ /\S/) { next; }
     }   $output .= '<option value="'.$cid.'" '.$selected.'>';
     unless ($meta_not_found) {   $output .= $env{$key};
         $r->print('</select><br />');   $output .= '</option>'.$/;
         $r->print('<input type="submit" value="Assign Instructor Metadata" />');   $selected = '';
         $r->print('</form>');  
     }      }
     return 'ok';      $output .= '</select><br />';
       return ($output);
 }  }
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
Line 359  sub prettyprint { Line 448  sub prettyprint {
  ($type eq 'owner') ||   ($type eq 'owner') ||
  ($type eq 'modifyinguser') ||   ($type eq 'modifyinguser') ||
  ($type eq 'authorspace')) {   ($type eq 'authorspace')) {
  $value=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;   $value=~s/($match_username)(\:|\@)($match_domain)/&authordisplay($1,$3)/gse;
  return $value;   return $value;
     }      }
     # Gradelevel      # Gradelevel
Line 378  sub prettyprint { Line 467  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_with_no_wrapper($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
                 $title = 'Untitled';                  $title = 'Untitled';
Line 415  sub prettyprint { Line 504  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>';
    my %descriptions;
         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 />'; }      $descriptions{join('\0',@courseinfo{'domain','description'})} .= 
             $Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'.   '<li><a href="/public/'.$courseinfo{'domain'}.'/'.
                 $courseinfo{'num'}.'/syllabus" target="preview">'.                  $courseinfo{'num'}.'/syllabus" target="preview">'.
                 $courseinfo{'description'}.'</a>';                  $courseinfo{'description'}.' ('.$courseinfo{'domain'}.
    ')</a></li>';
         }          }
  return $Str;   foreach my $course (sort {lc($a) cmp lc($b)} (keys(%descriptions))) {
       $Str .= $descriptions{$course};
    }
   
    return $Str.'</ul></font>';
     }      }
     # No pretty print found      # No pretty print found
     return $value;      return $value;
Line 470  sub relatedfield { Line 567  sub relatedfield {
   
 sub prettyinput {  sub prettyinput {
     my ($type,$value,$fieldname,$formname,      my ($type,$value,$fieldname,$formname,
  $relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;   $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
     if (! defined($size)) {      if (! defined($size)) {
         $size = 80;          $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 'Not Specified') {
                           $cur_values_stu .= $item.',';
                       }
                   }
               }
               my @key_order = sort(keys(%meta_options));
               unshift (@key_order,'Not Specified');
               $meta_options{'Not Specified'} = '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      # Language
     if ($type eq 'language') {      if ($type eq 'language') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
Line 534  sub prettyinput { Line 701  sub prettyinput {
     ",'rights')\">".&mt('Select').'</a>'.      ",'rights')\">".&mt('Select').'</a>'.
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
     }      }
       if ($type eq 'courserestricted') {
           return (&select_course());
           #return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
       }
   
     # Dates      # Dates
     if (($type eq 'creationdate') ||      if (($type eq 'creationdate') ||
  ($type eq 'lastrevisiondate')) {   ($type eq 'lastrevisiondate')) {
Line 556  sub prettyinput { Line 728  sub prettyinput {
 # Main Handler  # Main Handler
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
     #      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
            ['currentpath','changecourse']);
     my $uri=$r->uri;      my $uri=$r->uri;
     #      #
     # Set document type      # Set document type
     &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)=~/^($match_domain)\/($match_username)\//);
     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/|) {
         $r->print(&Apache::loncommon::bodytag      ($resdomain,$resuser)=
           ('Edit Portfolio File Information','','','',$resdomain));   (&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);
         &present_editable_metadata($r,$uri,'portfolio');          $r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information',
         &select_course($r);   undef,
     } elsif ($uri=~/^\/\~/) {    {'domain' => $resdomain,}));
           if ($env{'form.store'}) {
               &present_editable_metadata($r,$uri,'portfolio');
           } else {
               my $fn=&Apache::lonnet::filelocation('',$uri);
               %Apache::lonpublisher::metadatafields=();
               %Apache::lonpublisher::metadatakeys=();
               my $result=&Apache::lonnet::getfile($fn);
               &Apache::lonpublisher::metaeval($result);
               if ((!$Apache::lonpublisher::metadatafields{'courserestricted'}) ||
                   ($env{'form.changecourse'} eq 'true')) {
                   &pre_select_course($r,$uri);
               } else {
                   &present_editable_metadata($r,$uri,'portfolio');
               }
           }
       } 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 606  sub report_bombs { Line 797  sub report_bombs {
     $uri =~ s:/adm/bombs/::;      $uri =~ s:/adm/bombs/::;
     $uri = &Apache::lonnet::declutter($uri);      $uri = &Apache::lonnet::declutter($uri);
     $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');      $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
     my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);      my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//);
     if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {      if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
  if ($env{'form.clearbombs'}) {   if ($env{'form.clearbombs'}) {
     &Apache::lonmsg::clear_author_res_msg($uri);      &Apache::lonmsg::clear_author_res_msg($uri);
Line 643  ENDCLEAR Line 834  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 652  sub present_uneditable_metadata { Line 844  sub present_uneditable_metadata {
     # displayed url      # displayed url
     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_with_no_wrapper($uri);
     # 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 683  sub present_uneditable_metadata { Line 877  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 720  $versiondisplay Line 922  $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 803  sub print_dynamic_metadata { Line 1005  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 860  sub print_dynamic_metadata { Line 1064  sub print_dynamic_metadata {
     } else {      } else {
         $r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');          $r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
     }      }
     $uri=~/^\/res\/(\w+)\/(\w+)\//;       $uri=~/^\/res\/($match_domain)\/($match_username)\//; 
     if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))      if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
         || ($env{'user.role.ca./'.$1.'/'.$2})) {          || ($env{'user.role.ca./'.$1.'/'.$2})) {
         if (exists($dynmeta{'comments'})) {          if (exists($dynmeta{'comments'})) {
Line 923  sub print_dynamic_metadata { Line 1127  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$//;
       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 959  sub present_editable_metadata { Line 1168  sub present_editable_metadata {
  my $goback=&mt('Back to Source File');   my $goback=&mt('Back to Source File');
         $r->print(<<ENDBOMBS);          $r->print(<<ENDBOMBS);
 <h1>$disuri</h1>  <h1>$disuri</h1>
 <form method="post" name="defaultmeta">  <form method="post" action="" name="defaultmeta">
 ENDBOMBS  ENDBOMBS
         if ($showdel) {          if ($showdel) {
     $r->print(<<ENDDEL);      $r->print(<<ENDDEL);
Line 983  ENDDEL Line 1192  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 '.$fn);      $r->print(&mt('Creating new file [_1]'),$meta_uri);
         } else {          } else {
             &Apache::lonpublisher::metaeval($result);              &Apache::lonpublisher::metaeval($result);
         }          }
         $r->print(<<ENDEDIT);          $r->print(<<ENDEDIT);
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post" name="defaultmeta">  <form method="post" action="" name="defaultmeta">
 ENDEDIT  ENDEDIT
         $r->print('<script language="JavaScript">'.          $r->print('<script type="JavaScript">'.
                   &Apache::loncommon::browser_and_searcher_javascript().                    &Apache::loncommon::browser_and_searcher_javascript().
                   '</script>');                    '</script>');
         my %lt=&fieldnames($file_type);          my %lt=&fieldnames($file_type);
  my $output;   my $output;
  my @fields;   my @fields;
  if ($file_type eq 'portfolio') {   my $added_metadata_fields;
     @fields =  ('author','title','subject','keywords','abstract','notes','lowestgradelevel',   my @added_order;
                 'highestgradelevel');          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 {   } else {
     @fields = ('author','title','subject','keywords','abstract','notes',      @fields = ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',         'copyright','customdistributionfile','language',
                  'standards',         'standards',
                  'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',         'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
                  'obsolete','obsoletereplacement');         'obsolete','obsoletereplacement');
         }          }
         foreach (@fields) {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
             if (defined($env{'form.new_'.$_})) {  
                 $Apache::lonpublisher::metadatafields{$_}=  
                     $env{'form.new_'.$_};  
             }  
             if (! $Apache::lonpublisher::metadatafields{'copyright'}) {  
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
                     'default';      'default';
             }  
             $output.=('<p>'.$lt{$_}.': '.  
                       &prettyinput($_,  
    $Apache::lonpublisher::metadatafields{$_},  
    'new_'.$_,'defaultmeta').'</p>');  
             if ($env{'form.metacourse'}) {  
      
     $r->print('This is the instructor metadata area<br />');  
     my @keywords = sort(split /, /,$env{$env{'form.metacourse'}.'.metadata.keywords'});  
     $r->print($env{'form.metacourse'}.'<br />');  
     $r->print('<form method="post" action="" size="3" >');  
     $r->print('<select name="keywords" size="3" multiple>');  
     foreach my $word (@keywords) {  
         $r->print('<option>'.$word.'</option>');  
     }  
     $r->print('</select>');  
     $r->print('<br /><input type="submit" name="store" value="Assign Meta-data" />');  
     $r->print('</form>');  
     return 'ok';  
             }  
         }          }
         if ($env{'form.store'}) {   if (($file_type eq 'portfolio') || ($file_type eq 'groups'))  {
             my $mfh;      if (! $Apache::lonpublisher::metadatafields{'mime'}) {
             my $formname='store';                  ($Apache::lonpublisher::metadatafields{'mime'}) =
             my $file_content;      ( $target=~/\.(\w+)$/ );
             if (&Apache::loncommon::get_env_multiple('form.keywords')) {      }
             $Apache::lonpublisher::metadatafields{'coursekeyword'} =       if (! $Apache::lonpublisher::metadatafields{'owner'}) {
                         join (', ', &Apache::loncommon::get_env_multiple('form.keywords'));   $Apache::lonpublisher::metadatafields{'owner'} =
             }      $env{'user.name'}.':'.$env{'user.domain'};
             foreach (sort keys %Apache::lonpublisher::metadatafields) {      }
                 next if ($_ =~ /\./);      if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {
                 my $unikey=$_;  
                 $unikey=~/^([A-Za-z]+)/;                  if ($file_type eq 'portfolio') {
                 my $tag=$1;      $r->print(&mt('Associated with course [_1]',
                 $tag=~tr/A-Z/a-z/;          '<strong><a href="'.$uri.'?changecourse=true">'.
                 $file_content.= "\n\<$tag";          $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
                 foreach (split(/\,/,          ".description"}.
                              $Apache::lonpublisher::metadatakeys{$unikey})        '</a></strong>').'<br />');
                          ) {  
                     my $value=  
                      $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};  
                     $value=~s/\"/\'\'/g;  
                     $file_content.=' '.$_.'="'.$value.'"' ;  
                     # print $mfh ' '.$_.'="'.$value.'"';  
                 }  
                 $file_content.= '>'.  
                     &HTML::Entities::encode  
                     ($Apache::lonpublisher::metadatafields{$unikey},  
                      '<>&"').  
                      '</'.$tag.'>';  
             }  
             if ($fn =~ /\/portfolio\//) {  
                 $fn =~ /\/portfolio\/(.*)$/;  
                 my $new_fn = '/'.$1;  
                   
                 $r->print('<br />Just checking<br />');  
                 $env{'form.'.$formname}=$file_content;  
                 $env{'form.'.$formname.'.filename'}=$new_fn;  
                 &Apache::lonnet::userfileupload('uploaddoc','',  
          'portfolio'.$env{'form.currentpath'});  
         my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');  
                 if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {  
                     $r->print('<p><font color="red">'.  
                       &mt('Could not write metadata').', '.  
                      &mt('FAIL').'</font></p>');  
                 } else {                  } else {
                     $r->print('<p><font color="blue">'.&mt('Wrote Metadata').                      $r->print(&mt('Associated with course [_1]',
   ' '.&Apache::lonlocal::locallocaltime(time).                          '<strong>'.
   '</font></p>');    $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
                           ".description"}.'</strong>').'<br />');
                 }                  }
       } else {
    $r->print('<a href="'.$uri.'?changecourse=true">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::loncommon::start_data_table();
           my $row_alt = 1;
           foreach my $field_name (@fields) {
               if (defined($env{'form.new_'.$field_name})) {
                   $Apache::lonpublisher::metadatafields{$field_name}=
                       join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
               }
               if ($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 .= "\n".&Apache::loncommon::start_data_table_row();
                       $output .= ('<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '.
                                 &prettyinput($field_name,
      $Apache::lonpublisher::metadatafields{$field_name},
                       'new_'.$field_name,'defaultmeta',
                       undef,undef,undef,undef,
                       $Apache::lonpublisher::metadatafields{'courserestricted'}).'</td>');
                       $output .= &Apache::loncommon::end_data_table_row();
                    }
             } else {              } else {
                 if (!  ($mfh=Apache::File->new('>'.$fn))) {  
                     $r->print('<p><font color="red">'.                      $output.=(&Apache::loncommon::start_data_table_row().'<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '.
                         &mt('Could not write metadata').', '.        &prettyinput($field_name,
                         &mt('FAIL').'</font></p>');     $Apache::lonpublisher::metadatafields{$field_name},
                 } else {     'new_'.$field_name,'defaultmeta').'</td>'.&Apache::loncommon::end_data_table_row());
                     print $mfh $file_content;                 
               }
           }
           $output .= &Apache::loncommon::end_data_table();
    if ($env{'form.store'}) {
       my $mfh;
       my $formname='store'; 
       my $file_content;
       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.*)/([^/]*)$|);
           }
                   $r->print(&store_portfolio_metadata($formname,$file_content,$path,
                                                       $new_fn,$uri));
               } 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);
                       close($mfh);
                       &update_metadata_table($uri);
     $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' || $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>');      $r->print('</form>');
   
     return;      return;
 }  }
   
   sub store_portfolio_metadata {
       my ($formname,$content,$path,$new_fn,$uri) = @_;
       $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 {
           &update_metadata_table($uri);
           return '<p><font color="blue">'.&mt('Wrote Metadata').
                     ' '.&Apache::lonlocal::locallocaltime(time).'</font></p>';
       }
   }
   
   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');
       }
   }
   
   
 1;  1;
 __END__  __END__
   
        
Removed from v.1.106  
changed lines
  Added in v.1.199

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.