Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e2b9e173

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID e2b9e1737230c4e4209904784808dcaec723f730
  • Vorgänger 00e2320c
  • Nachfolger 1f110e87

Alle Vorkommen von all_departments abgesichert.

Unterschiede anzeigen:

SL/Form.pm
2740 2740
                 ORDER BY description|;
2741 2741
  $self->{all_departments} = selectall_hashref_query($self, $dbh, $query);
2742 2742

  
2743
  delete($self->{all_departments}) unless (@{ $self->{all_departments} });
2743
  delete($self->{all_departments}) unless (@{ $self->{all_departments} || [] });
2744 2744

  
2745 2745
  $main::lxdebug->leave_sub();
2746 2746
}
bin/mozilla/ap.pl
170 170
  }
171 171

  
172 172
  # departments
173
  if (@{ $form->{all_departments} }) {
173
  if (@{ $form->{all_departments} || [] }) {
174 174
    $form->{selectdepartment} = "<option>\n";
175 175
    $form->{department}       = "$form->{department}--$form->{department_id}";
176 176

  
177 177
    map {
178 178
      $form->{selectdepartment} .=
179 179
        "<option>$_->{description}--$_->{id}\n"
180
    } (@{ $form->{all_departments} });
180
    } (@{ $form->{all_departments} || [] });
181 181
  }
182 182

  
183 183
  $form->{employee} = "$form->{employee}--$form->{employee_id}";
......
1222 1222
  }
1223 1223

  
1224 1224
  # departments
1225
  if (@{ $form->{all_departments} }) {
1225
  if (@{ $form->{all_departments} || [] }) {
1226 1226
    $form->{selectdepartment} = "<option>\n";
1227 1227

  
1228 1228
    map {
1229 1229
      $form->{selectdepartment} .=
1230 1230
        "<option>$_->{description}--$_->{id}\n"
1231
    } (@{ $form->{all_departments} });
1231
    } (@{ $form->{all_departments} || [] });
1232 1232
  }
1233 1233

  
1234 1234
  my $department = qq|
bin/mozilla/ar.pl
180 180
  }
181 181

  
182 182
  # departments
183
  if (@{ $form->{all_departments} }) {
183
  if (@{ $form->{all_departments} || [] }) {
184 184
    $form->{selectdepartment} = "<option>\n";
185 185
    $form->{department}       = "$form->{department}--$form->{department_id}";
186 186

  
187 187
    map {
188 188
      $form->{selectdepartment} .=
189 189
        "<option>$_->{description}--$_->{id}\n"
190
    } (@{ $form->{all_departments} });
190
    } (@{ $form->{all_departments} || [] });
191 191
  }
192 192

  
193 193
  $form->{employee} = "$form->{employee}--$form->{employee_id}";
194 194

  
195 195
  # sales staff
196
  if (@{ $form->{all_employees} }) {
196
  if (@{ $form->{all_employees} || [] }) {
197 197
    $form->{selectemployee} = "";
198 198
    map { $form->{selectemployee} .= "<option>$_->{name}--$_->{id}\n" }
199
      (@{ $form->{all_employees} });
199
      (@{ $form->{all_employees} || [] });
200 200
  }
201 201

  
202 202
  # build the popup menus
......
1278 1278
  }
1279 1279

  
1280 1280
  # departments
1281
  if (@{ $form->{all_departments} }) {
1281
  if (@{ $form->{all_departments} || [] }) {
1282 1282
    $form->{selectdepartment} = "<option>\n";
1283 1283

  
1284 1284
    map {
1285 1285
      $form->{selectdepartment} .=
1286 1286
        "<option>$_->{description}--$_->{id}\n"
1287
    } (@{ $form->{all_departments} });
1287
    } (@{ $form->{all_departments} || [] });
1288 1288
  }
1289 1289

  
1290 1290
  $department = qq|
bin/mozilla/ca.pl
167 167
    map {
168 168
      $form->{selectdepartment} .=
169 169
        "<option>$_->{description}--$_->{id}\n"
170
    } (@{ $form->{all_departments} });
170
    } (@{ $form->{all_departments} || [] });
171 171
  }
172 172

  
173 173
  my $department = qq|
bin/mozilla/cp.pl
74 74
  }
75 75

  
76 76
  # departments
77
  if (@{ $form->{all_departments} }) {
77
  if (@{ $form->{all_departments} || [] }) {
78 78
    $form->{selectdepartment} = "<option>\n";
79 79
    $form->{department}       = "$form->{department}--$form->{department_id}";
80 80

  
81 81
    map {
82 82
      $form->{selectdepartment} .=
83 83
        "<option>$_->{description}--$_->{id}\n"
84
    } (@{ $form->{all_departments} });
84
    } (@{ $form->{all_departments} || [] });
85 85
  }
86 86

  
87 87
  CP->paymentaccounts(\%myconfig, \%$form);
bin/mozilla/dn.pl
102 102

  
103 103
  $form->{SHOW_CUSTOMER_SELECTION}      = $form->{all_customer}    && scalar @{ $form->{all_customer} };
104 104
  $form->{SHOW_DUNNING_LEVEL_SELECTION} = $form->{DUNNING}         && scalar @{ $form->{DUNNING} };
105
  $form->{SHOW_DEPARTMENT_SELECTION}    = $form->{all_departments} && scalar @{ $form->{all_departments} };
105
  $form->{SHOW_DEPARTMENT_SELECTION}    = $form->{all_departments} && scalar @{ $form->{all_departments} || [] };
106 106

  
107 107
  $form->{title}    = $locale->text('Start Dunning Process');
108 108
  $form->{jsscript} = 1;
bin/mozilla/gl.pl
110 110

  
111 111
  # departments
112 112
  $form->all_departments(\%myconfig);
113
  if (@{ $form->{all_departments} }) {
113
  if (@{ $form->{all_departments} || [] }) {
114 114
    $form->{selectdepartment} = "<option>\n";
115 115

  
116 116
    map {
117 117
      $form->{selectdepartment} .=
118 118
        "<option>$_->{description}--$_->{id}\n"
119
    } (@{ $form->{all_departments} });
119
    } (@{ $form->{all_departments} || [] });
120 120
  }
121 121

  
122 122
  $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
......
146 146

  
147 147
  # departments
148 148
  $form->all_departments(\%myconfig);
149
  if (@{ $form->{all_departments} }) {
149
  if (@{ $form->{all_departments} || [] }) {
150 150
    $form->{selectdepartment} = "<option>\n";
151 151

  
152 152
    map {
153 153
      $form->{selectdepartment} .=
154 154
        "<option>$_->{description}--$_->{id}\n"
155
    } (@{ $form->{all_departments} });
155
    } (@{ $form->{all_departments} || [] });
156 156
  }
157 157

  
158 158
  my $i        = 1;
......
240 240
  $form->all_departments(\%myconfig);
241 241

  
242 242
  # departments
243
  if (@{ $form->{all_departments} }) {
243
  if (@{ $form->{all_departments} || [] }) {
244 244
    $form->{selectdepartment} = "<option>\n";
245 245

  
246 246
    map {
247 247
      $form->{selectdepartment} .=
248 248
        "<option>$_->{description}--$_->{id}\n"
249
    } (@{ $form->{all_departments} });
249
    } (@{ $form->{all_departments} || [] });
250 250
  }
251 251

  
252 252
  my $department = qq|
bin/mozilla/ir.pl
153 153
    map {
154 154
      $form->{selectdepartment} .=
155 155
        "<option>$_->{description}--$_->{id}\n"
156
    } (@{ $form->{all_departments} });
156
    } (@{ $form->{all_departments} || [] });
157 157
  }
158 158

  
159 159
  # forex
bin/mozilla/is.pl
196 196
    map {
197 197
      $form->{selectdepartment} .=
198 198
        "<option>$_->{description}--$_->{id}</option>\n"
199
    } (@{ $form->{all_departments} });
199
    } (@{ $form->{all_departments} || [] });
200 200
  }
201 201

  
202 202
  $form->{employee} = "$form->{employee}--$form->{employee_id}";
bin/mozilla/rp.pl
156 156
  $form->all_departments(\%myconfig);
157 157
  if (@{ $form->{all_departments} || [] }) {
158 158
    $form->{selectdepartment} = "<option>\n";
159
    map { $form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } @{ $form->{all_departments} };
159
    map { $form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } @{ $form->{all_departments} || [] };
160 160
  }
161 161

  
162 162
  my $department = qq|

Auch abrufbar als: Unified diff