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

Diff for /loncom/interface/lonmsg.pm between versions 1.70 and 1.71.2.1

version 1.70, 2003/10/18 16:33:44 version 1.71.2.1, 2004/03/01 23:06:17
Line 270  sub author_res_msg { Line 270  sub author_res_msg {
     my ($filename,$message)=@_;      my ($filename,$message)=@_;
     unless ($message) { return 'empty'; }      unless ($message) { return 'empty'; }
     $filename=&Apache::lonnet::declutter($filename);      $filename=&Apache::lonnet::declutter($filename);
     my ($domain,$author,@dummy)=split(/\//,$filename);      my ($domain,$author)=split(/\//,$filename);
     my $homeserver=&Apache::lonnet::homeserver($author,$domain);      my $homeserver=&Apache::lonnet::homeserver($author,$domain);
     if ($homeserver ne 'no_host') {      if ($homeserver ne 'no_host') {
        my $id=unpack("%32C*",$message);         my $id=unpack("%32C*",$message);
        my $msgid;         my $msgid;
        ($msgid,$message)=&packagemsg($filename,$message);         ($msgid,$message)=&packagemsg("Error: [$filename]",$message);
          #FIXME this should be nohist_res_msg, we need to provide an interface 
          #      to this hash BUG#2444
          #return &Apache::lonnet::reply('put:'.$domain.':'.$author.
          #  ':nohist_res_msg:'.
          #   &Apache::lonnet::escape($filename.'_'.$id).'='.
          #   &Apache::lonnet::escape($message),$homeserver);
        return &Apache::lonnet::reply('put:'.$domain.':'.$author.         return &Apache::lonnet::reply('put:'.$domain.':'.$author.
          ':nohist_res_msgs:'.     ':nohist_email:'.
           &Apache::lonnet::escape($filename.'_'.$id).'='.             &Apache::lonnet::escape($msgid).'='.
           &Apache::lonnet::escape($message),$homeserver);             &Apache::lonnet::escape($message),$homeserver);
     }      }
     return 'no_host';      return 'no_host';
 }  }
Line 833  ENDCOMP Line 839  ENDCOMP
     } else { # $broadcast is 'upload'      } else { # $broadcast is 'upload'
  $r->print(<<ENDUPLOAD);   $r->print(<<ENDUPLOAD);
 <input type=hidden name=sendmode value=upload>  <input type=hidden name=sendmode value=upload>
   <input type="hidden" name="send" value="on" />
 <h3>Generate messages from a file</h3>  <h3>Generate messages from a file</h3>
 <p>  <p>
 Subject: <input type=text size=50 name=subject>  Subject: <input type=text size=50 name=subject>
Removed from v.1.70  
changed lines
  Added in v.1.71.2.1

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