[LON-CAPA-cvs] cvs: rat / map.pm

[albertel]

albertel		Wed Aug  1 21:47:42 2007 EDT

  Modified files:              
    /rat	map.pm 
  Log:
  - neccearry bits for proper editing or restoring of deleted resources
  
  
Index: rat/map.pm
diff -u rat/map.pm:1.7 rat/map.pm:1.8
--- rat/map.pm:1.7	Wed Jul 11 21:04:32 2007
+++ rat/map.pm	Wed Aug  1 21:47:42 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # routines for modyfing .sequence and .page files
 #
-# $Id: map.pm,v 1.7 2007/07/12 01:04:32 albertel Exp $
+# $Id: map.pm,v 1.8 2007/08/02 01:47:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -284,11 +284,11 @@
     my @insertorder=();
     foreach (@which) {
         if (defined($_)) {
-	    my ($name,$url)=split(/\=/,$_);
+	    my ($name,$url,$residx)=split(/\=/,$_);
             $name=&unescape($name);
             $url=&unescape($url);
             if ($url) {
-		my $idx=&getresidx($url);
+		my $idx=&getresidx($url,$residx);
 		$insertorder[$#insertorder+1]=$idx;
 		my $ext='false';
 		if ($url=~/^http\:\/\//) { $ext='true'; }