loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.468, 2011/12/21 20:21:49
+version 1.469, 2011/12/21 23:23:08
  Line 2200  END
      } else {
          $reinit = &mt('(re-initialize course to access)');
      }
-     $line.='
+     $line.='<td>';
-   <td>
+     if ($url=~m{/adm/coursedocs}) {
-     '.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'
+        $line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
-   </td>
+     } elsif ($url) {
-   <td>
+        $line.=&Apache::loncommon::modal_link($url.'&inhibitmenu=yes','<img src="'.$icon.'" alt="" class="LC_icon" />',600,500);
-     '.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.$reinit.'</span>').$external."
+     } else {
-   </td>";
+        $line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
+     }
+     $line.='</td><td>';
+     if ($url=~m{/adm/coursedocs}) {
+        $line.='<a href="'.$url.'">'.$title.'</a>';
+     } elsif ($url) {
+        $line.=&Apache::loncommon::modal_link($url.'&inhibitmenu=yes',$title,600,500);
+     } else {
+        $line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
+     }
+     $line.=$external."</td>";
      if (($allowed) && ($folder!~/^supplemental/)) {
   	my %lt=&Apache::lonlocal::texthash(
   			      'hd' => 'Hidden',