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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.53 and 1.56.2.1

version 1.53, 2006/12/18 00:16:27 version 1.56.2.1, 2006/12/23 06:22:36
Line 178  sub folderlist { Line 178  sub folderlist {
     my %userfolders;      my %userfolders;
   
     foreach my $key (keys(%gotfolders)) {      foreach my $key (keys(%gotfolders)) {
         $key =~ s/(['"])/\$1/g;          $key =~ s/(['"])/\$1/g; #' stupid emacs
         $userfolders{$key} = $key;          $userfolders{$key} = $key;
     }      }
     my @userorder = sort(keys(%userfolders));      my @userorder = sort(keys(%userfolders));
Line 301  sub scrollbuttons { Line 301  sub scrollbuttons {
     $start++; $maxdis++;$first++;$finish++;      $start++; $maxdis++;$first++;$finish++;
   
     my %statushash = &get_msgstatus_types();      my %statushash = &get_msgstatus_types();
     my $status;  
     if ($msgstatus eq '') {  
         $status = &mt('All');  
     } else {  
         $status = $statushash{$msgstatus};  
     }  
     return      return
    '<b>'.&mt('Page').'</b>: '.    '<b>'.&mt('Page').'</b>: '. 
    '<input type="submit" name="firstview" value="'.&mt('First').'" />'.   '<input type="submit" name="firstview" value="'.&mt('First').'" />'.
    '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.   '<input type="submit" name="prevview" value="'.&mt('Previous').'" />'.
    '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.   '<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis.
    '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.   '<input type="submit" name="nextview" value="'.&mt('Next').'" />'.
    '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.   '<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'.
    &mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>';   &mt('_location_in_mail_folder',$msgstatus,$statushash{$msgstatus},
       $first,$finish,$total).'</form>';
 }  }
 # =============================================================== Status Change  # =============================================================== Status Change
   
Line 381  sub deletefolder { Line 377  sub deletefolder {
     my ($folder)=@_;      my ($folder)=@_;
     my %permfolders = &get_permanent_folders();      my %permfolders = &get_permanent_folders();
     if (defined($permfolders{$folder})) {      if (defined($permfolders{$folder})) {
         return &mt('The folder [_1] may not be deleted',$folder);           return &mt('The folder "[_1]" may not be deleted',$folder); 
     }      }
     my %userfolders = &Apache::lonmsg::get_user_folders();      my %userfolders = &Apache::lonmsg::get_user_folders();
     if (!defined($userfolders{$folder})) {      if (!defined($userfolders{$folder})) {
         return &mt('The folder [_1] does not exist so deletion is not required.',          return &mt('The folder "[_1]" does not exist so deletion is not required.',
                    $folder);                     $folder);
     }      }
     # check folder is empty;      # check folder is empty;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);      my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
     if (@messages > 0) {      if (@messages > 0) {
         return &mt('The folder [_1] contains messages so it may not be deleted.').          return &mt('The folder "[_1]" contains messages so it may not be deleted.',$folder).
                '<br />'.   '<br />'.
                &mt('Delete or move the messages to a different folder first.');   &mt('Delete or move the messages to a different folder first.');
     }      }
     my $delresult = &Apache::lonnet::del('email_folders',[$folder]);      my $delresult = &Apache::lonnet::del('email_folders',[$folder]);
     return $delresult;      return $delresult;
Line 960  sub disfolder { Line 956  sub disfolder {
   
 </script>  </script>
 ENDDISHEADER  ENDDISHEADER
     my %gotfolders = &Apache::lonmsg::get_user_folders();  
     my %userfolders;  
     my $fsqs='&folder='.$folder;      my $fsqs='&folder='.$folder;
     my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);      my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     my $totalnumber=$#temp+1;      my $totalnumber=$#temp+1;
     if ($totalnumber < 1) {      if ($totalnumber < 1) {
         if ($msgstatus eq '') {   $r->print('<h2>'.&mt('_empty_mail_folder',
     $r->print('<h2>'.&mt('Empty Folder').'</h2>');       $msgstatus,
         } elsif ($msgstatus eq 'replied') {       $statushash{$msgstatus}).'</h2>');
             $r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>');  
         } else {   
             $r->print('<h2>'.&mt('There are no [_1] messages in this folder',lc($statushash{$msgstatus})).'</h2>');  
         }  
  return;   return;
     }      }
     unless ($interdis) {      unless ($interdis) {
Line 1108  ENDDISHEADER Line 1099  ENDDISHEADER
         $r->print('    <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n");          $r->print('    <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n");
     }      }
     $r->print('   <option value="markedforward">'.&mt('Forward').'</option>'."\n");      $r->print('   <option value="markedforward">'.&mt('Forward').'</option>'."\n");
   
       my %gotfolders = &Apache::lonmsg::get_user_folders();
     if (keys(%gotfolders) > 0) {      if (keys(%gotfolders) > 0) {
         $r->print('   <option value="markedmove">'.&mt('Move to Folder ->').          $r->print('   <option value="markedmove">'.&mt('Move to Folder ->').
                   '</option>');                    '</option>');
     }      }
     $r->print("\n".'</select></td>'."\n");      $r->print("\n".'</select></td>'."\n");
     foreach my $key (keys(%gotfolders)) {  
         $userfolders{$key} = $key;  
     }  
     if (keys(%gotfolders) > 0) {      if (keys(%gotfolders) > 0) {
         $r->print('<td align="center"><b>'.&mt('Destination folder').'<b><br />');          $r->print('<td align="center"><b>'.&mt('Destination folder').'<b><br />');
    my %userfolders;
         foreach my $key (keys(%gotfolders)) {          foreach my $key (keys(%gotfolders)) {
             $userfolders{$key} = $key;              $userfolders{$key} = $key;
         }          }
Removed from v.1.53  
changed lines
  Added in v.1.56.2.1

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