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

Diff for /loncom/interface/slotrequest.pm between versions 1.36 and 1.38

version 1.36, 2005/11/21 22:16:24 version 1.38, 2006/01/24 06:41:16
Line 325  sub delete_slot { Line 325  sub delete_slot {
     my ($cnum,$cdom)=&get_course();      my ($cnum,$cdom)=&get_course();
     my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,      my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
        "^$slot_name\0");         "^$slot_name\0");
       my ($tmp) = %consumed;
       if ($tmp =~ /error: 2/) { undef(%consumed); }
   
     if (%slot && !%consumed) {      if (%slot && !%consumed) {
  $slot{'type'} = 'deleted';   $slot{'type'} = 'deleted';
Line 626  sub show_table { Line 628  sub show_table {
      'endtime'      => 'End Time',       'endtime'      => 'End Time',
              'startreserve' => 'Time students can start reserving',               'startreserve' => 'Time students can start reserving',
      'secret'       => 'Secret Word',       'secret'       => 'Secret Word',
      'maxspace'     => 'Maxium # of students',       'maxspace'     => 'Maximum # of students',
      'ip'           => 'IP or DNS restrictions',       'ip'           => 'IP or DNS restrictions',
      'symb'         => 'Resource slot is restricted to.',       'symb'         => 'Resource slot is restricted to.',
      'uniqueperiod' => 'Period of time slot is unique',       'uniqueperiod' => 'Period of time slot is unique',
Line 732  sub show_table { Line 734  sub show_table {
  my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,   my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
    "^$slot\0");     "^$slot\0");
  my $ids;   my $ids;
  foreach my $entry (sort(keys(%consumed))) {  
     my (undef,$id)=split("\0",$entry);   my ($tmp)=%consumed;
     my ($uname,$udom) = split('@',$consumed{$entry}{'name'});   if ($tmp !~ /^error: /) {
     my $name = &Apache::loncommon::plainname($uname,$udom);      foreach my $entry (sort(keys(%consumed))) {
     $ids.= '<nobr>'.$name.&remove_link($slot,$entry,$uname,$udom,   my (undef,$id)=split("\0",$entry);
        $consumed{$entry}{'symb'})   my ($uname,$udom) = split('@',$consumed{$entry}{'name'});
  .'</nobr><br />';   my $name = &Apache::loncommon::plainname($uname,$udom);
    $ids.= '<nobr>'.$name.&remove_link($slot,$entry,$uname,$udom,
      $consumed{$entry}{'symb'})
       .'</nobr><br />';
       }
  }   }
   
  my $start=($slots{$slot}->{'starttime'}?   my $start=($slots{$slot}->{'starttime'}?
Removed from v.1.36  
changed lines
  Added in v.1.38

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