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

Diff for /loncom/interface/lonmeta.pm between versions 1.51 and 1.52

version 1.51, 2003/12/30 22:19:18 version 1.52, 2003/12/31 02:33:27
Line 435  sub handler { Line 435  sub handler {
     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=&Apache::lonhtmlcommon::crumbs($disuri);  
 # version  # version
     my $currentversion=&Apache::lonnet::getversion($disuri);      my $currentversion=&Apache::lonnet::getversion($disuri);
     my $versiondisplay='';      my $versiondisplay='';
Line 446  sub handler { Line 445  sub handler {
     } else {      } else {
  $versiondisplay='Version: '.$currentversion;   $versiondisplay='Version: '.$currentversion;
     }      }
   # crumbify displayed URL
       $disuri=&Apache::lonhtmlcommon::crumbs($disuri);
 # obsolete  # obsolete
     my $obsolete=$content{'obsolete'};      my $obsolete=$content{'obsolete'};
     my $obsoletewarning='';      my $obsoletewarning='';
Line 570  ENDHEAD Line 571  ENDHEAD
   
   return OK if $r->header_only;    return OK if $r->header_only;
 # ---------------------------------------------------------------------- Header  # ---------------------------------------------------------------------- Header
   my $bodytag=&Apache::loncommon::bodytag('Edit Catalog Information');  
   my $disuri=$uri;    my $disuri=$uri;
   my $fn=&Apache::lonnet::filelocation('',$uri);    my $fn=&Apache::lonnet::filelocation('',$uri);
   $disuri=~s/^\/\~\w+//;    $disuri=~s/^\/\~/\/priv\//;
   $disuri=~s/\.meta$//;    $disuri=~s/\.meta$//;
   my $displayfile='Catalog Information for '.$disuri;    my $target=$uri;
   if ($disuri=~/\/default$/) {    $target=~s/^\/\~/\/res\/$ENV{'request.role.domain'}\//;
       my $dir=$disuri;    $target=~s/\.meta$//;
       $dir=~s/default$//;    my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);
       $displayfile=&mt('Default Cataloging Information for Directory').' '.    if ($bombs) {
   $dir;        if ($ENV{'form.delmsg'}) {
   }    if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
   %Apache::lonpublisher::metadatafields=();        $bombs=&mt('Messages deleted.');
   %Apache::lonpublisher::metadatakeys=();    } else {
   &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));        $bombs=&mt('Error deleting messages');
   $r->print(<<ENDEDIT);    }
         }
         my $bodytag=&Apache::loncommon::bodytag('Error Messages');
         my $del=&mt('Delete Messages');
         $r->print(<<ENDBOMBS);
   <html><head><title>Edit Catalog Information</title></head>
   $bodytag
   <h1>$disuri</h1>
   <form method="post" name="defaultmeta">
   <input type="submit" name="delmsg" value="$del" />
   <br />$bombs
   </form>
   </body>
   </html>
   ENDBOMBS
     } else {
         my $displayfile='Catalog Information for '.$disuri;
         if ($disuri=~/\/default$/) {
     my $dir=$disuri;
     $dir=~s/default$//;
     $displayfile=&mt('Default Cataloging Information for Directory').' '.
         $dir;
         }
         my $bodytag=&Apache::loncommon::bodytag('Edit Catalog Information');
         %Apache::lonpublisher::metadatafields=();
         %Apache::lonpublisher::metadatakeys=();
         &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));
         $r->print(<<ENDEDIT);
 <html><head><title>Edit Catalog Information</title></head>  <html><head><title>Edit Catalog Information</title></head>
 $bodytag  $bodytag
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
 ENDEDIT  ENDEDIT
   $r->print('<script language="JavaScript">'.        $r->print('<script language="JavaScript">'.
     &Apache::loncommon::browser_and_searcher_javascript.   &Apache::loncommon::browser_and_searcher_javascript.
     '</script>');   '</script>');
    my %lt=&fieldnames();        my %lt=&fieldnames();
    foreach ('author','title','subject','keywords','abstract','notes',        foreach ('author','title','subject','keywords','abstract','notes',
             'copyright','customdistributionfile','language','standards',         'copyright','customdistributionfile','language','standards',
     'lowestgradelevel','highestgradelevel',         'lowestgradelevel','highestgradelevel',
             'obsolete','obsoletereplacement') {         'obsolete','obsoletereplacement') {
        $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};    $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
        unless ($Apache::lonpublisher::metadatafields{'copyright'}) {    unless ($Apache::lonpublisher::metadatafields{'copyright'}) {
    $Apache::lonpublisher::metadatafields{'copyright'}='default';        $Apache::lonpublisher::metadatafields{'copyright'}='default';
        }  
        $r->print('<p>'.$lt{$_}.': '.&prettyinput($_,  
   $Apache::lonpublisher::metadatafields{$_},  
   'new_'.$_,'defaultmeta').'</p>');  
    }  
    if ($ENV{'form.store'}) {  
       my $mfh;  
       unless ($mfh=Apache::File->new('>'.$fn)) {  
             $r->print(  
             '<p><font color=red>'.&mt('Could not write metadata').', '.  
       &mt('FAIL').'</font>');  
       } else {  
           foreach (sort keys %Apache::lonpublisher::metadatafields) {  
             unless ($_=~/\./) {  
                 my $unikey=$_;  
                 $unikey=~/^([A-Za-z]+)/;  
                 my $tag=$1;  
                 $tag=~tr/A-Z/a-z/;  
                 print $mfh "\n\<$tag";  
                 foreach   
                   (split(/\,/,$Apache::lonpublisher::metadatakeys{$unikey})) {  
                     my $value=  
                        $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};  
                     $value=~s/\"/\'\'/g;  
                     print $mfh ' '.$_.'="'.$value.'"';  
                 }  
                 print $mfh '>'.  
         &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})  
                         .'</'.$tag.'>';  
             }  
   }    }
           $r->print('<p>'.&mt('Wrote Metadata'));    $r->print('<p>'.$lt{$_}.': '.&prettyinput($_,
       $Apache::lonpublisher::metadatafields{$_},
       'new_'.$_,'defaultmeta').'</p>');
       }        }
     }        if ($ENV{'form.store'}) {
     $r->print(    my $mfh;
  '<br /><input type="submit" name="store" value="'.    unless ($mfh=Apache::File->new('>'.$fn)) {
 &mt('Store Catalog Information').'"></form></body></html>');        $r->print(
     return OK;   '<p><font color=red>'.&mt('Could not write metadata').', '.
    &mt('FAIL').'</font>');
     } else {
         foreach (sort keys %Apache::lonpublisher::metadatafields) {
     unless ($_=~/\./) {
         my $unikey=$_;
         $unikey=~/^([A-Za-z]+)/;
         my $tag=$1;
         $tag=~tr/A-Z/a-z/;
         print $mfh "\n\<$tag";
         foreach 
     (split(/\,/,$Apache::lonpublisher::metadatakeys{$unikey})) {
         my $value=
     $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
         $value=~s/\"/\'\'/g;
         print $mfh ' '.$_.'="'.$value.'"';
     }
         print $mfh '>'.
     &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})
     .'</'.$tag.'>';
     }
         }
         $r->print('<p>'.&mt('Wrote Metadata'));
     }
         }
         $r->print(
    '<br /><input type="submit" name="store" value="'.
    &mt('Store Catalog Information').'"></form></body></html>');
   }    }
       return OK;
    }
 }  }
   
 # ================================================================= BEGIN Block  # ================================================================= BEGIN Block
Removed from v.1.51  
changed lines
  Added in v.1.52

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