--- loncom/lonnet/perl/lonnet.pm	2011/06/06 17:17:44	1.1110
+++ loncom/lonnet/perl/lonnet.pm	2011/06/06 23:28:48	1.1111
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1110 2011/06/06 17:17:44 www Exp $
+# $Id: lonnet.pm,v 1.1111 2011/06/06 23:28:48 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2015,6 +2015,17 @@ sub currentversion {
     return &do_cache_new('resversion',$fname,$answer,600);
 }
 
+#
+# Return special version number of resource if set by override, empty otherwise
+#
+sub usedversion {
+    my $fname=shift;
+    unless ($fname) { $fname=$env{'request.uri'}; }
+    my ($urlversion)=($fname=~/\.(\d+)\.\w+$/);
+    if ($urlversion) { return $urlversion; }
+    return '';
+}
+
 # ----------------------------- Subscribe to a resource, return URL if possible
 
 sub subscribe {