[BACK]Return to lonuserstate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.149.2.6 and 1.150

version 1.149.2.6, 2024/07/03 02:16:44 version 1.150, 2016/01/26 14:30:40
Line 62  my %randomorder; # maps to order content Line 62  my %randomorder; # maps to order content
 my %randomizationcode; # code used to grade folder for bubblesheet exam   my %randomizationcode; # code used to grade folder for bubblesheet exam 
 my %encurl; # URLs in this folder are supposed to be encrypted  my %encurl; # URLs in this folder are supposed to be encrypted
 my %hiddenurl; # this URL (or complete folder) is supposed to be hidden  my %hiddenurl; # this URL (or complete folder) is supposed to be hidden
 my %rescount; # count of unhidden items in each map  
 my %mapcount; # count of unhidden maps in each map  
   
 # ----------------------------------- Remove version from URL and store in hash  # ----------------------------------- Remove version from URL and store in hash
   
Line 198  sub loadmap { Line 196  sub loadmap {
         $errtext.= '<br />'          $errtext.= '<br />'
                   .&mt('Map not loaded: The file [_1] does not exist.',                    .&mt('Map not loaded: The file [_1] does not exist.',
                        "<tt>$fn</tt>");                         "<tt>$fn</tt>");
         $hash{'map_type_'.$lpc}='none';  
         if (&is_advanced($courseid)) {  
             $errtext .= &error_detail($parent_rid,$courseid,$ispage,$uri);  
         }  
  return;   return;
     }      }
   
Line 246  sub loadmap { Line 240  sub loadmap {
   
     my @map_ids;      my @map_ids;
     my $codechecked;      my $codechecked;
     $rescount{$lpc} = 0;  
     $mapcount{$lpc} = 0;  
     while (my $token = $parser->get_token) {      while (my $token = $parser->get_token) {
  next if ($token->[0] ne 'S');   next if ($token->[0] ne 'S');
   
Line 257  sub loadmap { Line 249  sub loadmap {
     my $resource_id = &parse_resource($token,$lpc,$ispage,$uri,$courseid);      my $resource_id = &parse_resource($token,$lpc,$ispage,$uri,$courseid);
     if (defined $resource_id) {      if (defined $resource_id) {
  push(@map_ids, $resource_id);   push(@map_ids, $resource_id);
                 if ($hash{'src_'.$lpc.'.'.$resource_id}) {  
                     $rescount{$lpc} ++;  
                     if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) ||  
                         ($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) {  
                         $mapcount{$lpc} ++;  
                     }  
                 }  
                 unless ($codechecked) {                  unless ($codechecked) {
                     my $startsymb =                      my $startsymb =
                        &Apache::lonnet::encode_symb($hash{'map_id_'.$lpc},$resource_id,                         &Apache::lonnet::encode_symb($hash{'map_id_'.$lpc},$resource_id,
Line 293  sub loadmap { Line 278  sub loadmap {
     }      }
     undef($codechecked);      undef($codechecked);
   
   
     # Handle randomization and random selection      # Handle randomization and random selection
   
     if ($randomize) {      if ($randomize) {
         unless (&is_advanced($courseid)) {          my $advanced;
           if ($env{'request.course.id'}) {
               $advanced = (&Apache::lonnet::allowed('adv') eq 'F');
           } else {
               $env{'request.course.id'} = $courseid;
               $advanced = (&Apache::lonnet::allowed('adv') eq 'F');
               $env{'request.course.id'} = '';
           }
           unless ($advanced) {
             # Order of resources is not randomized if user has and advanced role in the course.              # Order of resources is not randomized if user has and advanced role in the course.
     my $seed;      my $seed;
   
Line 344  sub loadmap { Line 338  sub loadmap {
     @map_ids=&Math::Random::random_permutation(@map_ids);      @map_ids=&Math::Random::random_permutation(@map_ids);
  }   }
   
   
  my $from = shift(@map_ids);   my $from = shift(@map_ids);
  my $from_rid = $lpc.'.'.$from;   my $from_rid = $lpc.'.'.$from;
  $hash{'map_start_'.$uri} = $from_rid;   $hash{'map_start_'.$uri} = $from_rid;
Line 368  sub loadmap { Line 363  sub loadmap {
     $parser = HTML::TokeParser->new(\$instr);      $parser = HTML::TokeParser->new(\$instr);
     $parser->attr_encoded(1);      $parser->attr_encoded(1);
   
     # last parse out the mapalias params.  These provide mnemonic      # last parse out the mapalias params.  Thes provide mnemonic
     # tags to resources that can be used in conditions      # tags to resources that can be used in conditions
   
     while (my $token = $parser->get_token) {      while (my $token = $parser->get_token) {
Line 379  sub loadmap { Line 374  sub loadmap {
     }      }
 }  }
   
 sub is_advanced {  
     my ($courseid) = @_;  
     my $advanced;  
     if ($env{'request.course.id'}) {  
         $advanced = (&Apache::lonnet::allowed('adv') eq 'F');  
     } else {  
         $env{'request.course.id'} = $courseid;  
         $advanced = (&Apache::lonnet::allowed('adv') eq 'F');  
         $env{'request.course.id'} = '';  
     }  
     return $advanced;  
 }  
   
 sub error_detail {  
     my ($parent_rid,$courseid,$ispage,$uri) = @_;  
     my $errinfo;  
     if ($courseid) {  
         my $courseurl = &Apache::lonnet::courseid_to_courseurl($courseid);  
         if ($parent_rid =~ /^(\d+)\.(\d+)$/) {  
             my ($parent_pc,$parent_id) = ($1,$2);  
             my ($parent_type,$published,$uploaded,$canedit,$role,$switchserver,$audom,$auname,  
                 $editfile,$filerole,$fileswitch,$audomfile,$aunamefile);  
             if (($parent_pc eq '0') && ($hash{'map_id_1'} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$})) {  
                 ($audomfile,$aunamefile) = ($1,$2);  
                 ($editfile,$filerole,$fileswitch) = &canedit_published($audomfile,$aunamefile);  
                 $errinfo = &mt('Top level published sequence file is missing.');  
             } else {  
                 if ($parent_pc eq '1') {  
                     if ($hash{'map_id_1'} eq "/uploaded$courseurl/default.sequence") {  
                         $uploaded = 1;  
                         if (&Apache::lonnet::allowed('mdc',$courseid)) {  
                             $canedit = 1;  
                         }  
                         $errinfo = &mt('Map is referenced in the top level ([_1]Main Content[_2]) folder.',  
                                        '<span class="LC_cusr_emph">','</span>');  
                     } elsif ($hash{'map_id_1'} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {  
                         ($audom,$auname) = ($1,$2);  
                         ($canedit,$role,$switchserver) = &canedit_published($audom,$auname);  
                         $published = 1;  
                         $errinfo = &mt('Map is referenced in the top level published sequence file.');  
                     }  
                 } else {  
                     if ($hash{'map_id_'.$parent_pc} =~ m{^\Q/uploaded$courseurl/default_\E\d+\.(sequence|page)$}) {  
                         $uploaded = 1;  
                         if (&Apache::lonnet::allowed('mdc',$courseid)) {  
                             $canedit = 1;  
                         }  
                     } elsif ($hash{'map_id_'.$parent_pc} =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {  
                         ($audom,$auname) = ($1,$2);  
                         ($canedit,$role,$switchserver) = &canedit_published($audom,$auname);  
                         $published = 1;  
                     }  
                     if (exists($hash{'ids_'.$hash{'map_id_'.$parent_pc}})) {  
                         $parent_type = $hash{'map_type_'.$parent_pc};  
                         if ($published) {  
                             $errinfo = &mt("Map is referenced in the published $parent_type file: [_1].",  
                                            '<span class="LC_cusr_emph">'.$hash{'map_id_'.$parent_pc}.'</span>');  
                         } else {  
                             my $title = $hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$parent_pc}}};  
                             if ($title ne '') {  
                                 my $mapdesc;  
                                 if ($parent_type eq 'sequence') {  
                                     $mapdesc = 'folder';  
                                 } else {  
                                     $mapdesc = 'composite page';  
                                 }  
                                 $errinfo = &mt("Map is referenced in the $mapdesc named: [_1].",  
                                                '<span class="LC_cusr_emph">'.$title.'</span>');  
                             }  
                             my @containers = split(/,/,$hash{'map_hierarchy_'.$parent_pc});  
                             shift(@containers);  
                             my $folderpath;  
                             foreach my $id (@containers) {  
                                 my $name;  
                                 if ($id == 1) {  
                                     $name = &mt('Main Content');  
                                 } elsif ($hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$id}}} ne '') {  
                                     $name = $hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$id}}};  
                                 }  
                                 if ($name ne '') {  
                                     $folderpath .= $name.' &raquo; ';  
                                 }  
                             }  
                             if ($title eq '') {  
                                 $folderpath =~ s/\Q &raquo; \E$//;  
                             } else {  
                                 $folderpath .= $title;  
                             }  
                             if ($folderpath) {  
                                 $errinfo .= '<br />'.&mt('Hierarchy is: [_1]',  
                                                     '<span class="LC_cusr_emph">'.$folderpath.'</span>');  
                             }  
                         }  
                     }  
                 }  
                 if ($uri =~ m{^/res/($match_domain)/($match_username)/.+\.(sequence|page)$}) {  
                     ($audomfile,$aunamefile) = ($1,$2);  
                     ($editfile,$filerole,$fileswitch) = &canedit_published($audomfile,$aunamefile);  
                 }  
             }  
             if ($errinfo) {  
                 $errinfo = '<br />'.$errinfo.'<br />';  
             }  
             if ($editfile) {  
                 if ($errinfo ne '') {  
                     $errinfo .= '<br />';  
                 }  
                 if ($canedit) {  
                     $errinfo .= &mt('One way to rectify this problem is to create and publish the missing file');  
                 } else {  
                     $errinfo .= &mt('To rectify this problem, create and publish the missing file');  
                 }  
                 my $fileurl = $uri;  
                 $fileurl =~s{^/res/}{/priv/};  
                 if ($fileswitch) {  
                     my $rolename = &Apache::lonnet::plaintext($filerole);  
                     my $rolecode;  
                     if ($filerole eq 'au') {  
                         $rolecode = 'au./'.$audomfile.'/';  
                     } else {  
                         $rolecode = $filerole.'./'.$audomfile.'/'.$aunamefile;  
                     }  
                     $errinfo .= '.<br />'.&mt('You will need to [_1]switch server[_2].',  
                                              '<a href="/adm/switchserver?otherserver='.$switchserver.'&amp;role='.$rolecode.  
                                              '&amp;origurl='.&escape($fileurl).'">','</a>');  
                 } else {  
                     &js_escape(\$fileurl);  
                     $errinfo .= ':&nbsp;<a href="javascript:go('."'$fileurl'".');">'.&mt('Create the missing file').'</a>';  
                 }  
             }  
             if ($canedit) {  
                 if ($errinfo ne '') {  
                     $errinfo .= '<br />';  
                 }  
                 if ($published) {  
                     my $rolename = &Apache::lonnet::plaintext($role);  
                     my $rolecode;  
                     if ($role eq 'au') {  
                         $rolecode = 'au./'.$audom.'/';  
                     } else {  
                         $rolecode = $role.'./'.$audom.'/'.$auname;  
                     }  
                     if ($editfile) {  
                         $errinfo .= &mt('Another way is to edit the parent map to remove the reference to the missing file');  
                     } else {  
                         $errinfo .= &mt('To rectify this problem edit the parent map to remove the reference to the missing file');  
                     }  
                     my $mapurl = $hash{'map_id_'.$parent_pc};  
                     $mapurl =~s{^/res/}{/priv/};  
                     if ($switchserver) {  
                         $errinfo .= '.<br />'.  
                                     &mt('You will need to [_1]switch server[_2].',  
                                         '<a href="/adm/switchserver?otherserver='.$switchserver.'&amp;role='.$rolecode.  
                                         '&amp;origurl='.&escape($mapurl).'">','</a>');  
                     } else {  
                         &js_escape(\$mapurl);  
                         $errinfo .= ':&nbsp;<a href="javascript:go('."'$mapurl'".');">'.&mt('Edit the map').'</a>';  
                     }  
                 } elsif ($uploaded && $courseid) {  
                     my ($dest,$linktext);  
                     my $crstype = &Apache::loncommon::course_type($courseid);  
                     if ($parent_pc eq '1') {  
                         $dest = '/adm/coursedocs?folderpath='.&escape('default&Main%20Content:::::');  
                         $linktext = &mt('Edit Folder');  
                     } elsif ($hash{'ids_'.$hash{'map_id_'.$parent_pc}} =~ /^(\d+)\.(\d+)$/) {  
                         my ($editmap,$editidx) = ($1,$2);  
                         my $symb = &Apache::lonnet::encode_symb($hash{'map_id_'.$editmap},  
                                                                      $editidx,$hash{'map_id_'.$parent_pc});  
                         $dest = '/adm/coursedocs?command=directnav&amp;symb='.&escape($symb);  
                         if ($parent_type eq 'sequence') {  
                             $linktext = &mt('Edit Folder');  
                         } else {  
                             $linktext = &mt('Edit Composite Page');  
                         }  
                     } else {  
                         $dest = '/adm/coursedocs?folderpath='.&escape('default&Main%20Content:::::');  
                         $linktext = &mt("Edit $crstype");  
                     }  
                     if ($editfile) {  
                         $errinfo .= &mt("Another way is to use the $crstype Editor to delete the reference to the missing file");  
                     } else {  
                         $errinfo .= &mt("To rectify this problem use the $crstype Editor to delete the reference to the missing file");  
                     }  
                     $errinfo .= ':&nbsp;<a href="javascript:go('."'$dest'".');">'.$linktext.'</a>';  
                 }  
                 $errinfo .= '<br />';  
             }  
         }  
     }  
     return $errinfo;  
 }  
   
 sub canedit_published {  
     my ($audom,$auname) = @_;  
     my ($canedit,$role,$switchserver);  
     my $now = time;  
     if (($auname eq $env{'user.name'}) && ($audom eq $env{'user.domain'})) {  
         if (exists($env{"user.role.au./$audom/"})) {  
             my ($start,$end) = split(/\./,$env{"user.role.au./$audom/"});  
             unless (($end && $end < $now) || ($start && $start > $now)) {  
                 $canedit = 1;  
                 $role = 'au';  
             }  
         }  
     }  
     unless ($canedit) {  
         foreach my $possrole ('ca','aa') {  
             if (exists($env{"user.role.$possrole./$audom/$auname"})) {  
                 my ($end,$start) = split(/\./,$env{"user.role.$possrole./$audom/$auname"});  
                 unless (($end && $end < time) || ($start && $start > time)) {  
                     $canedit = 1;  
                     $role = $possrole;  
                     last;  
                 }  
             }  
         }  
     }  
     if ($canedit) {  
         my $auhome = &Apache::lonnet::homeserver($auname,$audom);  
         my @ids=&Apache::lonnet::current_machine_ids();  
         if (($auhome ne 'no_host') && (!grep(/^\Q$auhome\E$/,@ids))) {  
             $switchserver = $auhome;  
         }  
     }  
     return ($canedit,$role,$switchserver);  
 }  
   
 # -------------------------------------------------------------------- Resource  # -------------------------------------------------------------------- Resource
 #  #
Line 691  sub parse_resource { Line 460  sub parse_resource {
     # is not a page.  If the resource is a page then it must be      # is not a page.  If the resource is a page then it must be
     # assembled (at fetch time?).      # assembled (at fetch time?).
   
     if ($ispage) {      unless ($ispage) {
         if ($token->[2]->{'external'} eq 'true') { # external  
             $turi=~s{^http\://}{/ext/};  
         }  
     } else {  
  $turi=~/\.(\w+)$/;   $turi=~/\.(\w+)$/;
  my $embstyle=&Apache::loncommon::fileembstyle($1);   my $embstyle=&Apache::loncommon::fileembstyle($1);
  if ($token->[2]->{'external'} eq 'true') { # external   if ($token->[2]->{'external'} eq 'true') { # external
Line 710  sub parse_resource { Line 475  sub parse_resource {
     } elsif ($turi!~/\.(sequence|page)$/) {      } elsif ($turi!~/\.(sequence|page)$/) {
  $turi='/adm/coursedocs/showdoc'.$turi;   $turi='/adm/coursedocs/showdoc'.$turi;
     }      }
           } elsif ($turi=~ m{^/adm/$match_domain/$match_courseid/\d+/exttools?$}) {
               $turi='/adm/wrapper'.$turi;
  } elsif ($turi=~/\S/) { # normal non-empty internal resource   } elsif ($turi=~/\S/) { # normal non-empty internal resource
     my $mapdir=$uri;      my $mapdir=$uri;
     $mapdir=~s/[^\/]+$//;      $mapdir=~s/[^\/]+$//;
Line 785  sub parse_resource { Line 552  sub parse_resource {
     if (($turi=~/\.sequence$/) ||      if (($turi=~/\.sequence$/) ||
  ($turi=~/\.page$/)) {   ($turi=~/\.page$/)) {
  $hash{'is_map_'.$rid}=1;   $hash{'is_map_'.$rid}=1;
  if ((!$hiddenurl{$rid}) || (&is_advanced($courseid))) {   &loadmap($turi,$rid,$courseid);
     &loadmap($turi,$rid,$courseid);  
  }  
     }       } 
     return $token->[2]->{'id'};      return $token->[2]->{'id'};
 }  }
Line 943  sub parse_condition { Line 708  sub parse_condition {
 #  Typical attributes:  #  Typical attributes:
 #     to=n      - Number of the resource the parameter applies to.  #     to=n      - Number of the resource the parameter applies to.
 #     type=xx   - Type of parameter value (e.g. string_yesno or int_pos).  #     type=xx   - Type of parameter value (e.g. string_yesno or int_pos).
 #     name=xxx  - Name of parameter (e.g. parameter_randompick or parameter_randomorder).  #     name=xxx  - Name ofr parameter (e.g. parameter_randompick or parameter_randomorder).
 #     value=xxx - value of the parameter.  #     value=xxx - value of the parameter.
   
 sub parse_param {  sub parse_param {
Line 1351  sub hiddenurls { Line 1116  sub hiddenurls {
             if ($currentrids[$k]) {              if ($currentrids[$k]) {
  $hash{'randomout_'.$currentrids[$k]}=1;   $hash{'randomout_'.$currentrids[$k]}=1;
                 my ($mapid,$resid)=split(/\./,$currentrids[$k]);                  my ($mapid,$resid)=split(/\./,$currentrids[$k]);
                 if ($rescount{$mapid}) {  
                     $rescount{$mapid} --;  
                 }  
                 if ($hash{'is_map_'.$currentrids[$k]}) {  
                     if ($mapcount{$mapid}) {  
                         $mapcount{$mapid} --;  
                     }  
                 }  
                 $randomoutentry.='&'.                  $randomoutentry.='&'.
     &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},      &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},
  $resid,   $resid,
Line 1371  sub hiddenurls { Line 1128  sub hiddenurls {
     foreach my $rid (keys(%hiddenurl)) {      foreach my $rid (keys(%hiddenurl)) {
  $hash{'randomout_'.$rid}=1;   $hash{'randomout_'.$rid}=1;
  my ($mapid,$resid)=split(/\./,$rid);   my ($mapid,$resid)=split(/\./,$rid);
         if ($rescount{$mapid}) {  
             $rescount{$mapid} --;  
         }  
         if ($hash{'is_map_'.$rid}) {  
             if ($mapcount{$mapid}) {  
                 $mapcount{$mapid} --;  
             }  
         }  
  $randomoutentry.='&'.   $randomoutentry.='&'.
     &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,      &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,
  $hash{'src_'.$rid}).'&';   $hash{'src_'.$rid}).'&';
Line 1389  sub hiddenurls { Line 1138  sub hiddenurls {
     }      }
 }  }
   
 # -------------------------------------- populate big hash with map breadcrumbs  
   
 # Create map_breadcrumbs_$pc from map_hierarchy_$pc by omitting intermediate  
 # maps not shown in Course Contents table.  
   
 sub mapcrumbs {  
     foreach my $key (keys(%rescount)) {  
         if ($hash{'map_hierarchy_'.$key}) {  
             my $skipnext = 0;  
             foreach my $id (split(/,/,$hash{'map_hierarchy_'.$key}),$key) {  
                 unless ($skipnext) {  
                     $hash{'map_breadcrumbs_'.$key} .= "$id,";  
                 }  
                 unless (($id == 0) || ($id == 1)) {  
                     if ((!$rescount{$id}) || ($rescount{$id} == 1 && $mapcount{$id} == 1)) {  
                         $skipnext = 1;  
                     } else {  
                         $skipnext = 0;  
                     }  
                 }  
             }  
             $hash{'map_breadcrumbs_'.$key} =~ s/,$//;  
         }  
     }  
 }  
   
 # ---------------------------------------------------- Read map and all submaps  # ---------------------------------------------------- Read map and all submaps
   
 sub readmap {  sub readmap {
     my ($short,$critmsg_check) = @_;      my $short=shift;
     $short=~s/^\///;      $short=~s/^\///;
   
     # TODO:  Hidden dependency on current user:      # TODO:  Hidden dependency on current user:
Line 1435  sub readmap { Line 1158  sub readmap {
     }      }
     @cond=('true:normal');      @cond=('true:normal');
   
     unless (open(LOCKFILE,">","$fn.db.lock")) {      unless (open(LOCKFILE,">$fn.db.lock")) {
  #    # 
  # Most likely a permissions problem on the lockfile or its directory.   # Most likely a permissions problem on the lockfile or its directory.
  #   #
Line 1453  sub readmap { Line 1176  sub readmap {
         &unlink_tmpfiles($fn);          &unlink_tmpfiles($fn);
     }      }
     undef %randompick;      undef %randompick;
     undef %randompickseed;  
     undef %randomorder;  
     undef %randomizationcode;  
     undef %hiddenurl;      undef %hiddenurl;
     undef %encurl;      undef %encurl;
     undef %rescount;  
     undef %mapcount;  
     $retfrid='';      $retfrid='';
     $errtext='';      $errtext='';
     my ($untiedhash,$untiedparmhash,$tiedhash,$tiedparmhash); # More state flags.      my ($untiedhash,$untiedparmhash,$tiedhash,$tiedparmhash); # More state flags.
Line 1601  sub readmap { Line 1319  sub readmap {
             $lock=1;              $lock=1;
         }          }
         undef %randompick;          undef %randompick;
         undef %randompickseed;  
         undef %randomorder;  
         undef %randomizationcode;  
         undef %hiddenurl;          undef %hiddenurl;
         undef %encurl;          undef %encurl;
         undef %rescount;  
         undef %mapcount;  
         $errtext='';          $errtext='';
         $retfrid='';          $retfrid='';
  #   #
Line 1655  sub readmap { Line 1368  sub readmap {
   
 #  Depends on user must parameterize this as well..or separate as this is:  #  Depends on user must parameterize this as well..or separate as this is:
 #  more part of determining what someone sees on entering a course?  #  more part of determining what someone sees on entering a course?
 #  When lonuserstate::readmap() is called from lonroles.pm, i.e.,  
 #  after selecting a role in a course, critical_redirect will be called,  
 #  unless the course has a blocking event in effect, which suppresses  
 #  critical message checking (users without evb priv).  
 #  
   
     if ($critmsg_check) {      my @what=&Apache::lonnet::dump('critical',$env{'user.domain'},
         my ($redirect,$url) = &Apache::loncommon::critical_redirect();     $env{'user.name'});
         if ($redirect) {      if ($what[0]) {
             $retfurl = $url;   if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
       $retfurl='/adm/email?critical=display';
         }          }
     }       }
     return ($retfurl,$errtext);      return ($retfurl,$errtext);
 }  }
   
Line 1730  sub build_tmp_hashes { Line 1439  sub build_tmp_hashes {
         &traceroute('0',$hash{'map_start_'.$uri},'&');          &traceroute('0',$hash{'map_start_'.$uri},'&');
         &accinit($uri,$short,$fn);          &accinit($uri,$short,$fn);
         &hiddenurls();          &hiddenurls();
         &mapcrumbs();  
     }      }
     $errtext .= &get_mapalias_errors();      $errtext .= &get_mapalias_errors();
 # ------------------------------------------------------- Put versions into src  # ------------------------------------------------------- Put versions into src
Line 1762  sub build_tmp_hashes { Line 1470  sub build_tmp_hashes {
 # ---------------------------------------------------- Store away initial state  # ---------------------------------------------------- Store away initial state
     {      {
         my $cfh;          my $cfh;
         if (open($cfh,">","$fn.state")) {          if (open($cfh,">$fn.state")) {
             print $cfh join("\n",@cond);              print $cfh join("\n",@cond);
             $gotstate = 1;              $gotstate = 1;
         } else {          } else {
Line 1799  sub evalstate { Line 1507  sub evalstate {
     if (-e $fn) {      if (-e $fn) {
  my @conditions=();   my @conditions=();
  {   {
     open(my $fh,"<",$fn);      open(my $fh,"<$fn");
     @conditions=<$fh>;      @conditions=<$fh>;
             close($fh);              close($fh);
  }     }  
Removed from v.1.149.2.6  
changed lines
  Added in v.1.150

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