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

Diff for /loncom/interface/lonmeta.pm between versions 1.94 and 1.107

version 1.94, 2005/03/17 21:32:17 version 1.107, 2005/08/25 20:46:32
Line 17 Line 17
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.  # GNU General Public License for more details.
 #  #
 # You should have received a copy of the GNU General Public License  # You should have received a copy of the GNU General Public License 
 # along with LON-CAPA; if not, write to the Free Software  # along with LON-CAPA; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #  #
Line 31  package Apache::lonmeta; Line 31  package Apache::lonmeta;
 use strict;  use strict;
 use LONCAPA::lonmetadata();  use LONCAPA::lonmetadata();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon(); 
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonpublisher;  use Apache::lonpublisher;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 288  sub fieldnames { Line 288  sub fieldnames {
     return &Apache::lonlocal::texthash(%fields);      return &Apache::lonlocal::texthash(%fields);
 }  }
   
   sub select_course {
       my ($r)=@_;
       $r->print('<h3>Instructor Selected Meta-Data</h3><br />');
       $r->print('<form action="" method="post">');
       $r->print('Select your course<br />');
       $r->print('<select name="metacourse" >');
       my $meta_not_found = 1;
       foreach my $key (keys %env) {        
           if ($key =~ /\.metadata\./) {
               if ($meta_not_found) {
                   undef($meta_not_found);
                   $r->print('<h3>Instructor Selected Meta-Data</h3><br />');
                   $r->print('<form action="" method="post">');
                   $r->print('Select your course<br />');
                   $r->print('<select name="metacourse" >');
               }
               my $course_key = $key;
               $course_key =~ s/\.metadata\..*//;
               $r->print('<option value="'.$course_key.'">');
               $r->print($env{$course_key.'.description'});
               $r->print('</option>');
           }
       }
       unless ($meta_not_found) {
           $r->print('</select><br />');
           $r->print('<input type="submit" value="Assign Instructor Metadata" />');
           $r->print('</form>');
       }
       return 'ok';
   }
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
 sub prettyprint {  sub prettyprint {
Line 338  sub prettyprint { Line 368  sub prettyprint {
  return &Apache::loncommon::gradeleveldescription($value);   return &Apache::loncommon::gradeleveldescription($value);
     }      }
     # Only for advance users below      # Only for advance users below
     if (! $ENV{'user.adv'}) {       if (! $env{'user.adv'}) { 
         return '<i>- '.&mt('not displayed').' -</i>';          return '<i>- '.&mt('not displayed').' -</i>';
     }      }
     # File      # File
Line 548  sub handler { Line 578  sub handler {
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
           ('Edit Portfolio File Information','','','',$resdomain));            ('Edit Portfolio File Information','','','',$resdomain));
         &present_editable_metadata($r,$uri,'portfolio');          &present_editable_metadata($r,$uri,'portfolio');
                   &select_course($r);
     } elsif ($uri=~/^\/\~/) {       } elsif ($uri=~/^\/\~/) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
Line 578  sub report_bombs { Line 608  sub report_bombs {
     $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=~/^(\w+)\/(\w+)\//);
     if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {      if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
    if ($env{'form.clearbombs'}) {
       &Apache::lonmsg::clear_author_res_msg($uri);
    }
           my $clear=&mt('Clear all Messages in Subdirectory');
    $r->print(<<ENDCLEAR);
   <form method="post">
   <input type="submit" name="clearbombs" value="$clear" />
   </form>
   ENDCLEAR
         my %brokenurls =           my %brokenurls = 
             &Apache::lonmsg::all_url_author_res_msg($author,$domain);              &Apache::lonmsg::all_url_author_res_msg($author,$domain);
         foreach (sort(keys(%brokenurls))) {          foreach (sort(keys(%brokenurls))) {
Line 632  sub present_uneditable_metadata { Line 671  sub present_uneditable_metadata {
     # obsolete      # obsolete
     my $obsolete=$content{'obsolete'};      my $obsolete=$content{'obsolete'};
     my $obsoletewarning='';      my $obsoletewarning='';
     if (($obsolete) && ($ENV{'user.adv'})) {      if (($obsolete) && ($env{'user.adv'})) {
         $obsoletewarning='<p><font color="red">'.          $obsoletewarning='<p><font color="red">'.
             &mt('This resource has been marked obsolete by the author(s)').              &mt('This resource has been marked obsolete by the author(s)').
             '</font></p>';              '</font></p>';
Line 681  $versiondisplay Line 720  $versiondisplay
 $table  $table
 </table>  </table>
 ENDHEAD  ENDHEAD
     if ($ENV{'user.adv'}) {      if ($env{'user.adv'}) {
         &print_dynamic_metadata($r,$uri,\%content);          &print_dynamic_metadata($r,$uri,\%content);
     }      }
     return;      return;
Line 822  sub print_dynamic_metadata { Line 861  sub print_dynamic_metadata {
         $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\/(\w+)\/(\w+)\//; 
     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'})) {
             $r->print('<h4>'.&mt('Evaluation Comments').' ('.              $r->print('<h4>'.&mt('Evaluation Comments').' ('.
                       &mt('visible to author and co-authors only').                        &mt('visible to author and co-authors only').
Line 874  sub print_dynamic_metadata { Line 913  sub print_dynamic_metadata {
     return;      return;
 }  }
   
   
   
 #####################################################  #####################################################
 #####################################################  #####################################################
 ###                                               ###  ###                                               ###
Line 890  sub present_editable_metadata { Line 931  sub present_editable_metadata {
     $disuri=~s/^\/\~/\/priv\//;      $disuri=~s/^\/\~/\/priv\//;
     $disuri=~s/\.meta$//;      $disuri=~s/\.meta$//;
     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) {
         if ($ENV{'form.delmsg'}) {          my $showdel=1;
           if ($env{'form.delmsg'}) {
             if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {              if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
                 $bombs=&mt('Messages deleted.');                  $bombs=&mt('Messages deleted.');
    $showdel=0;
             } else {              } else {
                 $bombs=&mt('Error deleting messages');                  $bombs=&mt('Error deleting messages');
             }              }
         }          }
         my $del=&mt('Delete 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);          $r->print(<<ENDBOMBS);
 <h1>$disuri</h1>  <h1>$disuri</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
 <input type="submit" name="delmsg" value="$del" />  
 <br />$bombs  
 ENDBOMBS  ENDBOMBS
           if ($showdel) {
       $r->print(<<ENDDEL);
   <input type="submit" name="delmsg" value="$del" />
   <input type="submit" name="clearmsg" value="$clear" />
   ENDDEL
           } else {
               $r->print('<a href="'.$disuri.'" />'.$goback.'</a>');
    }
    $r->print('<br />'.$bombs);
     } else {      } else {
         my $displayfile='Catalog Information for '.$disuri;          my $displayfile='Catalog Information for '.$disuri;
         if ($disuri=~/\/default$/) {          if ($disuri=~/\/default$/) {
Line 921  ENDBOMBS Line 983  ENDBOMBS
         %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('Unable to get '.$fn);              $r->print('Creating new '.$fn);
             return ;  
         } else {          } else {
             &Apache::lonpublisher::metaeval($result);              &Apache::lonpublisher::metaeval($result);
         }          }
Line 947  ENDEDIT Line 1008  ENDEDIT
                  'obsolete','obsoletereplacement');                   'obsolete','obsoletereplacement');
         }          }
         foreach (@fields) {          foreach (@fields) {
             if (defined($ENV{'form.new_'.$_})) {              if (defined($env{'form.new_'.$_})) {
                 $Apache::lonpublisher::metadatafields{$_}=                  $Apache::lonpublisher::metadatafields{$_}=
                     $ENV{'form.new_'.$_};                      $env{'form.new_'.$_};
             }              }
             if (! $Apache::lonpublisher::metadatafields{'copyright'}) {              if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
Line 959  ENDEDIT Line 1020  ENDEDIT
                       &prettyinput($_,                        &prettyinput($_,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$_},
    'new_'.$_,'defaultmeta').'</p>');     '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" >');
       foreach my $word (@keywords) {
           my $checked;
           if ($Apache::lonpublisher::metadatafields{'coursekeyword'}=~ m/$word/) {
               $checked = 1;
           } else {
               undef($checked);
         }          }
         if ($ENV{'form.store'}) {          $r->print(&Apache::lonhtmlcommon::checkbox('keywords',$checked,$word).$word.'<br />');
       }
       $r->print('<br /><input type="submit" name="store" value="Assign Meta-data" />');
       $r->print('</form>');
       return 'ok';
               }
           }
           if ($env{'form.store'}) {
             my $mfh;              my $mfh;
             my $formname='store';              my $formname='store'; 
             my $file_content;              my $file_content;
               if (&Apache::loncommon::get_env_multiple('form.keywords')) {
               $Apache::lonpublisher::metadatafields{'coursekeyword'} = 
                           join (', ', &Apache::loncommon::get_env_multiple('form.keywords'));
               }
             foreach (sort keys %Apache::lonpublisher::metadatafields) {              foreach (sort keys %Apache::lonpublisher::metadatafields) {
                 next if ($_ =~ /\./);                  next if ($_ =~ /\./);
                 my $unikey=$_;                  my $unikey=$_;
Line 989  ENDEDIT Line 1073  ENDEDIT
             if ($fn =~ /\/portfolio\//) {              if ($fn =~ /\/portfolio\//) {
                 $fn =~ /\/portfolio\/(.*)$/;                  $fn =~ /\/portfolio\/(.*)$/;
                 my $new_fn = '/'.$1;                  my $new_fn = '/'.$1;
                 $ENV{'form.'.$formname}=$file_content;                  $env{'form.'.$formname}=$file_content;
                 $ENV{'form.'.$formname.'.filename'}=$new_fn;                  $env{'form.'.$formname.'.filename'}=$new_fn;
                 &Apache::lonnet::userfileupload('uploaddoc','',                  &Apache::lonnet::userfileupload('uploaddoc','',
          'portfolio'.$ENV{'form.currentpath'});           'portfolio'.$env{'form.currentpath'});
         my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');          my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');
                 if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {                  if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
                     $r->print('<p><font color="red">'.                      $r->print('<p><font color="red">'.
Line 1010  ENDEDIT Line 1094  ENDEDIT
                         &mt('FAIL').'</font></p>');                          &mt('FAIL').'</font></p>');
                 } else {                  } else {
                     print $mfh $file_content;                      print $mfh $file_content;
       $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
         ' '.&Apache::lonlocal::locallocaltime(time).
         '</font></p>');
                 }                  }
             }              }
         }          }
Line 1022  ENDEDIT Line 1109  ENDEDIT
   
 1;  1;
 __END__  __END__
   
        
Removed from v.1.94  
changed lines
  Added in v.1.107

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