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

raeburn raeburn at source.lon-capa.org
Sat May 4 22:21:20 EDT 2013


raeburn		Sun May  5 02:21:20 2013 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  - Publicly shareable link shown on Syllabus editing page more prominent.
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.118 loncom/interface/lonsyllabus.pm:1.119
--- loncom/interface/lonsyllabus.pm:1.118	Fri May  3 21:57:13 2013
+++ loncom/interface/lonsyllabus.pm	Sun May  5 02:21:20 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.118 2013/05/03 21:57:13 raeburn Exp $
+# $Id: lonsyllabus.pm,v 1.119 2013/05/05 02:21:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -522,13 +522,14 @@
         if ($target ne 'tex') {
             my $protocol = $Apache::lonnet::protocol{$homeserver};
             $protocol = 'http' if ($protocol ne 'https');
-            $r->print('<div class="LC_info">'
-                     .'<p>'
-                     .&mt('This syllabus can be publicly viewed at [_1]'
-                          ,'<tt>'.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>')
-                     .' '.&Apache::loncommon::help_open_topic('Syllabus_ExtLink')
-                     .'</p>'
-                     .'</div>');
+            my $link = $protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri;
+            $r->print('<div class="LC_left_float">'
+                     .'<span class="LC_help_open_topic LC_info">'
+                     .'<span class="LC_info">'
+                     .&mt('Public link (no log-in): [_1]','<tt>'.$link.'</tt>')
+                     .' </span>'.&Apache::loncommon::help_open_topic('Syllabus_ExtLink')
+                     .'</span>'
+                     .'</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
             my $lonhost = $r->dir_config('lonHostID');
             $r->print(&chooser($external,$uploaded,$cdom,$cnum,$lonhost,\%syllabusfields,\%syllabus));
         }




More information about the LON-CAPA-cvs mailing list