--- loncom/lonnet/perl/lonnet.pm	2000/10/04 15:59:07	1.35
+++ loncom/lonnet/perl/lonnet.pm	2000/10/06 21:00:05	1.37
@@ -41,6 +41,10 @@
 # refreshstate()     : refresh the state information string
 # symblist(map,hash) : Updates symbolic storage links
 # rndseed()          : returns a random seed  
+# getfile(filename)  : returns the contents of filename, or a -1 if it can't
+#                      be found, replicates and subscribes to the file
+# filelocation(dir,file) : returns a farily clean absolute reference to file 
+#                          from the directory dir
 #
 # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
 # 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,
@@ -52,8 +56,10 @@
 # 06/26 Ben Tyszka
 # 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer
 # 08/14 Ben Tyszka
-# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30,
+# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer
 # 10/04 Gerd Kortemeyer
+# 10/04 Guy Albertelli
+# 10/06 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -422,7 +428,7 @@ sub log {
 sub store {
     my %storehash=@_;
     my $symb;
-    unless ($symb=escape(&symbread())) { return ''; }
+    unless ($symb=escape(&symbread($ENV{'request.filename'}))) { return ''; }
     my $namespace;
     unless ($namespace=$ENV{'request.course.id'}) { return ''; }
     my $namevalue='';
@@ -439,7 +445,7 @@ sub store {
 
 sub restore {
     my $symb;
-    unless ($symb=escape(&symbread())) { return ''; }
+    unless ($symb=escape(&symbread($ENV{'request.filename'}))) { return ''; }
     my $namespace;
     unless ($namespace=$ENV{'request.course.id'}) { return ''; }
     my $answer=reply(
@@ -1010,24 +1016,44 @@ sub symblist {
 # ------------------------------------------------------ Return symb list entry
 
 sub symbread {
+    my $thisfn=declutter(shift);
     my %hash;
-    my $syval;
+    my %bighash;
+    my $syval='';
     if (($ENV{'request.course.fn'}) && ($ENV{'request.filename'})) {
         if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
                       &GDBM_READER,0640)) {
-            my $thisfn=declutter($ENV{'request.filename'});
 	    $syval=$hash{$thisfn};
-            if (untie(%hash)) {
-                unless ($syval=~/\_\d+$/) {
-		   unless ($ENV{'form.request.prefix'}=~/\.(\d+)\_$/) {
-                      return '';
-                   }    
-                   $syval.=$1;
-	        }
-                $syval.='___'.$thisfn;
-		return $syval;
-            }
+            untie(%hash);
+        }
+# ---------------------------------------------------------- There was an entry
+        if ($syval) {
+           unless ($syval=~/\_\d+$/) {
+	       unless ($ENV{'form.request.prefix'}=~/\.(\d+)\_$/) {
+                  return '';
+               }    
+               $syval.=$1;
+	   }
+        } else {
+# ------------------------------------------------------- Was not in symb table
+           if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
+                            &GDBM_READER,0640)) {
+# ---------------------------------------------- Get ID(s) for current resource
+              my $ids=$bighash{'ids_/res/'.$thisfn};
+              if ($ids) {
+# ------------------------------------------------------------------- Has ID(s)
+                 my @possibilities=split(/\,/,$ids);
+                 if ($#possibilities==1) {
+		     my ($mapid,$resid)=split(/\./,$ids);
+                     $syval=declutter($bighash{'map_id_'.$mapid}).'___'.$resid;
+                 } else {
+                     $syval='';
+                 }
+	      }
+              untie(%bighash)
+           } 
         }
+        return $syval.'___'.$thisfn;
     }
     return '';
 }
@@ -1048,7 +1074,7 @@ sub numval {
 
 sub rndseed {
     my $symb;
-    unless ($symb=&symbread()) { return ''; }
+    unless ($symb=&symbread($ENV{'request.filename'})) { return ''; }
     my $symbchck=unpack("%32C*",$symb);
     my $symbseed=numval($symb)%$symbchck;
     my $namechck=unpack("%32C*",$ENV{'user.name'});
@@ -1061,6 +1087,35 @@ sub rndseed {
                .$symbchck);
 }
 
+# ------------------------------------------------------------ Serves up a file
+# returns either the contents of the file or a -1
+sub getfile {
+  my $file=shift;
+  &repcopy($file);
+  if (! -e $file ) { return -1; };
+  my $fh=Apache::File->new($file);
+  my $a='';
+  while (<$fh>) { $a .=$_; }
+  return $a
+}
+
+sub filelocation {
+  my ($dir,$file) = @_;
+  my $location;
+  $file=~ s/^\s*(\S+)\s*$/$1/; ## strip off leading and trailing spaces
+  $file=~s/^$perlvar{'lonDocRoot'}//;
+  $file=~s:^/*res::;
+  if ( !( $file =~ m:^/:) ) {
+    $location = $dir. '/'.$file;
+  } else {
+    $location = '/home/httpd/html/res'.$file;
+  }
+  $location=~s://+:/:g; # remove duplicate /
+  while ($location=~m:/../:) {$location=~ s:/[^/]+/\.\./:/:g;} #remove dir/..
+
+  return $location;
+}
+
 # ------------------------------------------------------------- Declutters URLs
 
 sub declutter {