--- rat/map.pm 2012/07/21 21:20:19 1.14 +++ rat/map.pm 2014/06/14 19:05:00 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # routines for modyfing .sequence and .page files # -# $Id: map.pm,v 1.14 2012/07/21 21:20:19 raeburn Exp $ +# $Id: map.pm,v 1.15 2014/06/14 19:05:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -303,10 +303,14 @@ sub startfinish { } } } +# Make sure this has at least start and finish + if ($#order==-1) { + $resources[&getresidx()]='::false'; + $order[0]=$#resources; + } # Put in a start resource my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; -# Make sure this has at least start and finish if ($#order==0) { $resources[&getresidx()]='::false'; $order[1]=$#resources;