X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/82c784869fbfc8a746a0ee0662947f189f021993..59f8f1fad78635c084328f8bf726f107cbb5bba2:/bin/mozilla/oe.pl

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index b0e013c02..e2fb8a2aa 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -408,7 +408,10 @@ sub form_header {
   $form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
 
   $form->get_lists("contacts" => "ALL_CONTACTS",
-                   "shipto" => "ALL_SHIPTO");
+                   "shipto" => "ALL_SHIPTO",
+                   "projects" => { "key" => "ALL_PROJECTS",
+                                   "all" => 0,
+                                   "old_id" => $form->{"globalproject_id"} });
 
   my (%labels, @values);
   foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
@@ -428,6 +431,17 @@ sub form_header {
       $item->{"shiptoname"} . " " . $item->{"shiptodepartment_1"};
   }
 
+  %labels = ();
+  @values = ("");
+  foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
+    push(@values, $item->{"id"});
+    $labels{$item->{"id"}} = $item->{"projectnumber"};
+  }
+  my $globalprojectnumber =
+    $cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
+                     '-labels' => \%labels,
+                     '-default' => $form->{"globalproject_id"});
+
   my $shipto = qq|
 		<th align=right>| . $locale->text('Shipping Address') . qq|</th>
 		<td>| .
@@ -783,11 +797,7 @@ print qq|	    </table>
 	      $ordnumber
 	      <tr>
           <th width="70%" align="right" nowrap>| . $locale->text('Project Number') . qq|</th>
-          <td>
-            <input name="globalprojectnumber" size="11" value="| . Q($form->{globalprojectnumber}) . qq|">
-            <input type="hidden" name="oldglobalprojectnumber" value="| . Q($form->{globalprojectnumber}) . qq|">
-            <input type="hidden" name="globalproject_id" value="| . Q($form->{globalproject_id}) . qq|">
-          </td>
+          <td>$globalprojectnumber</td>
 	      </tr>
 	    </table>
 	  </td>