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

Diff for /loncom/interface/lonmeta.pm between versions 1.56 and 1.58

version 1.56, 2004/01/02 19:23:47 version 1.58, 2004/01/15 15:12:31
Line 610  ENDHEAD Line 610  ENDHEAD
   $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 $del='';
   if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {        if ($target=~/allbombs$/) {
       $bombs=&mt('Messages deleted.');    $disuri='All Error Messages';
   } else {        } else {
       $bombs=&mt('Error deleting messages');    if ($ENV{'form.delmsg'}) {
         if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
     $bombs=&mt('Messages deleted.');
         } else {
     $bombs=&mt('Error deleting messages');
         }
   }    }
     $del='<input type="submit" name="delmsg" value="'.
         &mt('Delete Messages').'" />';
       }        }
       my $bodytag=&Apache::loncommon::bodytag('Error Messages');        my $bodytag=&Apache::loncommon::bodytag('Error Messages');
       my $del=&mt('Delete Messages');  
       $r->print(<<ENDBOMBS);        $r->print(<<ENDBOMBS);
 <html><head><title>Edit Catalog Information</title></head>  <html><head><title>Edit Catalog Information</title></head>
 $bodytag  $bodytag
 <h1>$disuri</h1>  <h1>$disuri</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
 <input type="submit" name="delmsg" value="$del" />  $del
 <br />$bombs  <br />$bombs
 </form>  </form>
 </body>  </body>
Line 656  ENDEDIT Line 662  ENDEDIT
        'copyright','customdistributionfile','language','standards',         'copyright','customdistributionfile','language','standards',
        'lowestgradelevel','highestgradelevel',         'lowestgradelevel','highestgradelevel',
        'obsolete','obsoletereplacement') {         'obsolete','obsoletereplacement') {
   $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};    if (defined($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';
   }    }
Removed from v.1.56  
changed lines
  Added in v.1.58

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