[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Sun Jul 14 01:26:01 2024 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Stop duplication of "LON-CAPA" in title tag for help pages. 
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1431 loncom/interface/loncommon.pm:1.1432
--- loncom/interface/loncommon.pm:1.1431	Tue May 21 02:57:15 2024
+++ loncom/interface/loncommon.pm	Sun Jul 14 01:26:01 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1431 2024/05/21 02:57:15 raeburn Exp $
+# $Id: loncommon.pm,v 1.1432 2024/07/14 01:26:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9614,8 +9614,12 @@
 	$title = 'The LearningOnline Network with CAPA';
     }
     if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
-    $result .= '<title> LON-CAPA '.$title.'</title>'
-	.'<link rel="stylesheet" type="text/css" href="'.$url.'"';
+    if ($title =~ /^LON-CAPA\s+/) {
+        $result .= '<title> '.$title.'</title>';
+    } else {
+        $result .= '<title> LON-CAPA '.$title.'</title>';
+    }
+    $result .= "\n".'<link rel="stylesheet" type="text/css" href="'.$url.'"';
     if (!$args->{'frameset'}) {
         $result .= ' /';
     }