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

Diff for /loncom/interface/lonmeta.pm between versions 1.98 and 1.99

version 1.98, 2005/07/08 10:39:49 version 1.99, 2005/07/13 22:09:11
Line 903  sub present_editable_metadata { Line 903  sub present_editable_metadata {
     $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) {
           my $showdel=1;
         if ($env{'form.delmsg'}) {          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');
             }              }
Line 915  sub present_editable_metadata { Line 917  sub present_editable_metadata {
     $cleardir=~s/\/[^\/]+$/\//;      $cleardir=~s/\/[^\/]+$/\//;
             if (&Apache::lonmsg::clear_author_res_msg($cleardir) eq 'ok') {              if (&Apache::lonmsg::clear_author_res_msg($cleardir) eq 'ok') {
                 $bombs=&mt('Messages cleared.');                  $bombs=&mt('Messages cleared.');
    $showdel=0;
             } else {              } else {
                 $bombs=&mt('Error clearing messages');                  $bombs=&mt('Error clearing messages');
             }              }
         }          }
         my $del=&mt('Delete Messages for this Resource');          my $del=&mt('Delete Messages for this Resource');
  my $clear=&mt('Clear all Messages in Subdirectory');   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">
   ENDBOMBS
           if ($showdel) {
       $r->print(<<ENDDEL);
 <input type="submit" name="delmsg" value="$del" />  <input type="submit" name="delmsg" value="$del" />
 <input type="submit" name="clearmsg" value="$clear" />  <input type="submit" name="clearmsg" value="$clear" />
 <br />$bombs  ENDDEL
 ENDBOMBS          } 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$/) {
Removed from v.1.98  
changed lines
  Added in v.1.99

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