loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.188, 2006/12/06 17:14:50
+version 1.189, 2006/12/06 23:44:33
  Line 601  sub store_sent_mail {
  sub foldersuffix {
      my $folder=shift;
      unless ($folder) { return ''; }
-     return '_'.&escape($folder);
+     my $suffix;
+     my %folderhash = &get_user_folders($folder);
+     if (ref($folderhash{$folder}) eq 'HASH') {
+         $suffix = '_'.&escape($folderhash{$folder}{'id'});
+     } else {
+         $suffix = '_'.&escape($folder);
+     }
+     return $suffix;
+ }
+ # ========================================================= User-defined folders
+ sub get_user_folders {
+     my ($folder) = @_;
+     my %userfolders =
+           &Apache::lonnet::dump('email_folders',undef,undef,$folder);
+     my $lock = "\0".'lock_counter'; # locks db while counter incremented
+     my $counter = "\0".'idcount';   # used in suffix for email db files
+     if (defined($userfolders{$lock})) {
+         delete($userfolders{$lock});
+     }
+     if (defined($userfolders{$counter})) {
+         delete($userfolders{$counter});
+     }
+     return %userfolders;
  }
 ;