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

Diff for /loncom/interface/lonprintout.pm between versions 1.619 and 1.620

version 1.619, 2012/06/11 11:07:33 version 1.620, 2012/10/12 13:48:08
Line 582  sub printable { Line 582  sub printable {
 sub get_print_dates {  sub get_print_dates {
     my $res = shift;      my $res = shift;
     my $partsref = $res->parts();      my $partsref = $res->parts();
     my @parts   = @$partsref;      my @parts;
       if (ref($partsref) eq 'ARRAY') {
           @parts   = @{$partsref};
       }
     my $open_date;      my $open_date;
     my $close_date;      my $close_date;
     my @open_dates;      my @open_dates;
     my @close_dates;      my @close_dates;
   
   
     if (defined(@parts) && (scalar(@parts) > 0)) {      if (@parts) {
  foreach my $part (@parts) {   foreach my $part (@parts) {
     my $partopen  = $res->parmval('printstartdate', $part);      my $partopen  = $res->parmval('printstartdate', $part);
     my $partclose = $res->parmval('printenddate',  $part);      my $partclose = $res->parmval('printenddate',  $part);
Line 632  sub course_print_dates { Line 635  sub course_print_dates {
   
     # Don't bother looping over undefined or empty parts arraY;      # Don't bother looping over undefined or empty parts arraY;
   
     if (defined(@parts) && (scalar(@parts) > 0)) {      if (@parts) {
  foreach my $part (@parts) {   foreach my $part (@parts) {
     my ($partopen, $partclose) = $navmap->course_printdates($res, $part);      my ($partopen, $partclose) = $navmap->course_printdates($res, $part);
     push(@open_dates, $partopen);      push(@open_dates, $partopen);
Line 658  sub map_print_dates { Line 661  sub map_print_dates {
   
     # Don't bother looping over undefined or empty parts arraY;      # Don't bother looping over undefined or empty parts arraY;
   
     if (defined(@parts) && (scalar(@parts) > 0)) {      if (@parts) {
  foreach my $part (@parts) {   foreach my $part (@parts) {
     my ($partopen, $partclose) = $navmap->map_printdates($res, $part);      my ($partopen, $partclose) = $navmap->map_printdates($res, $part);
     push(@open_dates, $partopen);      push(@open_dates, $partopen);
Removed from v.1.619  
changed lines
  Added in v.1.620

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