[BACK]Return to londropadd.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.134 and 1.137

version 1.134, 2006/02/07 05:08:32 version 1.137, 2006/02/18 01:27:07
Line 172  sub print_main_menu { Line 172  sub print_main_menu {
             permission => &Apache::lonnet::auto_run($cnum,$cdom),              permission => &Apache::lonnet::auto_run($cnum,$cdom),
             url  => '/adm/populate',              url  => '/adm/populate',
             },              },
 #          { text => 'Create a new group',            { text => 'Create a new group',
 #            help => 'Course_Create_Group',              help => 'Course_Create_Group',
 #            permission => $grp_manage_permission,              permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=create',              url => '/adm/coursegroups?refpage=enrl&action=create',
 #            },              },
 #          { text => 'Modify an existing group',            { text => 'Modify an existing group',
 #            help => 'Course_Modify_Group',              help => 'Course_Modify_Group',
 #            permission => $grp_manage_permission,              permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=modify',              url => '/adm/coursegroups?refpage=enrl&action=modify',
 #            },              },
 #          { text => 'Delete an existing group',            { text => 'Delete an existing group',
 #            help => 'Course_Delete_Group',              help => 'Course_Delete_Group',
 #            permission => $grp_manage_permission,              permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=delete',              url => '/adm/coursegroups?refpage=enrl&action=delete',
 #            },              },
 #          { text => 'Enter an existing group',            { text => 'Enter an existing group',
 #            help => 'Course_Display_Group',              help => 'Course_Display_Group',
 #            permission => $grp_view_permission,              permission => $grp_view_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=view',              url => '/adm/coursegroups?refpage=enrl&action=view',
 #            },              },
           );            );
     my $menu_html = '';      my $menu_html = '';
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
Line 1295  END Line 1295  END
 <input type="hidden" name="sdom"   value="" />  <input type="hidden" name="sdom"   value="" />
 END  END
         }          }
         if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {          if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
             $r->print('              $r->print('
 <script type="text/javascript">  <script type="text/javascript">
 function photowindow(photolink) {  function photowindow(photolink) {
Line 1339  function photowindow(photolink) { Line 1339  function photowindow(photolink) {
        <a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>         <a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>
     </th>      </th>
 END  END
         if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {          if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
             my %photo_options = &Apache::lonlocal::texthash (              my %photo_options = &Apache::lonlocal::texthash(
                                                             'on' => 'Show',                                                              'on' => 'Show',
                                                             'off' => 'Hide',                                                              'off' => 'Hide',
                                                             );                                                              );
Line 1494  END Line 1494  END
     <td>$end</td>      <td>$end</td>
 END  END
             if ($env{'course.'.$env{'request.course.id'}.              if ($env{'course.'.$env{'request.course.id'}.
                                                      '.internal.showphotos'}) {   '.internal.showphoto'}) {
                 if ($displayphotos eq 'on') {                  if ($displayphotos eq 'on') {
                     my $imgurl = &Apache::lonnet::retrievestudentphoto($domain,                      my $imgurl = 
                                                   $username,'gif','thumbnail');   &Apache::lonnet::retrievestudentphoto($domain,
         $username,'gif',
         'thumbnail');
                                   
                     $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($domain,$username,'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');                      $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($domain,$username,'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');
                 } else {                  } else {
Removed from v.1.134  
changed lines
  Added in v.1.137

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>