--- loncom/interface/loncommon.pm	2020/05/25 16:46:58	1.1075.2.127.2.9
+++ loncom/interface/loncommon.pm	2020/05/25 18:46:14	1.1075.2.127.2.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.127.2.9 2020/05/25 16:46:58 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.127.2.10 2020/05/25 18:46:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -17138,6 +17138,18 @@ sub make_short_symbs {
                         push(@errors,&mt('error: could not store unique six character URLs'));
                     }
                 }
+                my $dellockres = &Apache::lonnet::del_dom('tiny',["lock\0$now"],$cdom);
+                unless ($dellockres eq 'ok') {
+                    push(@errors,&mt('error: could not release lockfile'));
+                }
+            } else {
+                push(@errors,&mt('error: could not obtain lockfile'));
+            }
+            if (keys(%courseonly)) {
+                my $result = &Apache::lonnet::newput('tiny',\%courseonly,$cdom,$cnum);
+                if ($result ne 'ok') {
+                    push(@errors,&mt('error: could not update course look-up of short URLs'));
+                }
             }
         }
     }