[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 01 Dec 2006 22:17:26 -0000
albertel Fri Dec 1 17:17:26 2006 EDT
Modified files:
/loncom/interface londocs.pm
Log:
- death to leaning toothpics
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.262 loncom/interface/londocs.pm:1.263
--- loncom/interface/londocs.pm:1.262 Thu Nov 30 18:34:38 2006
+++ loncom/interface/londocs.pm Fri Dec 1 17:17:26 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.262 2006/11/30 23:34:38 banghart Exp $
+# $Id: londocs.pm,v 1.263 2006/12/01 22:17:26 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -936,7 +936,7 @@
my $idx = &LONCAPA::map::getresidx($url);
$LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
my $ext = 'false';
- if ($url=~/^http:\/\// || $url=~/^https:\/\//) { $ext = 'true'; }
+ if ($url=~m{^http://} || $url=~m{^https://}) { $ext = 'true'; }
$url =~ s/:/\:/g;
$name =~ s/:/\:/g;
$LONCAPA::map::resources[$idx] =